?? A） b=Left（a,8,12） B） b=Mid（a,8,5） ?? C） b=Rigth（a,5,5） D） b=Left（a,8,5） （14）设a=2, b=3, c=4, 下列表达式的值是 ?? Not a<=c Or 4*c=b^2 And b<>a+c ?? A）-1 B）1 C）True D）False
（15）设a = 5，b = 10，则执行c = Int（（b - a） * Rnd + a） + 1后，c值的范围为 ?? A）5～10 B）6～9 C）6～10 D）5～9
（16）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： ??Private Sub Command1_Click（） ?? a$ = \?? 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（\） ?? b = InputBox（\） ?? 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
21
??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 \?? List1.AddItem \?? List1.AddItem \??End Sub
??Private Sub Command1_Click（） ?? List1.List（List1.ListCount） = \??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
22
??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 ?? End If ?? Next i ?? Print sum ?? End Sub
?? 程序运行后，单击窗体，输出结果为 ?? A）12 B）30 C）24 D）18
（23）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后
23
编写如下事件过程：
??Private Sub Command1_Click（） ?? Dim array1（10, 10） As Integer ?? Dim i As Integer, j As Integer ?? For i = 1 To 3 ?? For j = 2 To 4
?? array1（i, j） = i + j ?? Next j ?? Next i
?? Text1.Text = array1（2, 3） + array1（3, 4） ??End Sub
?? 程序运行后，单击命令按钮，在文本框中显示的值是 ?? A）12 B）13 C）14 D）15 （24）有如下程序： ??Option Base 1
??Private Sub Form_Click（） ?? Dim arr, Sum ?? Sum = 0
?? arr = Array（1, 3, 5, 7, 9, 11, 13, 15, 17, 19） ?? For i = 1 To 10
?? If arr（i） / 3 = arr（i） \\ 3 Then ?? Sum = Sum + arr（i） ?? End If ?? Next i ?? Print Sum ??End Sub
?? 程序运行后，单击窗体，输出结果为 ?? A）25 B）26 C）27 D）28
（25）在窗体上画一个命令按钮，然后编写如下事件过程： ??Private Sub Command1_Click（） ?? Dim a（5） As String ?? For i = 1 To 5
?? a（i） = Chr（Asc（\） + （i - 1）） ?? Next i
24
?? For i = 1 To 5
Print a(i); Next i ??End Sub
?? 程序运行后，单击命令按钮，输出结果是 ?? A）ABCDE B）1 2 3 4 5 ?? C）abcde D）出错信息 二、填空题（每空2分，共30分）
??请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。 (1) 在窗体中添加一个命令按钮，并编写如下程序代码，已知程序的输出结果如下。
Private Sub Command1_Click() Print Tab(20); \For i = 1 To 5 If 【1】 Then
Print Tab(20 - i); \ Print Tab(20 + i); \ Else
Print Tab(20 - i); \ Print Tab(20 + i); \ End If Next i For j = 【2】 If 【3】 Then
Print Tab(19 - i + j); \ Else
Print Tab(19 - i + j); \ End If Next j End Sub
(2) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色) 。当向文框中输入任何字符时，命令按钮Command1变为可用。请在【4】处填入适当的内容，将程序补充完整。 ?
?
Private
Sub
Form_Load
（
）
25