单项选择题

在窗体下画两个文本框Text1和Text2，一个命令按钮Command1，请阅读下列程序段： Private Sub Command1_Click() x=0 Do Until x＞=50 x=(x+4)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 运行程序后，单击命令按钮，在两个文本框中显示的值分别为( )。

A．1和0
B．2和240
C．3和50
D．4和168
<上一题 目录 下一题>
热门 试题

单项选择题
有下列事件过程：Private Sub Command1_Click()b=10Do Until b=-1a=InputBox( 请输入a的值 )a=Val(a)b=InputBox( 请输入b的值 )b=Val(b)a=a*bLoopPrint aEnd Sub程序运行后，依次输入数值30,20,10,-1后，输出结果是( )。
A．6000
B．-10
C．200
D．-6000
单项选择题
有下列函数过程：Function fun1(ByVal x As Integer,ByVal y As Integer)As IntegerDo While y＜＞0reminder=x Mod yx=yy=reminderLoopfun1=xEnd Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。Private Sub Command1_Click()Dim a As IntegerDim b As Integera=100b=25x=fun1(a,b)Print xEnd Sub
A．0
B．25
C．50
D．100
相关试题