单项选择题

在窗体有两个名为text1、text2的文本框和一个名为Command1的命令按钮，事件过程：
Private sub command1_click()
Dim x as Integer，n as Integer
x=1
n=0
Do While x＜20
x=x*3
n=n+1
Loop
text1=str(x)
text2=str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框text1和text2中显示的值分别是______。

A．15和1
B．27和3
C．195和3
D．600和4
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体中有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim s As Integer s=P(1)+P(2)+P(3)+P(4) debug.Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+i Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出结果是______。
A．15
B．20
C．25
D．35
单项选择题
窗体有命令按钮Command1和文本框Text1，对应的事件代码如下： Private Sub Command1_Click() For i=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next i Text1.Value=Str(x) End Sub 运行以上事件过程，文本框中的输出是（）。

A．6
B．12
C．18
D．21
相关试题