2017年1月广东省高等教育自学考试
Visual Basic程序设计试题
（课程代码07759）
一、单项选择题（本大题共16小题，每小题1分，共16分）在每小题列出的四个备选项中只有一个是符
合题目要求的，请将其选出并将“答题卡”的相应代码涂黑。错涂、多涂或未涂均无分。
1. 变量定义语句Dim A%，说明A是
A. 整型
B. 长整型
C. 单精度浮点数
D. 双精度浮点数
2. Len("12345678")+ Len("1234")的结果是
A. 4
B. 8
C. 12
D. 16
3. 为了给变量x, y赋初值1，下列正确的赋值语句是
A. x=1,y=1
vb程序设计是啥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"A3"
D. CallPrintOut"A3"
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.决定窗体是否有最大化按钮的属性是
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属
性为"Sum"的标签，一个名称为Command1、标题为"计算"的命令按钮。程序运行后，将把1～200之间能够被13整除的数添加到列表框。单击"计算"按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如题29图所示。
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
Print n;"是素数"
End If
End Sub
五、程序阅读题（本大题共4小题，每小题4分，共16分）
阅读程序，在题后的空格处填写程序运行的结果。填错、未填均无分。
31. 窗体上有一个命令按钮(Command1)，编写如下程序，当运行程序后，单击命令按钮，窗体的输出结果
是___________。
Private Sub Command 1_Click ()
Dim a, i, j As Integer
a=0
For i=1 To 3
For j=1 To 5
If j Mod 3<>0 Then
a=a+1
End If
a=a+1
Next j
Next i
Print a
End Sub
32. 窗体上有一个命令按钮(Command1)，编写如下程序，当运行程序后，单击命令按钮，窗体的输出结果
是___________。
Private Sub Command 1_Click ()
Dim a( 3,3) As Integer
For i=l To 3
For j =1 To 3
If i=j Then a(i, j)=1
If i<j Then a(i, j)=2
If i>j Then a(i, j)=3
Next j
Next i
Print a(1,1)+ a(2,1)+ a(3,1)* a(3,2)
End Sub
33.窗体上有一个名称为Command1的命令按钮和三个名称分别为Text1、Text2、Text3的文本框，然后编
写如下程序代码：
Private x As Integer
Private Sub Command 1_Click()
Static y As Integer
Dim z As Integer
n=5
z=n+z
y=y+z
x=x+z
Text1. Text=x
Text2. Text=y
Text3. Text=z
End Sub运行程序，连续三次单击命令按钮后，则三个文本框中显示的内容分别是__________。
34. 窗体上有一个名为Text1的文本框、一个名为Label1的标签和一个名为Command1的命令按钮，编写
如下事件过程：
Private Sub Command 1_Click()
Dim s As String
S=InputBox("请输入")
Text1. Text=s
End Sub
Private Sub Text1_Change()
Label1.Gaption=Right (Trim(Text1. Text),3)
End Sub
程序运行后，如果在对话框中输入123456，则在标签Label1中显示的内容是_________。
六、编程题（本大题共2小题，每小题10分，共20分)编写程序实现题目所给要求。
35.用对话框输入x的值，根据下列函数计算y的值，并在窗体上输出y的值。要求使用Select Case语
句。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。