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

试卷第 PAGE 3 页共 NUMPAGES 8 页 二级VB上机9（计算机二级考试VB考试卷） 姓名:_____________ 年级:____________ 学号:______________ 题型 选择题 填空题 解答题 判断题 计算题 附加题 总分 得分 评卷人 得分 第17套 一、基本操作题第 1 题 　　第 2 题 　　二、简单应用题第 3 题 　　　　第 4 题 　　三、综合应用题第 5 题 　　Option Base 1Private Sub Form_Click( ) Const N = 5 Const M = 5’ Dim ? Dim i, j, t’ Open App.Path ““ “datain.txt” ? As #1 For i = 1 To N For j = 1 To M’ ? Next j Next i Close #1 Print Print “初始矩阵为：” Print For i = 1 To N For j = 1 To M Print Tab(5 * j); Mat(i, j); Next j Print Next i Print Print For i = 1 To N For j = 1 To M t = Mat(1, j) Mat(1, j) = Mat(3, j)’ ? Next j Next i Print Print “交换第一行和第三行后的矩阵为：” Print For i = 1 To N For j = 1 To M Print Tab(5 * j); Mat(i, j); Next j Print Next iEnd Sub第18套 一、基本操作题第 6 题 　　第 7 题 　　二、简单应用题第 8 题 　　Private x As IntegerPrivate Sub Command1_Click( ) x = Val(InputBox(“请输入正整数”))End SubPrivate Sub Command2_Click( ) ‘Select Case Combo1.? Case 0’ MsgBox Str(x) ? Case 1 ‘ MsgBox Str(x) ? Case Else Exit Sub End SelectEnd SubPrivate Function f1(ByVal x As Integer) As String If x 2 ＜ x / 2 Then f1 = “是奇数” Else f1 = “是偶数” End IfEnd Function’Private Function f2(ByVal x As Integer) ?’ If x Mod 7 = ? Then f2 = “能被7整除” Else f2 = “不能被7整除” End IfEnd Function第 9 题 　　’Private Flag As ? Private Sub Form_Click( ) If Flag Then Shape1.Top = Shape2.Top Shape1.Left = Shape2.Left Flag = Not (Flag) Else’ Shape1.Top = Shape2.Top + Shape2.Height - ?’ Shape1.Left = Shape2.Left + Shape2.Width - ? Flag = Not (Flag) End IfEnd SubPrivate Sub Form_Load( ) Flag = TrueEnd Sub三、综合应用题第 10 题 　　’ 提供给考生的程序Option Base 1Dim Arr1(20) As IntegerDim Arr2(20) As Integer’ 提供给考生的程序Sub ReadData1( ) Open App.Path ““ “datain1.txt” For Input As #1 For i = 1 To 20 Input #1, Arr1(i) Next i Close #1End Sub’ 提供给考生的程序Sub ReadData2( ) Open App.Path ““ “datain2.txt” For Input