二级VB上机28（计算机二级考试VB考试卷）.docVIP

试卷第 PAGE 7 页共 NUMPAGES 7 页 二级VB上机28（计算机二级考试VB考试卷） 姓名:_____________ 年级:____________ 学号:______________ 题型 选择题 填空题 解答题 判断题 计算题 附加题 总分 得分 评卷人 得分 第55套 一、基本操作题第 1 题 　　第 2 题 　　二、简单应用题第 3 题 　　Dim a(20) As IntegerPrivate Sub Command1_Click( ) Dim k As Integer Open App.Path “in3.dat” For Input As #1 For k = 1 To 20 Input #1, a(k) Text1 = Text1 + Str(a(k)) + Space(2) Next k Close #1End SubPrivate Sub Command2_Click( )=======================????======================= ‘以下程序段将已变换的数组元素显示在Text2文本框中 For k = 1 To 20 Text2 = Text2 + Str(a(k)) + Space(2) Next kEnd SubPrivate Sub Form_Unload(Cancel As Integer) Open App.Path “out3.dat” For Output As #1 Print #1, Text2.Text Close #1End Sub第 4 题 　　Option Base 1Dim x As String, max_n As IntegerPrivate Sub Command1_Click( ) Open App.Path “in4.dat” For Input As #1 s = Input(LOF(1), #1) Close #1 Text1.Text = sEnd SubPrivate Sub Command2_Click( ) Dim a(26) As Integer sl = Text1.SelLength st = Text1.SelText Text2.Text = ““‘ If ? Then MsgBox “请先选择文本！” Else’ For i = 1 To ? c = Mid(st, i, 1) If c ＜ “ “ Then n = Asc(UCase(c)) - Asc(“A”) + 1’ a(n) = ? End If Next’ For i = 1 To ? If a(i) = 0 Then Text2.Text = Text2.Text + “ “ + Chr(Asc(“A”) + i - 1) End If Next End IfEnd Sub三、综合应用题第 5 题 　　Option Base 1Dim n%, tag_in%Dim stud(1 To 10) As StudTypePrivate Sub Command1_Click( ) If n 10 Then tag_in = 0 n = n + 1 Else tag_in = 1 MsgBox “输入的学生人数已超过数组声明的个数！” End If If tag_in = 0 Then If Text1 = ““ Then MsgBox “学号不能为空，请重输！”‘ n =? Else’ ? = Text1 stud(n).Name = Text2 stud(n).Average = Val(Text3) End If End If Text1 = ““: Text2 = ““: Text3 = ““End SubPrivate Sub Command2_Click( )Dim t As StudType Picture1.Cls For j = 1 To n - 1’ For k = ? To n’ If stud(k).Averagel第 8 题 　　Private Sub C1_Click( ) Timer1.Enabled = TrueEnd SubPrivate Sub C2_Click( ) Timer1.Enabled = FalseEnd Sub第 9 题 　　Dim a(100) As Integer, num As Integer, n As IntegerPri