分支结构题型分析.docVIP

分支结构题型分析 (1)运行下面的程序，单击窗体后在窗体上显示的第一行结果是　[1]　；第二行结果是 [2]　；第三行结果是　[3]　。Private Sub Form_Click() 　　Dim i As Integer, s As Integer 　　For i = 1 To 10 　　　　s = s + i 　　　　If s 10 Then 　　　　　　Print s 　　　　　　s = 0 　　　　End If 　　Next i End Subi s 打印 1 1 2 3 3 6 4 10 5 15 15 0 6 6 7 13 13 0 8 8 9 17 17 0 10 答案：(1)15 　　　(2)13 　　　(3)17 (1)执行下面程序，第一行输出结果是　[1]　，第二行输出结果是　[2]　。 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 Suba b 打印 0 1 0+1*1=1 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___，第二行输出结果是___-20___。 Option Explicit Private Sub Form_Click() Dim I As Integer, J As Integer J = 10 For I = 1 To J I = I + 1 J = J - I Next I Print I Print J End Sub i j 打印 0 10 1 2 10-2=8 3 4 8-4=4 5 6 4-6=-2 7 8 -2-8=-10 9 10 -10-10=-20 11 11 -20 分析：J的变化不影响循环终值10。 2. 执行下面的程序，第一行输出结果是___3___，第二行输出结果是___-18___。 Otion 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. 在过程中由语句For I=N1 To N2 Step N3，在该循环体内有下列四条语句，其中___34___会影响循环执行的次数。 N1=N1+I ②N2=N2+N3 ③ I=I+N3 ④N3=2*N3 (A)①② (B)①②③ (C)③ (D)①②③④ 答案：4. 执行下面程序，在窗体上显示的输出结果的第二行是___4 5 6___，第五行是___9 8 7___，第六行是___6 5 4___。 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 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 i End Sub 1 2 3 4 5 6 7 8 9 k=9 9 8 7 6 5 4 3 2 1 分析：退出循环