问题 单项选择题

在窗体上有一个命令按钮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。

单项选择题
单项选择题