2017年1月广东省高等教育自学考试
Visual Basic程序设计试题
（课程代码07759）
一、单项选择题（本大题共16小题,每小题1分，共16分） 在每小题列出的四个备选项中只有一个是符
合题目要求的，请将其选出并将“答题卡”的相应代码涂黑。错涂、多涂或未涂均无分。 1. 变量定义语句Dim A%，说明A是
A. 整型 B. 长整型 C. 单精度浮点数 D. 双精度浮点数 2. Len(\的结果是
A. 4 B. 8 C. 12 D. 16 3. 为了给变量x, y赋初值1，下列正确的赋值语句是
A. x=1,y=1 B. x=y=1 C. x=1=y=1 D. x=1；y=1 4. MsgBox函数的返回类型是
A. 整型 B. 单精度 C. 双精度 D. 字符串 5. 当在文本框内输入新的内容，会发生_________事件。
A. Click B. DblClick C. Change D. TextChange 6. 要判断复选框Check是否选中，需要用_________属性
A. Text B. Enabled C. Value D. Checked 7. 要把当前列表框List1选中要内容增加到列表框List2，可适用下列________语句。 A. List1. Add List2.Text B. List2. Add List1.Text C. List1. AddItem List2.Text D. List2. AddItem List1.Text 8. 滚动条的当前位置，可通过________属性获得。
A. Text B. Value C. Max D. Min 9. 下列数组定义中，_________的元素个数最少。
A. Dim A(3,2) B. Dim A(2,3) C. Dim A(-1 To 2,3) D. Dim A(1 To 2,3) 10. Sub过程的定义：Sub PrintOut(x As Integer)，下列调用正确的是
A. PrintOut3 B. CallPrintOut3 C. PrintOut\11.________属性决定组合框Combo的类型。
A. Value B. Style C. Text D. Content 12.使用通用对话框CommonDialog来选择文件时，如果只显示文本文件，则要设置______属性。 A. Text B. Filter C. FileType D. FileName 13.使用系统对象Screen不可以
A. 获取计算机当前活动窗体 B. 获取当前运行的文件名 C. 获取计算机的鼠标形状 D. 获取屏幕可以使用的所有字体 14. 把变量x的值写入到随机文件，使用_________语句。
A. Print#, x B. Write#, x C. Put#, x D. Get#, x 15.决定窗体是否有最大化按钮的属性是
2017年1月VB程序设计试题和答案 第7页 共8页
A. MaxButton B. MinButton C. Enabled D. Visible 16. 运行一个VB窗体程序，可以按_________键。
A. F1 B. F2 C. F5 D. F10
二、判断改错题（本大题共10小题，每小题2分，共20分）
判断下列每小题的正误。正确的在题后括号内打“√”；错误的打“×”，并改正划线部分。 17.局部变量的名字不能与全局变量的名字相同。 18.可以使用Exit Do语句退出For…Next循环。 19.动态数组重新定义时，可以改变数组的维数。 20. Function子过程必须有给函数名赋值的语句。
21.如果要改变Print输出语句的字体大小，可以修改FontSize属性。 22.顺序文件使用完毕，必须用Close语句来关闭文件。 23.鼠标按下会产生MousePress事件。
24.整数Integer类型的取值范围为-32768到32767。
25.判断文本框Text是否输入了某个字符串，可以使用InStr函数。 26.表达式15/5*2的结果为1。
三、简答题（本大题共2小题,每小题8分，共16分） 27. VB中顺序文件和随机文件有什么异同？
28. VB应用程序主要有哪三种模块？每种模块的主要作用是什么？
四、解读程序题（本大题共2小题，每小题6分，每空2分，共 12分）解读程序，根据题目对程序的说
明，在程序中空格处 填写正确代码。填错、未填均无分。
29.窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属
性为\的标签，一个名称为Command1、标题为\计算\的命令按钮。程序运行后，将把1～200之间能够被13整除的数添加到列表框。单击\计算\按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如题29图所示。
2017年1月VB程序设计试题和答案 第8页 共8页
Private Sub Form_Load() Dim I As Integer
For i=1 To 200
If(1)___________=0 Then List1. AddItem i End If Next End Sub
Private Sub Command1_(2)__________() Dim i, sum As Integer Sum=0
For i=0 To(3)_________ Sum=sum+List1.List(i) Next
Text1.Text=sum End Sub
30. 下列程序是判断一个整数（>=3）是否为素数，请补充完整。 Private Sub Command1_Click()
Dim n As Integer, i, k, prime As Integer
n=InputBox(\请输入一个整数（>=3）\ k=Int(Sqr(n)) i=(1)__________ prime=0
While i<=k And prime=0 If n Mod i=0 Then (2)__________ End If
i=(3)__________ Wend
If prime=1 Then Print n;\不是素数\ Else
2017年1月VB程序设计试题和答案 第7页共8页
07759Visual Basic程序设计201701真题及答案
