VB中期测试考试卷(答案).doc

江　南　大　学　考
《程序设计基础VB》期中试卷
使用专业、班级 学号 姓名
题　数
一
二
三
四
总　　分
得　分

本题
得分

答题说明：请将答案填写到答题纸上。
一、 选择题〖每题1分，共计42分〗；
1. 在Visual Basic集成环境中，可以列出工程中所有模块名称的窗口是（）
A. 工程资源管理器窗口 B. 窗体设计窗口 C. 属性窗口 D. 代码窗口
2. 在设计阶段，当按Ctrl + R键时，所打开的窗口是（）
A. 工程资源管理器窗口 B. 工具箱窗口 C. 属性窗口 D. 代码窗口
3. VB应用程序设计的一般步骤是（）。
A. 分析-->设计-->界面-->编码-->测试 B. 界面-->设计-->编码-->分析-->文档
C. 分析-->界面-->编码-->设计-->测试 D. 界面-->编码-->测试-->分析-->文档
4. 以下说法中，正确的是（）
A. 对象的运行态属性不出现在对象属性窗口中 B. 属性值只能在属性窗口中设置
C. 在程序中可以用赋值语句给对象的任何一个属性赋值
D. 属性是对象的特征，所有的对象都有相同的属性
5. 以下叙述中错误的是（）。
A. 在Visual Basic的窗体中，一个命令按钮是一个对象
B. 事件是能够被对象识别的状态变化或动作
C. 事件都是由用户的键盘操作或鼠标操作触发的 D. 不同的对象可以具有相同的方法
6. 以下描述中错误的是（）。
A. 多窗体应用程序中每个窗体作为一个磁盘文件保存
B. 多窗体应用程序的启动窗体可以在设计时设定
C. 在多窗体应用程序中，可以有多个当前窗体D. 多窗体应用程序可以编译生成一个EXE文件
7. 以下关于多窗体的叙述中，正确的是（）。
A. 只有第一个建立的窗体才是启动窗体
B. 向一个工程添加多个窗体，存盘后生成一个窗体文件
C. 打开一个窗体时，其他窗体自动关闭 D. 任何时刻，只有一个当前窗体
8. 可以设置为VB程序运行启动对象的是（）。
①工程文件 ②任意一个窗体 ③窗体模块中的Main()过程 ④标准模块中的Main()过程
A. ①②③ B. ②③④ C. ②③ D. ②④

- １９ -

9. 以下说法中，错误的是（）。
A. 以.frm为扩展名的文件是窗体模块文件 B. 以.bas为扩展名的文件是标准模块文件
C. 窗体模块文件包含该窗体及其窗体上相关控件的属性信息
D. 标准模块文件由事件过程、通用过程等内容组成
10. 以下叙述中错误的是（）。
A. .vbp文件是工程文件，一个工程可以包含.bas文件
B. .vbg文件是工程组文件，一个工程组可以由多个工程组成
C. .vbp文件是工程文件，一个工程可以包含多个.frm文件组成
D. .frm文件是窗体文件，一个窗体可以包含.bas文件
11. 以下叙述中正确的是（）。
A. 窗体及窗体上所有控件的事件过程代码都保存在窗体文件中
B. 在工程中只有启动窗体可以建立菜单 C. 窗体名称必须与窗体文件的名称相同
D. 程序一定是从某个窗体开始执行的
12. 以下关于窗体的叙述中错误的是（）。
A. 程序运行期间，可以改变Name属性值 B. 窗体的Name属性用于标识一个窗体
C. 运行程序时改变窗体大小，能够触发窗体的Resize事件
D. 窗体的Enabled属性为False时，不能响应单击窗体的事件
13. 以下描述中错误的是（）。
A.窗体的标题通过其Caption属性设置 B.窗体的名称（Name属性）可以在运行期间修改
C.窗体的背景图形通过其Picture属性设置 D.窗体最小化时的图标通过其Icon属性设置
14. 窗体Form1上有一名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（）。
A. Private Sub Form1_Click()

End Sub
C. Private Sub Command1_Click()

