设有命令按钮Command1的单击事件过程,代码如下:

Private Sub Command1_Click()

D．im a As Integer

F．or i=1 To 30

a(i)=i

Next

F．or Each arrItem [ ]a

If arrItem Mod 7=0 Then Print arrItem;

If arritem>90 Then Exit For

Next

E．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

[单选题]设有命令按钮Commandl的单击事件过程，代码如下： Private Sub Commandl_Click() Dima(30)As Integer Fori=1 To 30 a(i)=Int(Rnd*100) Next For Each arrltem In a IfarrltemMod7=0 ThenPrintarrItem； Ifarrltem＞90ThenExitFor Next End SubA．a数组中的数据是30个100以内的整数B．语句ForEacharrItem Ina有语法

[单选题]设有命令按钮Commandl的单击事件过程，代码如下： Private Sub Commandl_Click() Dima(3,3)As Integer Fori=1 To 3 Forj=1 To 3 a(i,j)=i*j+i Next j Nexti Sum=0 Fori=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End SubA．20B．7C．16D．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

[单选题]（ 22 ）命令按钮 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 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 打开窗体运行后，单击命令按钮，输出的结果是( )