问题
填空题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer,x As Integer
For i=1 To 6
If i=1 Then x=i
If i＜=4 Then
x=x+1
Else
x=x+2
End If
Next 1
MsgBox x
End Sub
程序运行后，单击命令按钮，其输出结果为______。
答案
参考答案：I
解析： 本题考查VBA中程序设计的知识。对于这个问题，首先注意到循环的次数为6次；然后注意到循环内的两个If语句为顺序关系而不是嵌套关系，第一个If语句只有第一次循环时才会满足；第一次循环时首先执行第一个If语句把x赋值为1，然后执行第二个If语句；以后各次循环均照此分析，前4次循环x自加1，后两次循环x自加2，最后输出结果为9。