（ 22 ）命令按钮 Command1 的单击事件过程的代码如下：

Private Sub Command1_Click( )

D．im a(3 , 3)As Integer

F．or i=1 To 3

F．or j=1 To 3

a(i , j)=i*j+i

Next j

Next i

Sum=0

F．or i=1 To 3

Sum=Sum+a(i , 4-i)

Next i

Print Sum

E．nd Sub

运行程序，单击命令按钮，输出结果是（ ）。

A． ） 20

B． ） 7

C． ） 16

D． ） 17

[单选题]（ 21 ）命令按钮 Command1 的单击事件过程的代码如下：Private Sub Command1_Click( )D．im a ( 30 ) As IntegerF．or i=1 To 30a(i)=Int(Rnd*100)NextF．or Each arrItem In aIf arrItem Mod 7=0 Then Print arrItem;If arrItem>90 Then Exit ForNextE．nd Sub对于该事件过程，下列叙述中错误的是（ ）。A． ） a

[试题]设有命令按钮Command1的单击事件过程,代码如下:Private Sub Command1_Click()D．im a As IntegerF．or i=1 To 30a(i)=iNextF．or Each arrItem [ ]aIf arrItem Mod 7=0 Then Print arrItem;If arritem>90 Then Exit ForNextE．nd Sub请填空。

[单选题]设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1 Click() Dim a(3,3)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是______。A．20B．7C．16D．17

[单选题]设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1_Click() Dim a(30) As Integer For i=1 To 30 a(i)=Int(Rnd*100) Next For Each arrItem In a If arrItem Mod 7=0 Then Print arrItem If arrItem＞90 Then Exit For Next End Sub 对于该事件过程，以下叙述中错误的是______。A．a数组中的数据是

[单选题]设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click（）D．im a（30）As IntegerF．or i=1 To 30a（i）=Int（Rnd*100）NextF．or Each arrItem In aIf arrItem Mod 7=0 Then Print arrItem；If arrItem>90 Then Exit ForNextE．nd Sub对于该事件过程，以下叙述中错误的是（ ）。A．a数组中的数据是30个100以

[单选题]设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click（）D．im a（3，3）As IntegerF．or i=1 To 3F．or j=1 To 3a（i，j）=i*j+iNext jNext iSum=0F．or i=1 To 3Sum=Sum+a（i，4-i）Next iPrint SumE．nd Sub运行程序，单击命令按钮，输出结果是（ ）。A．20B．7C．16D．17

[单选题]单击窗体上Command1命令按钮时，执行如下事件过程： Private Sub Command1-Click() a$="software and hardware" b$=Right(a$，8) c$=Mid(a$，1，8) Msgbox a $,,b$；c$,1 End sub 则在弹出的信息框的标题栏中显示的信息是( )。A．software and hardwareB．softwareC．hardwareD．1

[单选题]在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim y As Integer y=0 Do y=InputBox("y=") If(y Mod 10)+Int(y/10)=10 Then Debug.Print y； Loop Until y=0 End Sub 打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是( )。A．37 55 64 28 1

[单选题]在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command 1_Click() Dim x As Integer，y As Integer x=12:y=32 Call Proe(X，Y) Debug.Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=in Mod 10 End Sub 打开窗体运行后，单击命令按钮，立即窗口上输出的结果是( )。A

[单选题]在窗体中有一个命令按钮command1，编写事件代码如下： Private Sub Command1_Click() Dim s As Integer s=P(1)+P(2)+P(3)+P(4) Debug.Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出的结果是( )