单项选择题
在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为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.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在两个文本框中显示的值分别是
A.15和1
B.27和3
C.195和3
D.600和4
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程: Private Sub Command1_Click() n=Val(Text1.Text) if n 2=n 2 Then f=f1(n) Else f=f2(n) End If Print f;n End Sub Public Function f1(ByRef x) x = x * x f1 =x + x End Function Public Function f2(ByVal x) x = x + x f2=x+x+x End Function 程序运行后,在文本框中输入6,然后单击命令按钮,窗体上显示的是
A.72 36
B.108 36
C.72 6
D.108 6
点击查看答案&解析
单项选择题
设有如下程序: Private Sub Command1_Click() Dim C As Integer, d As Integer c=4 d=InputBox(“请输入一个整数”) Do While d>0 If d>c Then c=c+1 End If d=InputBox(“请输入一个整数”) Loop Print c+d End Sub 程序运行后,单击命令按钮,如果在输入对话框中依次输入1、2、3、4、5、6、7、8、 9和0,则输出结果是
A.12
B.11
C.10
D.9
点击查看答案&解析
相关试题
在窗体上画一个名称为Command1的命令按钮...
在窗体上绘制一个名称为Command1的命令按...
在窗体上画一个名称为Text1的文本框和一个...
在窗体上画一个名称为Commandl的命令按钮,...