End Sub
B. Private Sub Form_Click()

End Sub
D. Private Sub Command_Click()

End Sub
15. 假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是（）。
A. Click B. Load C. LostFocus D. KeyPress
16. 若在程序运行时，需要将焦点主动设置到指定的对象上，应调用该对象的（）方法。
A. Move B. SetFocus C. Refresh D. Drag
17. 下列语句中，错误的是（）。
A. Label1.Caption = "Hello" B. Command1.Caption = "Hello"
C. Text1.Caption = "Hello" D. Frame1.Caption = "Hello"
18. 为了使标签具有“透明”的显示效果，需要设置的属性是（）。
A. Caption B. Alignment C. BackStyle D. AutoSize
19. 为了使标签能自动调整大小以显示标题（Caption属性）的全部文本内容，应把该标签的（）属性设置为True。
A. AutoSize B. Alignment C. AutoRedraw D. Stretch
20. 假定一个滚动条的LargeChange属性值为100，则100表示（）。
A. 单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量 B. 滚动框位置的最大值
C. 拖动滚动框时滚动框位置的变化量 D. 单击滚动条箭头时滚动框位置的变化量
21. 设窗体上有一个名称为HS1的水平滚动条，如果执行了语句：
HS1.Value = (HS1.Max - HS1.Min) / 2 + HS1.Min则（）。
A. 滚动条处于最左端 B. 滚动条处于最右端 C. 滚动条处于中间位置
D. 滚动条可能处于任何位置，具体位置取决于Max、Min属性值
22. 设窗体上有一个名为List1的列表框，并编写下面的事件过程：
Private Sub List1_Click()
Dim ch As String
ch = List1.List(List1.ListIndex)
List1.RemoveItem List1.ListIndex
List1.AddItem ch
End Sub
程序运行时，单击一个列表项，则产生的结果是（）。
A. 该列表项被移动到列表的最前面 B. 该列表项被删除
C. 该列表项被移动到列表的最后面 D. 该列表项被删除后又在原位置插入
23. 窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List_Click事件过程中能正确实现上述功能的语句是（）。
A. List1.RemoveItem List1.Text B. List1.RemoveItem List1.Clear
C. List1.RemoveItem List1.ListCount D. List1.RemoveItem List1.ListIndex
24. 若要引用列表框List1中最后一个数据项的内容，应使用（）。
A. List1.List(List1.Count) B. List1.Text
C. List1.ListIndex D. List1.List(List1.Count - 1)
25. 窗体上有一名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（）。
A. Print Cb1.Selected B. Print Cb1.List(Cb1.ListIndex)
C. Print Cb1.Selected.Text D. Print Cb1.List(ListIndex)
26. 若要获得组合框中输入的数据，可使用的属性是（）。
A. Listindex B. Text C. Caption D. List
27. 列表框中的项目保存在一个数组中，这个数组的名字是（）。
A. Column B. Style C. MultiSelect D. List
28. 为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是（）。
A. 把这2组单选按钮设置为名称不同的2个控件数组 B. 使2组单选按钮的名称分别相同
C. 使2组单选按钮的Index属性分别相同 D. 把2组单选按钮分别画到2个不同的框架中
29. 窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面的事件过程：
Private Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = False
End Sub
程序运行时，单击命令按钮，则
产生的结果是（）。
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Command1.Left = Command1.Left + 10
End Sub
A. 命令按钮每10秒向左移动一次 B. 命令按钮每10毫秒向右移动一次
C. 命令按钮每10毫秒向左移动一次 D. 命令按钮每10秒向右移动一次
30. 如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是（）
A. 它的Y1、Y2属性的值相等 B. 它的X1、X2属性的值相等
C. 它的X1、Y1属性的值分别与X2、Y2属性的值相等
D. 它的X1、X2属性的值分别与Y1、Y2属性的值相等
31. 以下说法中正确的是（）
A. MouseUp事件是鼠标向上移动时出触发的事件
B. MouseUp事件过程中的x，y参数用于修改鼠标位置
C. 在MouseUp事件过程中可以判断用户是否使用了组合键
D. 在MouseUp事件过程中不能判断鼠标的位置
32. 以下关于菜单设计的叙述中错误的是（）。
A. 各菜单项可以构成控件数组 B. 每个菜单项可以看成是一个控件
C. 设计菜单时，菜单项的“有效”不选，即“□有效(E)”。表示该菜单项不显示
D. 菜单项只响应单击事件
33. 设菜单编辑器中各菜单项的属性设置如下表所示：
序号
标题
名称
复选
有效
可见
内缩符号
1
File
File

