k()
a$ = "software and hardware"
b$ = Right(a$, 8)
c$ = Mid(a$, 1, 8)
MsgBox a$, , b$, c$, 1
End Sub
运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是
A．software and hardware
B．software
C．hardware
D．1
（17）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
a = InputBox("Enter an integer")
b = InputBox("Enter an integer")
Text1.Text = b + a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是
A．108
B．18
C．810
D．出错
（18）在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：
Private Sub Form_Load()
Show
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Text1_Change()
Text2.Text = Mid(Text1.Text, 8)
End Sub
程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是
A．BeijingChina
B．China
C．Beijing
D．BeijingC
（19）在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：
Private Sub Form_Load()
List1.AddItem "Item 1"
List1.AddItem "Item 2"
List1.AddItem "Item 3"
End Sub
Private Sub Command1_Click()
List1.List(List1.ListCount) = "AAAA"
End Sub
程序运行后，单击命令按钮，其结果为
A．把字符串“AAAA”添加到列表框中，但位置不能确定
B．把字符串“AAAA”添加到列表框的最后（即“Item 3”的后面）
C．把列表框中原有的最后一项改为“AAAA”
D．把字符串“AAAA”插入到列表框的最前面（即“Item 1”的前面）
（20）假定有如下事件过程：
Private Sub Form_Click()
Dim x As Integer, n As Integer
x = 1
n = 0
Do While x < 28
x = x * 3
n = n + 1
Loop
Print x, n
End Sub
程序运行后，单击窗体，输出结果是
A．81 4
B．56 3
C．28 1
D．243 5 （21）有如下程序：
Private Sub Form_Click()
Dim Check, Counter
Check = True
Counter = 0
Do
Do While Counter < 20
Counter = Counter + 1
If Counter = 10 Then
Check = False
Exit Do
End If
Loop
Loop Until Check = False
Print Counter, Check
End Sub
程序运行后，单击窗体，输出结果为
A．15 0
B．20 -1
C．10 True
D．10 F
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
责任编辑：小草
