2002年秋浙江省高校计算机等级考试(VB)参考答案.docVIP

2002年秋计算机等级考试答案(二级VB) 试题一：计算机基础题 ?? 单选题： 1 2 3 4 5 6 7 8 9 10 C D B A A A B C D D ?? 双选题： 11 12 13 14 15 AB AD AC AD BC 试题二：语言基础题 ?? 判断题： 16 17 18 19 20 21 22 23 24 25 × √ × √ √ √ × × × √ ?? 单选题： 26 27 28 29 30 31 32 33 34 35 B C D B A A D C D B 试题三：程序填空题 36 37 38 39 40 A C D A C 试题四：程序阅读题 1 2 3 4 78 5786 357864 2 3 4 5 32 64 16 64 8 64 4 64 6 15 28 45 试题五：程序设计题 1 、 Private Sub Command1_Click() Dim n As Integer Dim i As Integer, sum As Single n = InputBox(input data n) sum = 1 For i = 2 To n sum = sum + i / ((i + 1) * (i + 2)) Next i Text1.Text = Str(sum) End Sub 2 、 Dim x1 As Integer, y1 As Integer Private Sub Form_Load() Pic1.FillStyle = 0 Pic1.FillColor = vbGreen Pic1.ForeColor = vbRed End Sub Private Sub Pic1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) x1 = X y1 = Y End Sub Private Sub Pic1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Pic1.Line (x1, y1)-(X, Y), , B End Sub 3 、 Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() Dim str1 As String, str2 As String Dim Fname As String Dim i As Integer If Right(File1.Path, 1) = \ Then Fname = File1.Path File1.FileName Else Fname = File1.Path \ File1.FileName End If Open Fname For Input As #1 CommonDialog1.Action = 1 Open CommonDialog1.FileName For Output As #2 Do While Not EOF(1) Line Input #1, str1 str2 = For i = 1 To Len(str1) If Mid(str1, i, 1) Then str2 = str2 Mid(str1, i, 1) End If Next i Print #2, str2 Loop Close End Sub