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

试卷第 PAGE 7 页共 NUMPAGES 7 页 二级VB上机12（计算机二级考试VB考试卷） 姓名:_____________ 年级:____________ 学号:______________ 题型 选择题 填空题 解答题 判断题 计算题 附加题 总分 得分 评卷人 得分 第23套 一、基本操作题第 1 题 　　第 2 题 　　二、简单应用题第 3 题 　　Private Sub Op1_Click(Index As Integer)’’给考生的程序：’ Dim a As String, b As String, c As String’ a = “我坐”‘ b = “我开”‘‘ Select Case ?’ Case 0’ Text1.Text = a + Me.Op1(0).Caption + “去”‘ Case 1’’ Text1.Text = ? + Me.Op1(1).Caption + “去”‘ Case 2’ Text1.Text = b + Me.Op1(2).Caption + “去”‘ End Select第 4 题 　　’提供给考生的程序Private Sub Form_Unload(Cancel As Integer) Open App.Path “out4.txt” For Output As #1 Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.Text Close #1End Sub三、综合应用题第 5 题 　　’ 给考生的程序Private Sub Form_Unload(Cancel As Integer) unload_subEnd Sub第24套 一、基本操作题第 6 题 　　第 7 题 　　二、简单应用题第 8 题 　　’’给考生的程序’Private Sub C1_Click( )’’ Timer1.Enabled = ?’End Sub’Private Sub Timer1_Timer( )’ Static a%’ a = a + 1’’ If P1.Top ＜ P2.Top + P2.? Then’ P1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.Height’ Else’’ Timer1.? = False’ End If’End Sub第 9 题 　　Private Function xn(a As Single, m As Integer) Dim i As Integer tmp = 1 For i = 1 To m ‘ tmp = ? Next ‘xn = ?End FunctionPrivate Sub Command1_Click( ) Dim n As Integer Dim i As Integer Dim t As Single Dim s, x As Single n = Val(Text1.Text) x = Val(Text2.Text) z = 0 For i = 2 To n t = x + i ‘ z = z +? Next ‘Label1.Caption = ? Call SaveResultEnd SubPrivate Sub SaveResult( ) Open App.Path “out4.dat” For Output As #1 Print #1, Label1.Caption Close #1End Sub三、综合应用题第 10 题 　　Private arr(100) As IntegerPrivate Sub Command1_Click( ) Open App.Path “in5.txt” For Input As #1 For i = 1 To 40 Input #1, arr(i) Next Close #1End SubPrivate Sub Command2_Click( )’=================考生编写程序开始===================？？？’=================考生编写程序结束==================== Open App.Path “out5.txt” For Output As #1 Print #1, Label3.Caption, Label4.Caption Close #1E