《程序设计基础(VB)》考试A卷
3 选择题（每题2分，10题，共20分）
1 Visual Basic 6.0的窗体文件的扩展名是（）。
A vbp
B frm
C cls
D doc
2 Visual Basic 6.0 属于（）。
A 机器语言
B 汇编语言
C 高级语言
D 二进制
3 以下用来设置对象是否可用的属性是（）。
A visible
B enabled
C hide
D windowstate
4 当单击一个对象时引发的事件是（）。
A dblclick
B click
C unload
D load
5 能够将大写字母变为小写字母的函数是（）。
A len()
B ucase()
C lcase()
D sqr()
6 用来弹出一个对话框的语句是（）。
A print
B msgbox
C cls
D end
7 程序的基本控件结构是（）
A 顺序结构、多分支结构和单分支结构
B For......Next结构、Do......Loop结构和Select......Case 结构。
C 顺序结构、选择结构和循环结构
D 单行结构和多行结构。
8 下列程序执行的结果为( )
x=10 : y=20
z=x=y
Print x;y;z
A 10 20 False
B 10 20 20
C 20 20 False
D False 20 False
9 以下程序的运行结果是（）。
S=9
if s mod 3=0 then
s=s+5
else
s=s-5
endif
print s
A 9
B 3
C 14
D 4
10 下面有一段循环程序，该循环的循环次数是（）。
x=1
Do
x=x+3
Print x
Loop Until x>=8
A 1
B 2
C 3
D 4
6 是非题（每题1分，10题，共10分）
1 Visual Basic 6.0中定义公共变量使用的语句是private（）。
2 在do loop循环中使用exit可以结束do循环（）。
3 用Lbound()函数可以取得数组的下标上界（）。
4 在Visual Basic 6.0中定义子过程的语句是sub（）。
5 在Visual Basic 6.0中，默认的数组下标下界是从1开始（）。
6 退出VB程序的命令是Quit（）。
7 设x="good boy!"，则表达式left(x,2)的值为y!（）。
8 在Visual Basic 6.0中if…end if句语不可以嵌套使用（）。
9 在Visual Basic 6.0中，使用InputBox函数可以输入数据（）。
10在Visual Basic 6.0中，表达式"1"+2的结果是3（）。
7 程序基本设计题（20分）
打开工程“prjCxJbSjA.vbp”，并打开窗体“frmCxJbSjA.frm”按照以下要求完成题目：
1）5个属性设置（15分）
（1）设置窗体的相关属性，使窗体的最大化按钮不可用；
（2）设置文本框txtXm的相关属性，使其能够输入的最大长度为10个字符；
（3）设置文本框txtXm的相关属性，使其内容为只读；
（4）设置列表框LstXm的相关属性，使列表框中有三个项目“周星星”、“刘一手”、“杨真好”（不能有错别字、改变顺序，否则零分）。
（5）在窗体上增加一个按钮（Command1），设置其标题为“注册”。
2）程序设计（5分）
为注册按钮（Command1）的单击事件添加一条语句，当用户单击该按钮时，让该窗体上列表框（LstXm）中选择的内容显示在文本框（txtXm）中。
10 程序填空题（每空５分，４空，共20分）
有两个填空题，每题有两空要填。
将【】删除改为你自己的语句，使程序能够正常运行，不得增、删程序行，由此引起的后果由学生自己负责。
(7) 打开工程“prjCxTkA.vbp”，在窗体“frmCxTkA.frm”中的命令按钮cmdA的单击事件中有两空请补充完整，使程序能够运行。
要求程序运行后，在文本框（txtA）和文本框（txtB）中输入两个数字，当单击计算按钮（cmdA）时，则将文本框（txtA）和文本框（txtB）中两个数字相除，并将结果在文本框（txtC）中显示出来。
(8) 打开工程“prjCxTkB.vbp”，将窗体“frmCxTkB.frm”中的命令按钮cmdA下的代码空缺处补充完整（将【】删除改为你自己的语句），当单击计算命令按钮cmdA时，求1到100之间所有能被5和3同时整除的整数之和，并将结果显示在窗体的文本框（txtA）中。
13 程序修改题（每错5分，3错，共15分）
打开工程“prjCxXg.vbp”，在窗体“frmCxXg.frm”中的命令按钮cmdCxXg的单击事件中有三处错误，请修改之。
每行’**********found**********的下面一行有错，请改正并运行之。
直接在错误行进行修改，不得增、删程序行，由此引起的后果由学生自己负责。
该程序的功能是编程求出税务部门应征税收，假设税务部门征收所得税，规定如下：
①收入在400元以内，免征；
②收入为400～1000元，超过400元的部分纳税3％；
③收入超过1000元的部分，纳税5％。
14 程序设计题（15分）
(1)打开工程“prjCxSjA.vbp”，在窗体“frmCxSjA.frm”上画一个按钮，标题为“计算”（其名称属性为Command1），然后在按钮中实现以下功能。
（以下算法在Command1的单击事件中实现）
(2) 定义一个单精度类型的数组a有6个元素和一个双精度类型变量s
(3) 使用for循环为数组a的四个元素a(0),a(1),a(2),a(3),a(4),a(5)依次赋值为1,2,3,4,5,6
(4) 使用for循环将数组a中的所有元素的乘起来，并存到变量s中
(5) 将变量s中的数据在窗体的标签（ret）中显示出来。
提示：s的初值必须是1
理论答案
3 选择题（每题2分，10题，共20分）
1 2 3 4 5 6 7 8 9 10
B C B B B B C A C C
6 是非题（每题1分，10题，共10分）
1 2 3 4 5 6 7 8 9 10
错错错对错错错错对对
设计题的代码：
Dim a(5) As Single
Dim s As Double
For i = 0 To 5
a(i) = i + 1
Next i
s = 1
For i = 0 To 5
s = s * a(i)
Next i
Label1.Caption = Str(s)。