√
√
无
2
Open
OpenFile

√
√
1
3
Save
SaveFile

√

1
4
Exit
EndOfAll

√
1
5
Help
ShowHelp
√

√
1
针对上述属性设置，以下叙述中错误的是（）
A. 属性设置有误，存在“标题”与“名称”重名现象 B. 运行程序，序号为“3”的菜单项不显示
C. 运行程序，序号为“4”的菜单项不可用 D. 运行程序，序号为“5”的菜单项前显示“√”
34. 下列关于菜单的说法中，错误的是（）。
A. 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器
B. 除了Click事件之外，菜单项不能响应其他事件 C. 菜单项的快捷键不能任意设置
D. 菜单的名称项（Name属性）不可缺省

35. 以下关于弹出式菜单的叙述中，错误的是（）。
A. 弹出式菜单在菜单编辑器中建立 B. 一个窗体只能有一个弹出式菜单
C. 弹出式菜单的菜单名（主菜单项）的“可见”属性通常设置为False
D. 弹出式菜单通过窗体的PopupMenu方法显示
36. 假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单项的名称为a1，其“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是
A. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button = 1 And Button = 2 Then PopupMenu a1
End Sub
B. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu a1
End Sub
C. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button = 1 Then PopupMenu a1
End Sub
D. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button = 2 Then PopupMenu a1
End Sub
37. 窗体上有一个名称为CD1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程。运行上述程序，如下叙述正确的是（）。
Private Sub Command1_Click()
CD1.DefaultExt = "doc"
CD1.FileName = "VB.txt"
CD1.Filter= "All(*.*)|*.*|Word|*.Doc|"
CD1.FilterIndex = 1
CD1.ShowSave
End Sub
A. 打开的对话框中文件“保存类型”框中显示“All(*.*)”
B. 实现保存文件的操作，文件名是VB.txt
C. DefaultExt属性与FileName属性所指明的文件类型不一致，程序出错
D. 对话框的Filter属性没有指出txt类型，程序运行出错
38. 在窗体上画一个名称为CD1的通用对话框，并有如下程序：
Private Sub Form_Load()
CD1.DefaultExt = "doc"
CD1.FileName = "c:\files.txt"
CD1.Filter = "应用程序(*.exe)|*.exe"
End Sub
程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类型是
A. 应用程序(*.exe) B. .doc
C. .txt D. 不确定

39. 以下关于通用对话框的叙述中，错误的是（）。
A. 若没有指定InitDir属性值，则起始目录为当前目录
B. 用一个通用对话框控件可以建立几种不同的对话框
C. FilerTitle属性指明了文件对话框中所选择的文件名
D. 文件对话框用属性FilerIndex指定默认过滤器，它是一个从0开始的整数
40. 下列可作为Visual Basic变量名的是（）。
A. A#A B. 4ABC C. ?xy D. Print_Text
41. 以下合法的VB变量名是（）。
A. case B. name10 C. t-name D. x*y
42. 设有如下变量声明语句：Dim a, b As Boolean ，则下面叙述中正确的是（）。
A. a和b都是布尔型变量 B. a是变体型变量，b是布尔型变量
C. a是整型变量，b是布尔型变量 D. a和b都是变体型变量
43. 表达式Int(Rnd(0)*50)所产生的随机数范围是（）。
A. 【0, 50】 B. 【1, 50】 C. 【0, 49】 D. 【1, 49】
44. 下面可以产生20~30（含20和30）的随机整数的表达式是（）。

