单项选择题

在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do While x＜50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为

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

单项选择题
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_Load() show Text1.Text= Text1.SetFocus End Sub Private Sub Command1_Click() Text1.Text=LCase(SaveAll)+SaveAll End Sub Private Sub Form_KeyPress(keyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，直接用键盘输入“VB”，再单击命令按钮，则文本框中显示的内容为
A．vbVB
B．不显示任何信息
C．VB
D．出错
单项选择题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i) *j j=j*10 Next i Print s End Sub 程序运行后，单击命令按钮，其输出结果是
A．4321
B．1234
C．34
D．12
相关试题