下面程序运行后的输出结果是 Private Sub Command1_Click() For j=1 To 10 If j Mod 3＜＞0 Then a=a+j\3 Next Print a End Sub
A．20
B．10
C．3
D．9
第1题：
（ 22 ）命令按钮 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 ） 20
B ） 7
C ） 16
D ） 17
（ 22 ）【答案】 C ）
【解析 】 经赋值后数组 a 的元素为 (2,3,4,4,6,8,6,9,12) ， 而第三个 For 循环语句的作用是求次对角线上三个元素的和，即 Sum=a(1,3)+a(2,2)+a(3,1)=4+6+6=16 。
第2题：
有如下程序：
Private Sub Form_Click()
Dim i As Integer，Sum As Integer
Sum=0
For i=2 To 10
If i Mod 2＜＞0 And i Mod 3=0 Then
Sum=Sum+i
EndIf
Next
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A．12
B．30
C．24
D．18
第3题：
设有命令按钮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．20
B．7
C．16
D．17
经赋值后数组a的元素为(2,3,4,4,6,8,6,9,12)，而第三个For循环语句的作用是求次对角线上三个元素的和，即Sum=a(1,3)+a(2,2)+a(3,1)=4+6+6=16。
第4题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 3
For j=1 To 4
If j Mod 2＜＞0 Then
a=a+1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序执行后，单击命令按钮，输出结果是【 】。
第5题：
阅读程序：
Private Sub Command1_Click()
A=0
For j=1 to 15
a=a+j mod 3
Next j
Print a
End Sub
程序运行后，单击窗体，输出结果是
A ）105
B)1
C)120
D)15
第6题：
（ 23 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写下列事件过程：
Private Sub Command1_Click( )
a=0
For i=1 To 2
For j=1 To 4
If j Mod 2<>0 Then
a=a-1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
A ） 0
B ） 2
C ） 3
D ） 4
第7题：
在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2＜＞0 Then a=a-1 End If a=a＋1 Next j Next i Print a EndSub 程序运行后，单击命令按钮，输出结果是______。
A．0
B．2
C．3
D．4
第8题：
在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（）
a=0
For i=1 To 2
For j=1 To 4
If j Mod 2<>0 Then
a=a-1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
A．0
B．2
C．3
D．4
由if语句知：当j为1或者3时，a减1，而j为1、2、3和4的时候a均加1，因此，实际上经过For j=1 To 4后，a增加了2，而程序的最外部循环了两次，因此结果应该为a=4。
第9题：
有如下程序：
Private Sub Form_Click（）
Dim i As Integer, sum As Integer
sum = 0
For i = 2 To 10
If i Mod 2 <> 0 And i Mod 3 = 0 Then
sum = sum + i
End If
Next i
Print sum
End Sub
程序运行后，单击窗体，输出结果为（ ）。
A．12
B．30
C．24
D．18
第10题：
阅读程序：
Private Sub Form. Click（ ）
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后，单击窗体，输出结果是（ ）。
A.105
B.1
C.120
D.15