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

试卷第 PAGE 7 页共 NUMPAGES 7 页 二级VB上机18（计算机二级考试VB考试卷） 姓名:_____________ 年级:____________ 学号:______________ 题型 选择题 填空题 解答题 判断题 计算题 附加题 总分 得分 评卷人 得分 第35套 一、基本操作题第 1 题 　　第 2 题 　　二、简单应用题第 3 题 　　第 4 题 　　Private Sub Command1_Click( ) Dim n As Integer, k As Integer, m As Integer Dim c As String, a As String For k = 0 To 2 If Op1(k).Value Then’ n = Val(Op1(k). ? ) End If Next k m = Len(Text1.Text) a = ““‘ For k = 1 To ?’ c = Mid$(Text1.Text, ? , 1) c = String(1, Asc(c) + n) If c ＜ “z” Or c ＜ “Z” And c “a” Then c = String(1, Asc(c) - 26) End If’ ? = a + c Next k Text2.Text = aEnd Sub三、综合应用题第 5 题 　　Dim a(50) As IntegerPrivate Sub C1_Click( ) Dim k As Integer, ch As String Open App.Path “in5.dat” For Input As #1 ch = ““ For k = 1 To 50’ Input #1, ? ch = ch + Str(a(k)) + “ “ Next k Close #1’ Text1.Text = ?End Sub第36套 一、基本操作题第 6 题 　　第 7 题 　　二、简单应用题第 8 题 　　Option Base 1Private Sub Command1_Click( ) Dim arrN(30) As Integer Dim Max As Integer Randomize For i = 1 To 30 ‘arrN(i) = Int(Rnd * ?) Next i ‘? = arrN(1) For i = 2 To 30 ‘If ? Then Max = arrN(i) End If Next i Print MaxEnd Sub第 9 题 　　Sub SaveData( ) Open App.Path ““ “outtxt.txt” For Output As #1 Print #1, Text1.Text Close #1End SubFunction Fun( ) ‘ 需要考生编写的代码三、综合应用题第 10 题 　　Option Base 1Private Sub Form_Click( ) Const N = 5 Const M = 5 Dim mat%(M, N)’ Dim ?’ 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’ If ? Then Print Tab(5 * j); Mat(i, j) ; Next j Next iEnd Sub