问题
单项选择题
在窗体上有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:
Private Sub Command1_Click()
Dim i,j,x
For i=1 To 20 step 2
x=0
For j=i To 20 step 3
x=x+1
Next j
Next i
Text1.Value=Str(x)
End Sub
打开窗体运行后,单击命令按钮,文本框中显示的结果是( )。
A.1
B.7
C.17
D.400
答案
参考答案:A
解析: 由于外层循环体中有语句x=0,所以无论内循环结束时x为多少.它都将被重新赋值0,所以只有最后一次i=19,j=19时x值为1,由于i的步长为2,21不符循环条件,退出整个循环。故文本框中的结果为1。