在窗体上画两个文本框(其Name属性分别为了ext1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程:
Private Sub Command1_Click()
x = 0: n = 0
Do Until x >= 30
x = (n + 2)* (n + 3)
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