20xx年4月全国计算机等级考试二级vb笔试试卷(编辑修改稿)

20xx年4月全国计算机等级考试二级vb笔试试卷(编辑修改稿)内容摘要：

A)数组中每个命令按钮的名称 (名称属性 )均为 Command1 B)数组中每个命令按钮的标题 (Caption 属性 )都一样 C)数组中所有命令按钮可以使用同一个时间过程 D)用名称 Command1(下标 )可以访问数组中的每个命令按钮 (26)把窗体的 KeyPreview 属性设置为 True,然后编写如下事件过程 : Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch = Chr(KeyAscii) KeyAscii = Asc(UCase(ch)) Print Chr(KeyAscii + 2) End Sub 程序运行后 ,按键盘上的 ”A”键 ,则在窗体上显示的内容是 A)A B)B C)C D)D (27)在窗体上画一个命令按钮和一个文本框 ,名称分别为 Command1 和 Text1,然后编写如下程序 : Private Sub Command1_Click() a = InputBox(请输入日期 (1~31)) t = 旅游景点 : _ amp。 IIf(a 0 And a = 10, 长城 , ) _ amp。 IIf(a 10 And a = 20, 故宫 , ) _ amp。 IIf(a 20 And a = 30, 颐和园 , ) = t End Sub 程序运行后 ,如果从键盘输入 16,则在文本框中显示的内容是 : A)旅游景点：长城故宫 B)旅游景点：长 城颐和园 C)旅游景点：颐和园 D)旅游景点：故宫 (28)在窗体上画一个名称为 Label1 的标签 ,然后编写如下事件过程 : Private Sub Form_Click() Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j = 2 To 4 arr(i, j) = i * j Next j Next i = Str(arr(2, 2) + arr(3, 3)) End Sub 程序运行后 ,单击窗体 ,在标签中显示的内容是 A)12 B)13 C)14 D)15 (29) 在窗体上画一个名称为 Comamnd1 的命令按钮 ,然后编写如下通用过程和命令按钮的事件过程 : Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End If End Function Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 For i = 1 To 5 s = s + fun(i) Next Print s End Sub 程序运行后 ,单击命令按钮 ,则窗体上显示的是 : A)6 B)7 C)8 D)9 (30)阅读程序 : Option Base 1 Dim arr() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3 For j = 1 To 2 arr(i, j) = i * 2 + j Next j Next i ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2) + arr(3, 4) End Sub 程序运行后 ,单击窗体 ,输出结果为 : A)21 B)13 C)8 D)25 31)在窗体上画一个名称为 Command1 的命令按钮 ,然后编写如下程序 : Option Base 1 Private Sub Command1_Click() Dim c As Integer, d As Integer d = 0 c = 6 x = Array(2, 4, 6, 8, 10, 12) For i = 1 To 6 If x(i) c Then d = d + x(i) c。