要求：
1．大作业文件夹的取名规范：专业-班级-姓名。例如：
计算机-1班-马杰 计算机-2班-常云博 信管-1班-赵桑子 信科-1班-阮荣磊
2．大作业文件夹中含有：
①已完成的本次“补充习题” 作业的Word2003版文档电子版； ②本次“补充习题”作业中标有题序号的每道编程题的.vbp文件和.frm文件。
3．按上述取名规范，在主讲教师指定的时间内，将已完成的大作．．．．．．．．．．．业文件夹压缩之后，发至：WUTCSL@163.COM
4．将完成的大作业电子版打印出来，粘贴到自己的作业本上。 5．独立完成大作业，严禁抄袭。
可视化编程 (VB) 补充作业
第8章 循环结构
补充作业题
1．有如下程序：
Private Sub Form_Click() A = 0
For j = 1 To 20 Step 2 A = A + j \\ 5 Next j Print A End Sub
第 1 页 共 15 页
运行后，输出的结果是___ B____。
A．12 B．16 C．40 D．100 2．有一个分数序列：
2/1 ， 3/2， 5/3， 8/5， 13/8，??；求这个序列前20项的和。请将程序补充完整。
注意：不得增行或删行，也不得更改程序的结构。 Private Sub form_click() Dim s As Single
Dim t1 As Integer, t2 As Integer, t As Integer Dim I As Integer s = 0 t1 = 2 t2 = 1 I = 0
DO while _ I <20______ S=___t1/t2_______ t = t1 + t2
____t2=t1_________ _____t1=t________ I = I + 1
Print I; t1; t2; s Loop Print s End Sub
3．有如下程序：
Private Sub Form_click() A = 0
For j = 1 To 10
A = A + j \\ 2 + j Mod 3 Next j Print A End Sub
运行后，输出的结果是___D____。
A．20 B．25 C．30 D4．有如下程序：
Private Sub Form_clik() Dim s%, i% s = 0 i = 100
Do While i <= 120
If (i \\ 3) * 3 = i Then s = s + 1 i = i + 1 End If
第 2 页 共 15 页
．35 i = i + 1 Loop Print s End Sub
运行后输出的结果是___A____。
A．7 B．9 C．11 D．13 5．有如下程序：
Private Sub form_click() s = 0 i = 1
Do While i <= 100
If i Mod 10 <> 0 Then s = s + i i = i + 1 Else
i = i + 1 End If Loop Print s
End Sub运行后输出的结果是___C____。
A．4050 B．5050 C．4000 D．4500 6．有如下程序：
Private Sub form_click() A$ = \ b$ = \ For j = 1 To 5
Print Mid$(b$, j, 1) + Mid$(A$, 6 - j, 1); Next j
End Sub运行后输出的结果是___A____。
A．a1b2c3d4e5 B．a5b4c3d2e1 C．5a4b3c2d1e D．e1d2c3b4a5 7．有如下的程序：
Private Sub form_click() A = 1 Do
For i = 1 To A Print \ Next i A = A + 2 Print
If A = 7 Then Exit Do Loop End Sub
第 3 页 共 15 页
运行后输出的结果是 A 。
A．@ B． @
@@@ @@@ @@@@@ @@@@@ C．@@@@@ D．@@@@@
@@@ @@@ @ @
8．窗体上画一个命令按钮，其名称为command1，然后编写如下事件过程：
Private Sub command1_click() For I = 1 To 4
If I = 1 Then x = I
If I <= 4 Then x = x + 1 Print x; Next I End Sub
程序运行后，单击命令按钮，其输出结果为 B 。
A．1 2 3 4 B．2 3 4 5 C．2 3 4 4 D．3 4 5 6 9．给定程序的功能是求解数学灯谜。有算式：
ABCD -） CDC ____________ ABC
下面程序计算并输出A，B，C和D四位数据。请将程序补充完整。
注意：不得增行或删行，也不得更改程序的结构！ Private Sub form_clik() For A = 1 To 9 For b = 0 To 9 For C = 1 To 9 For D = 0 To 9
X=_____________ Y=_____________ Z=______________ If X - Y = Z Then Print A; b; C; D End If Next D Next C Next b Next A End Sub
10．给定程序的功能是建立并打印10*10蛇形方阵，蛇形方阵如图8.1所示。 给定的程序不完整，请在画线处填入适当的内容。 注意：不得增行或删行，也不得更改程序的结构！
第 4 页 共 15 页
图8.1 蛇形方阵数列
Option Base 1
Private Sub form_click() Dim A(10, 10) For i = 1 To 10 For j = 1 To 10 K = K + 1
If i Mod 2 <> 0 Then
A( i , j) =10* ( k-1) +j Else
A ( i , j ) =10 * (k+1 ) -j+1 End If Next j Next i
For i = 1 To 10 For j = 1 To 10
Print Tab(5 * j); A(i, j); Next j Print Next i End Sub
11．写出下列程序的计算机运行结果： Private Sub Command1_Click() s = 0: n = 0 For i = 1 To 4 For j = 1 To i n = n + j Next
Print \ s = s + n Print \ Next
Print”S=”;s End Sub n=1 s=1
第 5 页 共 15 页