单项选择题

在窗体建立如下图所示的窗体界面，然后编写如下事件过程：


Private Sub Command1_Click()
x=0
n=0
Do Until x＞=30
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值分别为______。

A) 2和30
B) 2和240
C) 3和50
D) 4和30
<上一题 目录 下一题>
热门 试题

单项选择题
窗体上有一个用菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。 以下叙述中错误的是______。
A) 在设计该弹出菜单的主菜单项时，在菜单编辑器窗口去掉了"可见"前面的"√"
B) 在设计"选中"菜单项时，在菜单编辑器窗口中设置了"复选"属性(有"√")
C) 在设计"粘贴"菜单项时，在菜单编辑器窗口中设置了"有效"属性(有"√")
D) 菜单中的横线是在该菜单项的标题输入框中输入了一个"-"(减号)字符
单项选择题
在窗体上画一个命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim n As Integer n=InputBox( 请输入一个数 ) Print fun1(n) End Sub Function fun1(ByVal Bum As Long) As Long Dim k As Long k=0 Bum=Abs(Bum) Do While Bum k=k+(Bum Mod 10) Bum=Bum 10 Loop fun1=k End Function 程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为______。
A) 3
B) 4
C) 9
D) 10
相关试题