单项选择题

在窗体下画两个文本框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
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Option Base1 Private Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 If X(i)＞c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后，单击命令按钮，则在窗体上输出的内容为( )。
A．10
B．12
C．16
D．20
单项选择题
在一个窗体上添加一命令按钮控件，名为Command1，事件过程如下，则执行结果是( )。 Option Base 1 Private Sub Command1_Click() Dim a(5) As Integer Dim k As Integer Dim total As Integer a(1)=2 a(2)=5 a(3)=4 a(4)=10 a(5)=6 For k=1 To 5 total=total+a(k) Next k Print total End Sub
A．10
B．15
C．27
D．35
相关试题