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

阅读程序写结果题型总结与解法小议 阅读程序写出结果是VB等级考试中的一种重要题型，考察的实际是正向思维，即给出程序，然后模拟程序执行，最后分析出结果。相对于补充代码这种考察逆向思维的题型，难度应该是比较小的。 综合历年考题，我们可以将阅读程序写结果考察的知识侧重点不同分为四类， 题型一： 分支与循环 1．单击窗体后在窗体上显示的内容是： ；若将程序中的A语句与B语句位置互换，再次执行程序，单击窗体后在窗体上显示的内容是： 。 Option Explicit Private 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=; Sum End Sub 2．在过程中有语句：For I=N1 to N2 Step N3，在该循环体内有下列四条语句，其中 会影响循环执行的次数。 ① N1=N1+I ② N2=N2+N3 ③ I=I+N3 ④ N3=2*N3 A. ①② B. ①②③ C. ③ D. ①②③④ 3．执行下面的程序，在窗体上显示的输出结果的第一行： ，第二行是： Option Explicit Private 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 N End Sub 题型二： 字符串处理 1．执行下面的程序，在窗体上显示的输出结果的第一行是 ，第二行是 。 Option Explicit Private 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 s End Sub Key: this is a book. This Is A Book. 2．执行下面程序，单击命令按钮Command1，则窗体上显示的第一行是： ，第二行是： ，第三行是： 。 Option Explicit Private 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 m End Sub Key: C CW 8 题型三： 数组 1．执行下面的程序，在窗体上显示的