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

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

KeyCode 90 Then MsgBox 请输入大写字母 KeyCode = 0 End If End Sub C) Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Asc() 65 Or Asc() 90 Then MsgBox 请输入大写字母 End If End Sub D) Private Sub Text1_Change() If Asc() 64 And Asc() 91 Then MsgBox 请输入大写字母 End If End Sub (23) 假定在窗体（名称为 Form1）的代码窗口中定义如下记录类型： Private Type animal AnimalName As String*20 AColor As String*10 End Type 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程 : Private Sub Command1_Click() Dim rec As animal Open c:\ For Random As 1 Len = Len(rec) = Cat = White Put 1, , rec Close 1 End Sub 则以下叙述中正确的是 A) 记录类型 animal不能在 Form1 中定义，必须在标准模块中定义 B) 如果文件 c:\ 不存在，则 Open 命令执行失败 C) 由于 Put 命令中没有指明记录号，因此每次都把记录写到文件的末尾 D) 语句 “Put 1, , rec”将 animal类型的两个数据元素写到文件中 (24) 在窗体上画一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click() n = Val() If n\2 = n/2 Then f = f1(n) Else f = f2(n) End If Print f。 n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入 6，然后单击命令按钮，窗体上显示的是 A) 72 36 B) 108 36 C) 72 6 D) 108 6 (25) 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程 : Private Sub Command1_Click() c = 1234 c1 = Trim(Str(c)) For i = 1 To 4 Print Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为 A) Right(c1,i) B) Left(c1,i) C) Mid(c1,i,1) D) Mid(c1,i,i) (26) 在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写如下事件过程： Private Sub Command1_Click() n = Val() For i = 2 To n For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Next j If j Sqr(i) Then Print i Next i End Sub 该事件过程的功能是 A) 输出 n 以内的奇数 B) 输出 n 以内的。