在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称为Text1，然后编写如下程序：
Private Sub Commandl Click()
Dim a(5)， b(5)
For j = 1 To 4
a(j) = 3 ( j
b(j) = a(j) ( 3
Next j
Text1.Text = b(j\2)
End Sub
程序运行后，单击命令按钮，在文本框中显示

A．25

B．18

C．36

D．35

"换发《药品经营企业许可证》（批发）验收标准"中规定：仓库应有的设备、设施包括

A．药品检测仪器

B．符合安全要求的消防设施

C．温湿度测定仪

D．适当材料做成的底垫

E．通风排水设施