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

试卷第 PAGE 6 页共 NUMPAGES 6 页 二级VB上机34（计算机二级考试VB考试卷） 姓名:_____________ 年级:____________ 学号:______________ 题型 选择题 填空题 解答题 判断题 计算题 附加题 总分 得分 评卷人 得分 第67套 一、基本操作题第 1 题 　　第 2 题 　　二、简单应用题第 3 题 　　Private Sub Text2_Change( ) ‘If ? = 1 Then ‘ Form1.Text3.PasswordChar = ? Else ‘ Text3.PasswordChar = ? End If ‘Text3.Text = ?End Sub第 4 题 　　Private Sub Command1_Click( ) Dim x As Integer, k As Integer x = Val(Text1(1).Text) ‘For k = 2 To ? ‘x = FindMin(Val(Text1(k).Text), ?) Next ‘lblResult.Caption = ?End SubPublic Function FindMin(x As Integer, y As Integer) ‘If x ? y Then FindMin = y Else FindMin = x End IfEnd Function三、综合应用题第 5 题 　　Private arr(100) As IntegerPrivate n As IntegerPrivate Sub Command2_Click( ) Open App.Path “out5.txt” For Output As #1 Print #1, Text1.Text Print #1, Text2.Text Print #1, Text3.Text Print #1, Text4.Text Close #1 MsgBox “保存成功！”End SubPrivate Sub Form_Load( ) Open App.Path “in5.txt” For Input As #1 n = 0 Do While Not EOF(1) Input #1, x n = n + 1 arr(n) = x Loop Close #1End SubPrivate Sub Command1_Click( )’========考生编写程序开始========???’==========考生编写程序结束==============End Sub第68套 一、基本操作题第 6 题 　　第 7 题 　　二、简单应用题第 8 题 　　Dim a(10) As IntegerPrivate Sub Command1_Click( ) x = a(1) y = a(1) For i = 1 To 10 If Option1.Value = True Then’ If a(i) ? x Then’ ?= a(i) End If’ ElseIf a(i) ? Then’ ?= a(i) End If Next If Option1.Value = True Then Label2.Caption = x Else Label2.Caption = y End IfEnd SubPrivate Sub Form_Load( ) For i = 1 To 10 a(i) = Int(Rnd * 100) NextEnd Sub第 9 题 　　Private Sub Command1_Click( ) Call MoveAllEnd SubPublic Sub MoveItem(L1 As ListBox, L2 As ListBox)’ L2.AddItem ?’ L2.AddItem L1.Text L2.AddItem L1.List(L1.ListIndex)’ L1.RemoveItem ? L1.RemoveItem L1.ListIndexEnd SubPublic Sub MoveAll( )’ For i = 0 To ? For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i) NextEnd SubPrivate Sub List1_D