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

试卷第 PAGE 8 页共 NUMPAGES 9 页 二级VB上机22（计算机二级考试VB考试卷） 姓名:_____________ 年级:____________ 学号:______________ 题型 选择题 填空题 解答题 判断题 计算题 附加题 总分 得分 评卷人 得分 第43套 一、基本操作题第 1 题 　　第 2 题 　　二、简单应用题第 3 题 　　第 4 题 　　Private Sub Command1_Click( ) Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click( )’ ? Timer1.Enabled = FalseEnd SubPrivate Sub Form_Activate( )’ For k = 0 To 359 Step ?’ x = radius * Cos(k * 3.14159 / 180) + ? y = y0 - radius * Sin(k * 3.14159 / 180) Form1.Circle (x, y), 20 Next k a = 90 b = 90 len1 = Line1.Y1 - Line1.Y2 len2 = Line2.Y1 - Line2.Y2End SubPrivate Sub Timer1_Timer( ) a = a - 30 Line1.X2 = len1 * Cos(a * 3.14159 / 180) + x0’ Line1.? = y0 - len1 * Sin(a * 3.14159 / 180)’ b = ? - 30 / 12 Line2.X2 = len2 * Cos(b * 3.14159 / 180) + x0 Line2.Y2 = y0 - len2 * Sin(b * 3.14159 / 180)End Sub三、综合应用题第 5 题 　　Private Sub Command1_Click( ) Dim ch As String Text1 = ““ Open App.Path “in5.dat” For Input As #1 For k = 1 To 5 Input #1, ch athlete(k) = ch Text1 = Text1 ch “ “ For j = 1 To 8 Input #1, ch a(k, j) = Val(ch) Text1 = Text1 ch “ “ Next j Text1 = Text1 Chr(13) Chr(10) Next k Close #1End SubPrivate Function getmark(n As Integer) As Single’ s = ? maxnum = s minnum = s’ For k = 2 To ? s = s + a(n, k) If maxnum a(n, k) Then maxnum = a(n, k) End If If minnum ＜ a(n, k) Then minnum = a(n, k) End If Next k s = (s - maxnum - minnum) / 5’ getmark = s * 3 * ?End FunctionPrivate Sub Command2_Click( )’ 要求考生编写的程序第44套 一、基本操作题第 6 题 　　第 7 题 　　二、简单应用题第 8 题 　　Private Sub Text1_Change( ) Dim ch As String’ ch = Right$( ? ) ch = Right$(Text1, 1) If ch ＜= “A” And ch = “Z” Then Label1.Caption = LCase(ch) n = n + 1 ElseIf ch ＜= “a” And ch = “z” Then Label1.Caption = UCase(ch) n = n + 1 Else’ Label1.Caption = ? Label1.Caption = Right$(Text1, 1) End If’ Label2.Caption = ? Label2.Caption = nEnd Sub第 9 题 　　Private Sub Comma