Print \任意三角形\End If Else
print “不构成三角形” End If End Sub
2.Private Sub Command2_Click()
Dim a% a = Text1
If (a Mod 4 = 0 And a Mod 100 <> 0) Or a Mod 400 = 0 Then Print a; \年是闰年\Else
Print a; \年不是闰年\End If End Sub
16
习 题 四
4.1 选择题
1. 以下（ ）是正确的For?Next结构。
（A）For x=1 To Step 10 （B）For x＝3 To -3 Step -3
? ?
Next x Next x
（C）For x=10 To 1 （D）For x=3 To 10 Step 3 re：?? ? Next x Next y 2. 下列循环能正常结束循环的是（ ）。 （A）i=5 （B）i=1 Do Do
i=i+1 i=i+2
Loop Until i<0 Loop Until i=10 （C）i=10 （D）i=6 Do Do
i=i-1 i=i-2
Loop Until i<0 Loop Until i=1 3. 下面程序段的运行结果为（ ）。 For i=3 To 1 Step -1 Print Spc（5-i）； For j=1 To 2*i-1 Print \； Next j Print Next i
（A） * （B）***** （C）***** （D）***** *** *** *** *** ***** * * *
4. 当在文本框输入“ABCD”四个字符时，窗体上显示的是（ ）。 Private Sub Textl_Change（） Print Textl.Text； End Sub
（A）ABCD （B）A （C）AABABCABCD （D）A B AB
C ABC
D ABCD 5. 哪个程序段不能分别正确显示l！、2！、3！、4！的值（ ）。
17
（A）For i=1 To 4 （B）For i=1 To 4 n=1 For j=l To i For j=1 To i n=1 n=n*j n=n*j Next j Next j Print n Print n Next i Next i
（C）n=1 （D）n=1: j=1
For j=1 To 4 Do While j<=4 n=n*j n=n*j Print n Print n Next j j=j+1 Loop 6. 以下（ ）是错误的循环结构。
（A）For x=1 To Step l0 （B）For x＝3 To -3 Step -3
For y=1 to 5 For y=x to 3 ? ?
Next y Next y
Next x Next x
（C）For x=10 To 1 （D）For x=3 To 10 Step 3
For y=1 to x For y=1 to -4 step x ? ?
Next y Next y
Next x Next x 7. 下列循环不能正常结束循环的是（ ）。 （A）i=5 （B）i=1 Do Do
i=i-1 i=i+2
Loop While i=5 Loop While i=10 （C）i=10 （D）i=6 Do Do
i=i\\2 i=i-2
Loop Until i=0 Loop Until i>1 8. 下面程序段的运行结果为（ ）。 For i=1 To 10 Step 4 i=i+1 Next i Print i
（A）11 （B）12 （C）13 （D）14
18
9. 下面程序段的循环次数为（ ）。 For i=1 To 10 Step 4 i=i+1 Next i Print i
（A）1 （B）2 （C）3 （D）4 10. 下面程序段的循环次数为（ ）。 For i=1 To 10 Step 4 i=i+1
If i>10 Then i=i-4 Next i Print i
（A）1 （B）2 （C）3 （D）4
11. VB程序运行中出现死循环现象时,应按键盘上的（ ）组合键中断程序。 （A）Ctrl+Break （B） Alt+Break（C）Shift+Break （D）Tab+Break 12. 当在文本框输入“ABCD”四个字符时，窗体上显示的是（ ）。 Private Sub Text1_Change() For i= 1 to Len(Text1.Text) Print Mid(Text1.Text,i,1); Next i Print End Sub
（A）ABCD （B）A （C）AABABCABCD （D）A B AB
C ABC
D ABCD 13. 当单击命令按钮command1时，窗体上显示的是（ ）。
private sub command1_click（） a=0
for i=1 to 2 for j=1 to 4
if j mod 2<>0 then a=a+1 end if a=a+1 next j next i print a end sub
19
（A）11 （B）12 （C）13 （D）14
14. 用循环结构解决问题时，如果循环的次数已知，通常采用（）；当循环的
次数未知，需要判断条件是否成立来决定循环执行和退出时，通常采用（）。 （A）For?Next循环、Do?Loop循环 （B）Do?Loop循环、For?Next循环 （C）For?Next循环、For?Next循环 （D）Do?Loop循环、Do?Loop循环
15. 循环结构中，无论循环条件是否成立都会至少循环一次的循环是（ ）。 （A）For?Next循环 （B）Do While?Loop循环 （C）Do?Loop Until循环 （D）Do Until?Loop循环
4.2 填空题
1．要使下列For语句循环执行20次，循环变量的初值应当是： For k=( )To -5 Step-2 2．下面程序段显示( )个“*”。 For i=1 To 5 For j=2 To i Print \； Next j Next i
3．下列第40句共执行了( )次，第41句共执行了( ) 30 For j=1 To 12 Step 3 40 For k=6 To 2 Step-2 41 Print j，k 42 Next k 43 Next j
4．以下程序运行后，si、sj、sk、i、j、 k的结果分别是( )( )、( )、( )、( )、( ) Private Sub Command1_Click() si=0：sj=0 For i=1 To 2 For j=1 To i sk=0
For k=j To 3 sk=sk+1 Next k sj=sj+1 Next j si=si+1 Next i
20
次。 、。