单项选择题

在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
PrivateSubCommand1_Click（）
Dimi，j，x
Fori=1To20step2
x=0
Forj=iTo20step3
x=x+1
Nextj
Nexti
Text1.Value=Str（x）
EndSub
打开窗体运行后，单击命令按钮，文本框中显示的结果是（）。

A．1
B．7
C．17
D．400

<上一题 目录 下一题>
热门 试题

单项选择题
在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() MsgBox f(24，18) End Sub Public Function f(m As Integer，n As Integer)As Integer Do While in＜＞n Do While in＞n m=m-n Loop Do While In＜n n=n-m Loop Loop f=m End Function 窗体打开运行后，单击命令按钮，则消息框的输出结果是（）。

A．2
B．4
C．6
D．8
单项选择题
有如下事件程序，运行该程序后输出结果是______。 Private Sub Command33_Click() Dim x As Integer，y As Integer x=1:y=0 Do Until y＜=25 y=y+x*x x=x+1 Loop MsgBox x= &x& , y= &y End Sub
A．x=1，y=0
B．x=4，y=25
C．x=5，y=30
D．输出其他结果
相关试题