在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下:Private SuB cormmandl_Cli

在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：

Private SuB cormmandl_Click()

Dim i,j,x

For i=i To 20 step 2

x=0

For j=1 To 20 step 2

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，而内循环中的最后一次循环是j=20 to 20step 3所以此时内循环只循环一次，x的值为x=0+1=1，所以本题答案为A)。