分支结构题型分析.docVIP

分支结构题型分析 运行下面的稈序,单击窗体后在窗体上显示的第一行结果是_m_；第二行结果是 ⑵； 第三行结果是_ ［引。 13 17 ⑴执行下面稈序，第一行输出结果是_m_，第二行输出结果是_i2i—。 Private Sub Form_Click() Dim a As Integer, b As Integer a = 1: b = 0 Do While a=5 b = b + a * a a = a + 1 Loop Print a Print b End Sub a b 打印 0 1 0+l*l=l 2 1+2*2=5 3 5*3*3=14 4 14+4*4=30 5 30+5*5=55 6 6 55 答案:(1)6 (2)55 2.执行下血的程序，第一行输出结果是_11_,第二行输出结果是 二2Q 。  For I = 1 To J 1 = 1+ 1 J二 J?I Next I Print I Print J End Sub 3 4 8-4=4 5 6 4-6=-2 7 8 -2-8=-10 9 10 -l()-l()=-20 11 11 -20 分析：J的变化不影响循环终值1（）。 2.执行下面的程序，第一行输出结果是 3 ，第二行输出结果是二18 ， 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 M N K 打印 6 ?3 0 6+1=7 -3-7=-10 0+1=1 4 4+1=5 -10-5=-15 1 + 1=2 2 2+1=3 -15-3=-18 2+1=3 0 3 -18 34.在过程中由语＜iJFor I=NlToN2 StepN3,在该循环体内有下列四条语句，其中 34 会影响循环执行的次数。 ?N1=N1+I ②N2=N2+N3 ③ I=I+N3 ④N3=2*N3 （A）①② （B）①②③ （C）③ （D）①②③④ 答案：C 分析：当循环变量被改变了值后，将会影响循环次数。 4.执行下面程序，在窗体上显示的输出结果的第二行是 4 5 6 ,第五行是 9 8 7 , 第六行是 654 o Option Explicit Private Sub Form_Click() Dim a(3, 3)As Integer, i As Integer Dim j As Integer, k As Integer For i = 1 To 3 For j = 1 To 3 1 23 456 789  a(i,j)=(i- l)*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 i End Sub k=9 987 654 32 1 分析：退出循环示的循环变量为终值加步长。 5.执行下面的稈序，在窗体上显示的第一行输出结果是 135 79 ,第三行输出结果是 4 . Form_Click()事件过程中的第二个For-Next循环共执行了 2 次。 Option Explicit Option Base 1 Private Sub Form_Click() Dim a(5)As Integer, i As Integer, j As Integer For i = 1 To 5 a(i)= 2 * i - 1 ，打印出 13 5 7 9 Print a(i); Next i Print Forj = 1 To i - 2 Call Subl(a(j), j) Print j Next j End Sub ■ 1 a(i) 1 1 2 3 3 5 4 7 5 9 a(j) j/p 1 1 2 3 Public Sub Subl(x As Integer, p As Integer) If x - p = 2 Then P = P+ 1 Else X P 1 1 2 P = P + 2 End If End Sub 1.执行下瓯的程序，单击窗体后在窗体上显示的内容是 14 :若将程序屮的A语句与B 语句的位置互换，再次执行稈序，单击窗体后在窗体上显示的内容是 ￡ 。 Option Explicit Private Sub Form_Click() Dim Sum As Integer, i As Integer For i = 7 To