问题
单项选择题
在窗体中有一个命令按钮Command1和一个文本框Test1，编写事件代码如下：
Private Sub Command1_Click()
For I=1 To 4
x=3
For j=1 To 3
For k=1 To 2
x=x+3
Next k
Next j
Next I
Text1.Value=Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框Text1中输出的结果是
A．6
B．12
C．18
D．21
答案
参考答案：D
解析： 本题考查的是VBA程序控制语句。本程序有3个For循环，赋值语句“x=3”在第一层循环语句“For I=1 To 4”内，也就是说，无论I的值是1还是4，循环的结果都一样。因为在第一轮循环运行结束、第二轮循环开始时，变量的值都会恢复为3，所以可以将“For I=1 To 4”看作只执行了一次，即I的外层循环没有实际意义，I值为1～4时，x的结果是一样的。根据“For i=1To 3”和“For k=1 To 2”这个嵌套循环，可以推算出“x=x+3”运行了6次：
j=1时：k=1，x=3+3=6；k=2，x=6+3=9。
j=2时：k=1，x=9+3=12；k=2，x=12+3=15。
j=3时：k=1，x=15+3=18；k=2，x=18+3=21。
所以，本程序运行“Text1.value=Str(x)”后，在文本框中输出的结果是21。