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 False
（22）有如下程序：
Private Sub Form_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 2 To 10
If i Mod 2 <> 0 And i Mod 3 = 0 Then
sum = sum + i
上一页 [1] [2] [3] [4] [5] [6] 下一页
|
ChinaITLab收集整理 
2006-3-11 
相关文章