单项选择题

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Labell和 Commandl，然后编写如下两个事件过程：
Prirate SUb Command1 Click()
strText = InputBox(“请输入”)
Textl.Text = strText
End Sub
Private Sub Text1 Change()
Labell.Caption = Right(Trim(Text1.Text)， 3)
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是

A．空
B．abcdef
C．abc
D．def

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 2 = n + z y=y+z x = x + z Label1.Caption =x Label2.Caption =y Label3.Caption =z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是

A．10 10 10
B．30 30 30
C．30 30 10
D．10 30 30

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox( Input ) Select Case x Case 1， 3 Print“分支1” Case Is＞4 Print“分支2” Case Else Print “Else分支” End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是

A．分支1
B．分支2
C．Else分支
D．程序出错

相关试题