分支结构题型分析
运行下面的稈序,单击窗体后在窗体上显示的第一行结果是_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
Next i
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
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
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 T