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

试卷第 PAGE 7 页共 NUMPAGES 7 页 二级VB上机25（计算机二级考试VB考试卷） 姓名:_____________ 年级:____________ 学号:______________ 题型 选择题 填空题 解答题 判断题 计算题 附加题 总分 得分 评卷人 得分 第49套 一、基本操作题第 1 题 　　第 2 题 　　二、简单应用题第 3 题 　　Private Function xn(m As Integer) As Long Dim i As Integer Dim tmp As Long ‘tmp = ? For i = 1 To m ‘tmp =? Next ‘? = tmpEnd FunctionPrivate Sub Command1_Click( ) Dim n As Integer Dim i As Integer Dim t As Integer Dim z As Long, 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 = z Call SaveResultEnd SubPrivate Sub SaveResult( ) Open App.Path “out3.dat” For Output As #1 Print #1, Label1.Caption Close #1End Sub第 4 题 　　Dim arrPrivate Sub Form_Load( ) ‘ ?= Array(“第一项”, “第二项”, “第三项”, “第四项”) Label1.Caption = arr(0) Timer1.Interval = 1000 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer( ) ‘? i As Integer ‘Label1.Caption =? If i = 3 Then ‘i =? Else i = i + 1 End IfEnd Sub三、综合应用题第 5 题 　　Private Sub Command1_Click( ) Randomize For k = 0 To 9 Text1(k) = CInt(Rnd( ) * 899 + 100) NextEnd SubPrivate Sub Command2_Click( )’================================================‘算法：’1）令i指向第1个数，j指向最后1个数，并先暂存最后一个数；’2）检查第i个数是否为偶数，若不是，再检查下一个，直到第i个是’ 偶数，则把此偶数放到第j个位置，j向前移1个位置；’3）检查第j个数是否为奇数，若不是，再检查前一个，直到第j个是’ 奇数，则把此奇数放到第i个位置，i向后移1个位置；’4）重复2）、3），直到i=j’5）把开始暂存的数放到i的位置’=================================================第50套 一、基本操作题第 6 题 　　第 7 题 　　二、简单应用题第 8 题 　　’给考生的程序Private Sub Form_Unload(Cancel As Integer) Open App.Path “out3.txt” For Output As #1 Print #1, Op1.Value, Op2.Value, Text1.Text Print #1, Ch1.Value, Ch2.Value, Text2.Text Close #1End Sub第 9 题 　　Dim i As IntegerPrivate Sub Form_Load( ) ‘i = ? ‘Timer1.Interval = ? Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer( ) ‘Label1.Caption = ? If i = 3 Then i = 0 Else i = i + 1 End IfEnd Sub三、综合应用题第 10 题 　　Option Base 1Dim sum(6) As IntegerPrivate Sub Command1_Click(