单项选择题
在窗体上画两个名称分别为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.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在两个文本框中显示的值分别是 ______。
A.15和1
B.27和3
C.195和3
D.600和4
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
在运算过程中,能够使空表与非空表的运算统一的结构是 【1】 。
点击查看答案&解析
单项选择题
在窗体上画一个命令按钮和一个文本框,并把窗体的KeyPreview属性设置为True,然后编写如下代码: Dim SaveAll As String Private Sub Command1_Click() Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAseii) End Sub 程序运行后,在键盘上输入“abcdefg”,单击命令按钮,则文本框中显示的内容为 ______ 。
A.abcdefg
B.不显示任何信息
C.ABCDEFG
D.出错
点击查看答案&解析
相关试题
在窗体上画一个名称为Command1的命令按钮...
为了在按下Esc键时执行某个命令按钮的事件...
执行下面的语句后,所产生的信息框的标题是...
在菜单编辑器中,菜单项前面的4个小点的含...
在窗体上面画一个命令按钮,然后编写如下程...