A. Int(Rnd*10+20) B. Int(Rnd*20+30) C Int(Rnd*11+20). D. Int(Rnd*30+20)
45. 下列表达式中，不能将一个4位整数N的百位数字提取出来的是（）。
A. N \ 100 Mod 10 B. N \ 10 Mod 100 C. Mid(CStr(N), 2, 1) D. (N Mod 1000) \ 100
46. 表达式3*5^2 Mod 23\3的值是（）。
A. 2 B. 5 C. 6 D. 10
47. 设x是小于10的非负数。对此陈述，以下正确的VB表达式是（）。
A. 0≤x<10 B. 0<=x<10 C. x>=0 and x<10 D. x>=0 or x<=10
48. 设a=1，b=2，c=3，逻辑表达式a < b And Not c > b Xor c < a的值是（）
A. True B. -1 C. False D. 1
49. 设a = 2，b = 3，c = 4，d = 5，则下面语句的输出是（）
Print 3 > 2 * b Or a = c And b <> c Or c > d
A. -1 B. 1 C. True D. False
50. 设x=5，执行语句Print x=x+10，窗体上显示的是（）。
A. 15 B. 5 C. True D. False
51. 若设X=1，Y=2，则不能在窗体上显示出“A=3”的语句是（）
A. Print A = X+Y B. Print "A="; X+Y C. Print "A=" + Str(X+Y) D. Print "A=" & X+Y
52. 设x = 3.3，y = 4.5，表达式x - Int(x) + Fix(y)的值是（）
A. 4.3 B. 4.8 C. 3.5 D. 4.7
53. 下列有关转换函数的说法中，正确的是（）。
A. Int和Cint函数的区别仅在于结果的数据类型不同
B. Int和Fix函数将非整数数据转换成整数，转换后的结果类型是Long
C. Cint函数的功能是将其他类型的数据转换成Integer类型
D. 在处理负数时，Int和Fix函数的结果是相同的
54. 分别执行以下语句，输出结果为True的是（）
A. Print CInt(4.5) > Int(4.5) B. Print CInt(-4.5) > Fix(-4.5)
C. Print CInt(-4.5) > Int(-4.5) D. Print CInt(4.5) > Fix(4.5)
55. 在窗体上画两个名称分别为Text1、Text2的文本框。Text1的Text属性为“Database”。现有如下事件过程，运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是（）。
Private Sub Text1_Change()
Text2.Text = Mid(Text1, 1, 5)
End Sub
A. DataA B. DataB C. aData D. aBase
56. 设x为字符型变量，n为整型变量，以下关于Mid函数的说法中，错误的是（）
A. Mid(x, n)表示从字符串x的第n个位置开始向右取所有字符
B. 若x = "xyz"，执行语句Mid(x, 1, 2) = "ab"后，x的值为"abz"
C. Mid(x, n, 1)的取值与Left(x, n)的取值相同
D. 使用Mid函数可提取字符串中指定位置、指定个数的字符
57. 设有字符串变量s，其值为“abcd”，可将s的值替换为“aabcd”的语句是（）。
A. Left(s, 1) = "aa" B. s = "aa" & Right(s, Len(s) - InStr(s, "a"))
C. s = "aa" & Mid(s, InStr(s, "aa")) D. Mid(s, 1, 2) = "aa"
58. 表达式InStr(4, "abcabca", "c") + Int(2.5)的值为（）
A. 7 B. 8 C. 5 D. 9
59. 数学表达式对应的VB表达式是（）
A. Sqr(x + y) - Sin(Abs(y ^ 2 * x) / (x - y)) B. Sqr(x + y) - Sin(Abs(y ^ 2 * x) / x - y)
C. Sqr(x + y) - Sin(|y ^ 2 * x|/ (x - y)) D. Sqr(x + y) - Sin(|y ^ 2 * x| / x - y)
60. 对应数学表达式的VB表达式是（）。
A. Sin(30 * 3.14159 / 180) + Abs(x ^ 2 + Sqr(y)) + Exp(x) - Log(n) / Log(10)
B. Sin(30) + Abs(x ^ 2 + Sqr(y)) + e ^ x - Log(n) / Log(10)
C. Sin(30 * 3.14159 / 180) + Abs(x ^ 2 + Sqr(y)) + Exp(x) - Log(n)
D. Sin(30) + Abs(x ^ 2 + Sqr(y)) + e ^ x - Log(n)
61. 窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下运行程序，单击命令按钮，在输入对话框中分别输入2、3，
Private Sub Command1_Click()
x = InputBox("输入x：", , 0)
y = InputBox("输入y：", , 0)
Label1.Caption = x + y
End Sub
运行的结果是（）
A. 程序运行有错误，数据类型不匹配
B. 程序运行有错误，InputBox函数的格式不对
C. 在Label1中显示5
D. 在Label1中显示23

