A．渗透压调节剂 B．抑菌剂 C．助悬剂 D．润湿剂 E．抗氧剂下列物质在醋酸可的松混悬型注射液处方中的

阅读下列程序。

Option Base 1

Private Sub Form. _Click()

Dim x(3,3)

For j=1 to 3

For k=l to 3

If j=k then x(j,k)=1

If j＜＞k then x(j,k)=k

Next k

Next i

Call fun(x())

End Sub

Private Sub fun(x())

For j=1 to 3

For k=1 to 3

Print x(j,k)；

Next k

Next j

End Sub

运行程序时，输出结果为【 】。

有如下程序： Option Base 1 Private Sub Form. Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。

A． 25

B．26

C．27

D．28

阅读程序： Option Base 1 Private Sub Form. Click() Dim arr，Sum Sum= 0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为

A．13

B．14

C．27

D．15

设有如下程序： Option Base 1 Private Sub Form. Click() Dim arr arr = Array(10, 20, "ABCDE") For i = 3 To 1 Step -1 Print arr(i); Next i End Sub程序运行后，单击窗体，在窗体上显示的内容为______。

A．ABCDE 20 10

B．10 20 ABCDE

C．ABCDE 10 20

D．出错信息

下列程序运行时输出的结果是()。 Option Base 1 Const a=10 Private Sub Form. Click() Dim x(a)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub

A．1 3 5 7 9 10

B．-1-3-5-7-9

C．-1 2-3 4-5 6-7 8-9 10

D．1-2 3-4 5-6 7-8 9-10

下列程序运行时输出的结果是()。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End Sub

A．36

B．25

C．1

D．出错信息

有下列程序段，单击命令按钮执行程序后，输出结果是()。

Option Base 1

Private Sub Command1 Click()

Dim x

x=Array(23,-5,17,38,-31,46,11,8,5,-4)

31=0

s2=0

For k=1 To 10

If(x(k)>0)Then

S1=S1+x(k)

Else

s2=s2+x(k)

End If

Next k

Y=s1/Abs(s2)

Print Y

End Sub

A．148

B．40

C．40

D．3.7

下列程序运行时输出的结果是()。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End Sub

A．36

B．25

C．1

D．出错信息

执行以下Command1的Click事件过程在窗体上显示 Option Base 1 Private Sub Command1_Click() Dim a a=Array("a"，"b"，"c"，"d"，"e"，"f"，"g") Print a(1)； a(3)； a(5) End Sub

A．abc

B．bdf

C．ace

D．出错

在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form. Click() Dim a(10)As Integer For k=1 To 10 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。

A．100

B．10

C．121

D．出错信息