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