62. 设程序中有如下语句： 运行程序，执行上述语句，输入5并单击输入对
X = InputBox ("输入", "数据", 100)
Print X
话框上的“取消”按钮，则窗体上输出（）。
A. 0 B. 5 C. 100 D. 空白
63. 在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，则在信息
Private Sub Command1_Click()
MsgBox Str(123 + 321)
End Sub
框中显示的提示信息为（）
A. 字符串“123 + 321” B. 字符串“444”
C. 数值“444” D. 空白
64. 下面4个语句中，错误的是（）
A. N = InputBox("输入N：", , 5) B. InputBox("输入N：", , 5)
C. MsgBox "请回答" D. K = MsgBox("请回答")
65. 以下关于MsgBox函数的说法中，正确的是（）。
A. MsgBox函数有返回值，且返回值类型为数值型 B. MsgBox函数没有返回值
C. MsgBox函数有返回值，且返回值类型为字符型
D. 通过MsgBox函数中的第一个参数，可以设置信息框中的图标以及按钮的个数与类型
66. 以下关于If分支结构语句的说法中，正确的是（）。
A. 有End If一定有与之配对的If B. 有If一定有与之配对的ElseIf
C. 有If一定有与之配对的End If D. 有If一定有与之配对的Else
67. 设有分段函数： 下述选项描述错误的是（）。

A. Select Case x
Case Is<0 : Y=5
Case Is <=5,Is>0 : Y=2*x
Case else : Y= x * x + 1
End select
C. Y = IIf (x < 0, 5, IIf(x <= 5, 2 * x, x * x + 1))
B. If x < 0 Then
y = 5
Elseif x <= 5 then
y = 2 * x
Else
y = x * x + 1
End if
D. If x < 0 Then y = 5
If x <= 5 and x>=0 then y = 2 * x
If x > 5 then y = x * x + 1
68. 设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件
Private Sub Command1_Click()
x! = Val(Text1.Text)
Select Case x
Case Is < -10, Is >= 20 : Print "输入错误"
Case Is < 0 : Print 20 - x
Case Is < 10 : Print 20
Case Is <= 20 : Print x + 10
End Select
End Sub
过程。程序运行时，如果在文本框中输入-5，则在单击命令按钮后的输出结果是（）。
A. 25 B. 20
C. 5 D. 输入错误

69. Select Case X结构中(X为Integer类型)，若判断条件为X=5，正确的Case语句应该是（）。
A. Case X=5 B. Case Is 5 C. Case =5 D. Case 5
70. 在Select Case X结构语句中（X为Integer类型），能正确描述5≤X≤10的Case语句是（）
A. Case Is >= 5, Is <= 10 B. Case 5 <= X <= 10
C. Case 5 <= X, X <= 10 D. Case 5 To 10
71. 假定有以下程序：
Private Sub Form_Click()
a = 1: b = a
Do Until a >= 5
x = a * b
Print b; x
a = a + b
b = b + a
Loop
End Sub
程序运行后，单击窗体，输出结果是（）
A.1 1
2 3
B.1 1
2 4
C.1 1
3 8
D.1 1
3 6
72. 窗体上有一个名称为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click()
x = 15
Do While x > 0
x = x - 3
x = IIf(Int(x / 5) = x / 5, x + 2, x)
Loop
Print x
End Sub
程序运行后，单击命令按钮Command1，输出结果为（）。
A. 0 B. -3
C. -2 D. -1
73. 窗体上有一个名称为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click()
a = 10
For k = 1 To 5 Step -1
a = a - k
Next k
Print a; k
End Sub
程序运行后，单击命令按钮Command1，输出结果为（）A. 10 1 B. -5 -5
C. 10 0 D. -5 6
74. 设有如下程序：Private Sub Form_Click()
a$ = "123456"
For i = 1 To 6
Print Tab(12 - i);
Next i
End Sub

