阅读程序写结果题型总结与解法小议.doc

阅读程序写结果题型总结与解法小议阅读程序写出结果是VB等级考试中的一种重要题型，考察的实际是正向思维，即给出程序，然后模拟程序执行，最后分析出结果。相对于补充代码这种考察逆向思维的题型，难度应该是比较小的。综合历年考题，我们可以将阅读程序写结果考察的知识侧重点不同分为四类，题型一： 分支与循环 1单击窗体后在窗体上显示的内容是： ；若将程序中的A语句与B语句位置互换，再次执行程序，单击窗体后在窗体上显示的内容是： 。Option ExplicitPrivate Sub Form_Click() Dim Sum As Integer, i As Integer For i = 7 To 4 Step -1 Select Case i Case 4, 7 Sum = Sum + i A语句 Case 3, 5 Sum = Sum + 2 B语句 Case Else Sum = Sum + 1 End Select Next i Print Sum=; SumEnd Sub2在过程中有语句：For I=N1 to N2 Step N3，在该循环体内有下列四条语句，其中 会影响循环执行的次数。 N1=N1+I N2=N2+N3 I=I+N3 N3=2*N3A. B. C. D. 3执行下面的程序，在窗体上显示的输出结果的第一行： ，第二行是： Option ExplicitPrivate Sub Form_Click() Dim M As Integer, N As Integer, K As Integer N = -3 For M = 6 To 1 Step N M = M + 1 N = N - M K = K + 1 Next M Print K Print NEnd Sub题型二： 字符串处理 1执行下面的程序，在窗体上显示的输出结果的第一行是 ，第二行是 。Option ExplicitPrivate Sub Form_Click() Dim s As String, i As Integer, flag As Boolean s = THIS IS A BOOK. s = LCase(s) Print s flag = True For i = 1 To Len(s) If Mid(s, i, 1) = Then flag = True ElseIf flag Then s = Left(s, i - 1) & UCase(Mid(s, i, 1) & Right(s, Len(s) - i) flag = False End If Next i Print sEnd SubKey: this is a book. This Is A Book.2执行下面程序，单击命令按钮Command1，则窗体上显示的第一行是： ，第二行是： ，第三行是： 。Option ExplicitPrivate Sub Command1_Click() Dim s As String, t As String Dim k As Integer, m As Integer s = BASICY k = 1: m = k For k = 1 To Len(s) Step m + 1 t = t & Chr(Asc(Mid(s, m, 1) + k) k = k + 1 If Mid(s, k, 1) = Y Then Exit For m = m + k Print t Next k Print mEnd SubKey: C CW 8题型三： 数组 1执行下面的程序，在窗体上显示的输出结果的第二行是： ，第五行是： ，第六行是： 。Option ExplicitPrivate Sub Form_Click() Dim a(3, 3) As Integer, i As Integer, j As Integer Dim k As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Print a(i, j); Next j Print Next i Print k = (i - 1) * 3 For i = 1 To 3 For j = 1 To 3 a(i, j) = k k = k - 1 Print a(i, j); Next j Print Next iEnd SubKey: 4 5 6 9 8 7 6 5 42运行下面的程序，从键盘上输入3，程序运行结束后，A(1,1)的值是 ，A(2,2)的值是 ， A(2,3)的值是 。Private Sub Form_Click() Dim I As Integer, J As Integer, K As Integer Dim A() As Integer, N As Integer N = InputBox(输入N) ReDim A(N, N) For I = 1 To N For J = 1 To N K = K + 1 A(I, J) = K + 10 Next J Next I Call Sub1(A, N) Print A(1, 1); A(2, 2); A(2, 3)End SubPrivate Sub Sub1(A() As Integer, N As Integer) Dim I As Integer, J As Integer Dim T As Integer, K As Integer K = N + 1 For I = 1 To Int(N / 2) For J = 1 To N - 1 T = A(I, J) A(I, J) = A(K - J, I) A(K - J, I) = A(K - I, K - J) A(K = I, N + 1 - J) = A(J, K - 1) A(J, K - 1) = T Next J Next IEnd SubKey: 17 15 12题型四： 过程（含嵌套调用、静态变量、参数传递及变量作用域、递归等，并经常结合循环和字符函数以及数组，是比较综合的一类考题，通常至少有两道考题。） 由于考察知识点比较多，先给出一个例子，以后我将专门讲下过程解题的方法与技巧。递归：Option Base 1Private Sub Command1_Click() Dim a a = Array(1, 1, 1, 1) Call sub1(a, 4) For i = 1 To 4 Print a(i) Next iEnd SubPrivate Sub sub1(x, n) If n 1 Then For i = 1 To n x(n) = x(n) + 1 C