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

试卷第 PAGE 9 页共 NUMPAGES 9 页 二级VB上机21（计算机二级考试VB考试卷） 姓名:_____________ 年级:____________ 学号:______________ 题型 选择题 填空题 解答题 判断题 计算题 附加题 总分 得分 评卷人 得分 第41套 一、基本操作题第 1 题 　　第 2 题 　　二、简单应用题第 3 题 　　Private Sub Command1_Click( ) Dim k As Integer, s As Single, a As Single, b As Single a = Val(Text1(0).Text) s = a b = a’ For k = 1 To ? s = s + Val(Text1(k).Text)’ If ? Val(Text1(k).Text) Then a = Val(Text1(k).Text) End If If b ＜ Val(Text1(k).Text) Then b = Val(Text1(k).Text) End If Next k’ s = (s - a - b) / ?’ s = ? * 3 * Val(Text2.Text)’ ? = Int(s * 100) / 100End Sub第 4 题 　　Dim n As Integer’需考生编写的程序============================== ？？？==============================Private Sub Command2_Click( ) Open App.Path + “out4.dat” For Output As #1 Print #1, n, Option1.Value, Option2.Value, Text1 Close #1End SubPrivate Sub m10_Click( ) n = 10End SubPrivate Sub m2000_Click( ) n = 2000End SubPrivate Sub m12_Click( ) n = 12End SubPrivate Sub m1000_Click( ) n = 1000End SubPrivate Sub Option1_Click( ) n = 0 m1000.Enabled = False m2000.Enabled = False m10.Enabled = True m12.Enabled = TrueEnd SubPrivate Sub Option2_Click( ) n = 0 m10.Enabled = False m12.Enabled = False m1000.Enabled = True m2000.Enabled = TrueEnd Sub三、综合应用题第 5 题 　　Private Sub Command1_Click( ) Text4 = ““ a = Val(Text1) b = Val(Text2) n = Val(Text3)’ Text4 = Text4 a “ “ ? k = 2 Do While k n c = a * b k = k + 1 k = k + 1 If c 10 Then Text4 = Text4 “ “ c’ a = ? b = c Else d = c 10 Text4 = Text4 “ “ d a = d k = k + 1’ If k = ? Then d = c Mod 10 Text4 = Text4 “ “ d’ ? = d End If End If LoopEnd Sub第42套 一、基本操作题第 6 题 　　第 7 题 　　二、简单应用题第 8 题 　　Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Const LEFT_BUTTON = 1 If oncircle(X, Y) Then Line1.X1 = x0 Line1.Y1 = y0 If Button = LEFT_BUTTON Then