程序运行后，单击窗体，要求结果如图所示，则在 处应填入的内容为（）
A. Left(a$, i) B. Mid(a$, 8 - i, i) C. Right(a$, i) D. Mid(a$, 7, i)
75. 设有如下程序：
Private Sub Form_Click()
Dim i As Integer, x As String, y As String
x = "ABCDEFG"
For i = 4 To 1 Step -1
y = Mid(x, i, i) + y
Next i
Print y
End Sub
程序运行后，单击窗体，输出结果为（）
A. AABBCDEFG
B. ABCCDEDEFG
C.ABCDEFG
D.AABBCCDDEEFFGG
76. 设有如下程序：
Private Sub Form_Click()
Dim s As Long, f As Long, n As Integer, i As Integer
f = 1 : n = 4
For i = 1 To n
f = f * i
s = s + f
Next i
Print s
End Sub
程序运行后，单击窗体，输出结果是（）
A. 32 B. 33
C. 34 D 35
77. 有人编写了如下程序： 上述程序的功能是：
Private Sub Form_Click()
Dim s As Integer, x As Integer
s = 0 : x = 0
Do While s = 10000
x = x + 1
s = s + x ^ 2
Loop
Print s
End Sub
计算s=1 + 22 + 32 + … + n2 + …，直到s > 10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是（）。
A. 把x = 0改为x = 1
B. 把Do While s = 10000改为Do While s <= 10000
C. 把Do While s = 10000改为Do While s > 10000
D. 交换x = x + 1和s = s + x ^ 2的位置
78. 窗体上有一个名称为Command1的命令按钮，其事件过程如下：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, s As Double
s = 0: i = 1: j = 0: k = -1
Do While i < 6
s = s + k * (j / i)
i = i + 1
j = j + 1
k = -k
Loop
Print s
End Sub
以上程序所计算的表达式是：
A. -1/2 + 2/3 - 3/4 + 4/5
B. 1/2 - 2/3 + 3/4 - 4/5
C. 1 - 1/2 + 2/3 - 3/4 + 4/5
D. -1 + 1/2 - 2/3 + 3/4 - 4/5
79. 有一个数列，它的前3个数为0，1，1，此后的每个数列都是其前面3个数之后，即0，1，1，2，4，7，13，24，……要求编写程序如下：
Private Sub Form_Click()
Dim i As Integer, a As Integer, b As Integer
Dim c As Integer, d As Integer
a = 0: b = 1: c = 1: d = a + b + c
i = 5
While d <= 1000
Print d;
a = b: b = c: c = d : d = a + b + c
i = i + 1
Wend
End Sub
运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是（）
A.把While d <= 1000改为While d > 1000
B. 在i = 5的上面增加一个语句：Print a; b; c;
C.把i = i + 1移到While d <= 1000的下面
D. 把i = 5改为i = 4
80. 现有以下程序：
Private Sub Command1_Click()
c1 = 0 : c2 = 0
For i = 1 To 100
If i Mod 3 = 0 Then
c1 = c1 + 1
ElseIf i Mod 7 = 0 Then
c2 = c2 + 1
End If
Next
Print c1 + c2
End Sub

此程序运行后输出的是在1~100范围内（）。
A. 同时能被3和7整除的整数个数
B. 能被3或7整除个数（同时被3和7整除的数只记一次）
C. 能被3整除，而不能被7整除的整数个数
D. 能被7整除，而不能被3整除的整数个数
81. 设有如下程序: Private Sub Command1_Click