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

试卷第 PAGE 8 页共 NUMPAGES 8 页 二级VB上机14（计算机二级考试VB考试卷） 姓名:_____________ 年级:____________ 学号:______________ 题型 选择题 填空题 解答题 判断题 计算题 附加题 总分 得分 评卷人 得分 第27套 一、基本操作题第 1 题 　　第 2 题 　　二、简单应用题第 3 题 　　Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 1 Then Text1.Text = InputBox(“请输入要添加的项目”) ‘List1.AddItem ? End If If Button = 2 Then Text1.Text = InputBox(“请输入要删除的项目”) ‘For i = 0 To ? ‘If List1.List(i) = ? Then ‘List1.RemoveItem ? End If Next i End IfEnd Sub第 4 题 　　Option Base 1Private Function FindMin(a( ) As Integer) Dim Start As Integer Dim Finish As Integer, i As Integer ‘Start = ?(a) ‘Finish = ?(a) ‘Min = ?(Start) For i = Start To Finish ‘If a(i) ? Min Then Min = ? Next i FindMin = MinEnd FunctionPrivate Sub Command1_Click( ) Dim arr1 Dim arr2(4) As Integer arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text)) For i = 1 To 4 arr2(i) = CInt(arr1(i)) Next i ‘M = FindMin(?) Print “最小值是: “; MEnd Sub三、综合应用题第 5 题 　　’ 提供给考生的程序Option Base 1Dim Arr(100) As Integer’ 提供给考生的程序Sub ReadData( ) Open App.Path ““ “datain1.txt” For Input As #1 For i = 1 To 100 Input #1, Arr(i) Next i Close #1End Sub’ 提供给考生的程序Sub WriteData(Filename As String, Num As Integer) Open App.Path ““ Filename For Output As #1 Print #1, Num Close #1End Sub第28套 一、基本操作题第 6 题 　　第 7 题 　　二、简单应用题第 8 题 　　Private Sub Form_KeyDown(KeyCode As Integer, _Shift As Integer) If Chr(KeyCode) = “A” Then Text1.Text = InputBox(“请输入要添加的项目”) ‘List1.AddItem ? End If If Chr(KeyCode) = “D” Then Text1.Text = InputBox(“请输入要删除的项目”) ‘For i = 0 To ? ‘If List1.List(i) = ? Then ‘List1.RemoveItem ? End If Next i End IfEnd Sub第 9 题 　　Option Base 1Private Function Average(a( ) As Integer) As Single Dim Start As Integer, Finish As Integer Dim i As Integer Dim Sum As Integer ‘Start = ?(a) ‘Finish = ?(a) ‘Sum = ? For i = Start To Finish ‘Su