1、第 1 页 共 15 页要求：1大作业文件夹的取名规范：专业-班级-姓名。例如：计算机-1 班-马杰计算机-2 班-常云博信管-1 班-赵桑子信科-1 班-阮荣磊2大作业文件夹中含有：已完成的本次“补充习题” 作业的 Word2003版文档电子版；本次“补充习题”作业中标有题序号的每道编程题的.vbp文件和.frm 文件。3按上述取名规范，在主讲教师指定的时间内，将已完成的大作业文件夹压缩之后，发至：WUTCSL163.COM4将完成的大作业电子版打印出来，粘贴到自己的作业本上。5独立完成大作业，严禁抄袭。可视化编程 (VB) 补充 作业第 8章 循环结构补充作业题1有如下程序：Private
2、 Sub Form_Click()A = 0For j = 1 To 20 Step 2A = A + j 5Next j第 2 页 共 15 页Print AEnd Sub运行后，输出的结果是_ B_。A12 B16 C40 D1002有一个分数序列：2/1 ， 3/2， 5/3， 8/5， 13/8，；求这个序列前 20项的和。请将程序补充完整。注意：不得增行或删行，也不得更改程序的结构。Private Sub form_click()Dim s As SingleDim t1 As Integer, t2 As Integer, t As IntegerDim I As Integers
3、 = 0t1 = 2t2 = 1I = 0DO while _ I 0 Thens = s + ii = i + 1Elsei = i + 1End IfLoopPrint sEnd Sub运行后输出的结果是_C_。A4050 B5050 C4000 D45006有如下程序：Private Sub form_click()A$ = “54321“b$ = “abcde“For j = 1 To 5Print Mid$(b$, j, 1) + Mid$(A$, 6 - j, 1);Next jEnd Sub运行后输出的结果是_A_。Aa1b2c3d4e5 Ba5b4c3d2e1C5a4b3c2d
4、1e De1d2c3b4a57有如下的程序：Private Sub form_click()A = 1DoFor i = 1 To APrint “;Next iA = A + 2PrintIf A = 7 Then Exit Do第 4 页 共 15 页LoopEnd Sub运行后输出的结果是 A 。A B C D 8窗体上画一个命令按钮，其名称为 command1，然后编写如下事件过程：Private Sub command1_click()For I = 1 To 4If I = 1 Then x = IIf I 0 ThenA( i , j) =10* ( k-1) +j ElseA
5、( i , j ) =10 * (k+1 ) -j+1 End IfNext jNext iFor i = 1 To 10For j = 1 To 10Print Tab(5 * j); A(i, j);Next jPrintNext iEnd Sub11写出下列程序的计算机运行结果：Private Sub Command1_Click()s = 0: n = 0For i = 1 To 4For j = 1 To in = n + jNextPrint “n=“; ns = s + nPrint “s=“; sNextPrint”S=”;sEnd Subn=1第 6 页 共 15 页s=1n
6、=4s=5n=10s=15n=20s=3512编写 VB程序，计算 S=2+（2+4）+（2+4+6）+（2+4+6+8+50）之值。Private Sub Form_DblClick()Dim n%, i%, s%For i = 2 To 50 Step 2s = s + in = n + sNextPrint nEnd Sub13用循环结构编写 VB程序，输出下述五阶方阵：1 2 3 4 52 3 4 5 13 4 5 1 24 5 1 2 35 1 2 3 4Private Sub Form_DblClick()Dim i, j, k, n As Integern = InputBox(
7、“请输入有多少行“)For i = 1 To nFor j = i To 5 j = Format(j, “)Print “ “; j; “ “;Next jFor k = 1 To i-1k = Format(k, “)Print “ “; k; “ “;Next kPrintNext iEnd Sub第 7 页 共 15 页第 9章 数组补充作业题1Dim B120(10 T0 20) 所定义的数组元素个数是 A 。A11 B20 C30 D102Dim Abc(5) 所定义的数组元素个数是_B_。A5 B6 C4 D103有如下程序：Option Base 1Private Sub fo
8、rm_click()Dim a(3, 3)For j = 1 To 3For k = 1 To 3If j = k Then a(j, k) = 1If j k Then a(j, k) = 3Next kNext jFor I = 1 To 3For j = 1 To 3Print a(I, j);Next jPrintNext IEnd Sub程序运行时输出的结果是_B_。A1 3 3 B1 2 2 2 1 3 3 1 2 2 2 1 3 3 1 C2 3 3 D 2 1 1 1 2 3 3 2 1 1 1 2 3 3 2 4有如下程序：Option ExplicitOption Base
9、 1Dim a() As IntegerPrivate Sub form_click()Dim I As Integer, j As IntegerReDim a(3, 2)For I = 1 To 3For j = 1 To 2a(I, j) = I * 2 + jPrint “a(“; I; “,“; j; “)=“; a(I, j);第 8 页 共 15 页Next jPrintNext IEnd Sub该程序的输出结果是_D_。Aa(0,0)=3 a(0,1)=4 Ba(1,1)=2 a(1,2)=3a(1,0)=5 a(1,1)=6 a(2,1)=3 a(2,2)=4a(2,0)=7
10、 a(2,1)=8 a(3,1)=4 a(3,2)=5Ca(1,1)=3 a(1,2)=5 Da(1,1)=3 a(1,2)=4a(2,1)=4 a(2,2)=6 a(2,1)=5 a(2,2)=6a(3,1)=5 a(3,2)=7 a(3,1)=7 a(3,2)=8 5有如下程序：Option Base 1Private Sub form_click()Dim A(10)For K = 1 To 10A(K) = K 2Next KPrint A(K)End Sub程序运行后输出的结果是_错误_。6在给定程序的功能是建立并输出除主、副对角线上的元素为 0外，其余元素都为 1的方阵，在画线处填
11、入适当内容，将程序补充完整。Private Sub command1_click()Dim a(10, 10)For I = 1 To 10For j=_1 To 10_ If _I11_then a(I,j)=0 else a(I,j)=1 _End if_Next jNext IFor I = 1 To 10For j = 1 To 10Print a(I, j);Next jPrintNext IEnd Sub7下面程序的功能是分别计算给定的 10个数中正数之各与负数之和，最后输出这两个和数的绝对值之商。请在画线处填入适当的内容，将程序补充完整。Option Base 1第 9 页 共
12、15 页Private Sub command1_click()Dim AA = Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4)S1 = 0S2 = 0For k = 1 To 10If (A(k) 0) ThenS1=_S1+A(k)_ ElseS2=_S2 +A(k)_ End IfNext kx = Abs(S1) / Abs(S2)Print xEnd Sub8下面的程序是用选择交换法将 10个数排成升序，请在画线处填入适当内容，将程序补充完整。Option Base 1Private Sub command1_click()Dim arrar
13、r = Array(123, 96, 42, 39, 22, 14, 7, 4, 0, -7)Print “data before sorting:”For I = 1 To 10Print arr(I);Next IPrintFor I= 1_To 10_ k = IFor j=_ I+1 To 10_If arr(k)arr(j) then a=arr(k)_ arr(k) =arr(j)_ arr(j)=a_ Next jIf k k Then a(j, k) = 3Next kNext jCall p1(a()End SubPrivate Sub p1(a()For j = 1 To
14、3For k = 1 To 3第 13 页 共 15 页Print a(j, k);Next kNext jEnd Sub行程序时，输出结果为_A_。A1 3 3 3 1 3 3 3 1B3 1 1 1 3 1 1 1 3 C1 3 3 3 1 3 3 3 1 D显示出错信息6下列程序的功能是计算由输入的分数确定结论，分数是百分制的，0 到 59分的结论是“不及格”，60 到 79分的结论是“及格”，80 到 89分的结论是“良好”，90 到 100分的结论是“优秀”，分数小于 0或大于 100是“数据错！”。请在画线处填上适当的内容使程序完整。Option ExplicitPrivate F
15、unction jielum(ByVal score%) As StringSelect Case scoreCase _score59_and score79_and score89_and score m1 Thenm1 = a(I)m2 = IEnd IfNext IEnd IfPrint m1Print m2End Sub程序运行后，按回车键，输出结果为_。A48 B237 C498 D4984 1 5 411在窗体中添加三个命令按钮和一个文本框，并分别编写如下代码：Private Sub command1_click()Text1.Text = UCase(Text1.Text)En
16、d SubPrivate Sub command2_click()Text1.Text = LCase(Text1.Text)End SubPrivate Sub command3_click()Text1.Text = Text1.TagEnd SubPrivate Sub text1_keyup(keycode As Integer, shift As Integer)Text1.Tag = Text1.TextEnd Sub程序运行后，在文本框中输入“abc”,分别点击command1,command2，command3,文本框中显示_。AABC abc abc Babc ABC ABC Cabc ABC ABC DABC ABC abc12编写 VB程序，求 S=A！+B！+C！，分别用 Sub子过程和 Function函数过程两种方法实现阶乘的计算。13分别用 Sub子过程和 Function函数过程两种方法编写 VB程序，求四个整数的最大值，其中四个整数由键盘输入。
