程序设计复习题及参考答案.doc

资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。
中南大学网络教育课程( 专科) 考试复习题及答案
《Visual Basic程序设计与应用》
一、 选择题: 在每小题给出的四个选项中, 只有一项是符合题目要求的, 请把所选项前的字母填在题后的括号内。
1. Visual Basic程序中分隔一行中各语句的字符是( ) 。 [ ]
A) ‘
B) :
C) \
D) _
2. 下列可作为Visual Basic的变量名的是( ) 。 [ ]
A: Filename B: A( A＋B) C: A%D D : Print
3. 要让菜单项无效, 应将( ) 属性值设置为False。 [ ]
A. Visible B. Enabled C. Moveable D. Checked
4. 以下过程是( ) 事件。
Prviate Sub Form_Load( )
……
End Sub [ ]
A: 命令按钮的单击 B: 命令按钮的装载
C; 窗体的装载 D: 窗体的单击
5. Vb中描述文件扩展名的是( ) 属性。 [ ]
A: Drive B: Pattern
C: FileName D: Path
6. 关于Visual Basic中事件的说法中, 不正确的为( ) 。 [ ]
A) 事件是由Visual Basic预先定义好的, 能够被对象识别的动作
B) DblClick( 双击) 是Visual Basic中的一种事件
C) 一个对象能够识别一个或多个事件
D) 对于一个系统提供的对象能够识别哪些事件, 需要程序员自己定义
7. 下列控件中可设置滚动条是( ) 。 [ ]
A. 检查框( 复选框)
B. 框架
C. 文本框
D. 标签框
8. 在Visual Basic中建立一个空窗体, ( )不会是其默认名。 [ ]
A. Form1 B. Form2 C. Formx D. Form10
9. Const One&=1, 则One为( ) 类型的常数。 [ ]
A) 整型
B) 字节型
C) 长整型
D) 单精度型
10. 关于逻辑型数据, 下列说法错误的是( ) 。 [ ]

A. 逻辑型数据只有两种可能值: True或者False
B. 当把逻辑值转换为数值时False转为0, True转为1
C. 当把其它类型数据转换为逻辑数据时, 非0数转换为True, 0转换为False
D. 逻辑型数据以2个字节存储
11. 以下( ) 不是Visual Basic的特点。 [ ]
A: 结构化程序设计 B: 集成可视化程序开发环境
C: 事件驱动编程机制 D: 可将用户的编程思想自动转换成程序代码
12. 窗体的load事件能够被用来实现的功能为( ) 。 [ ]
A: 确定窗体的位置 B: 从内存中清楚一个窗体
C: 在程序启动时对属性和变量初始化 D: 重画窗体
13. 单复选框的控件名称为( ) 。 [ ]
A. OptionBotton B. CheckBox C. PictureBox D. Image
14. 若要禁止窗体被移动, 可设置窗体的( ) 属性为False。
A．Moveable B: Move C: MinButton D: ControlBox
15. 若要设置定时器的定时间隔设为10秒, 应将( ) 属性值设为10000。[ ]
A. Interval B. Value C. Enabled D. Text
16. 以下( ) 是文件夹列表框。
A. DirListBox B. DriveListBox C. FileListBox D. ComboBox
17. 以下( ) 可从通用对话框的”字体”对话框中返回用户选择的字体名。
A. FileName B. Path C. FontName D. Color
18. 下列哪个操作能够清除文本框对象Text1的内容( ) 。
A. Text1.Text="" B. Text1.cls C. Text＝"" D. cls
19. 要想经过单击Command1弹出Form2窗体, 则可在Command1的单击事件中, 使用( ) 命令。
A. Load Form2 B. Form2.Show C. Form2.SetFocus D. Form2.PopupMenu
20. 以下属性中只在运行时起作用的为( ) 。
A. Caption属性 B. Visible属性 C. BorderStyle属性 D. Picture属性
21. 在运行时, 若要使文本框获得输入焦点, 可调用文本框对象的( ) 方法来实现。
A. Refresh B. GetFocus C. SetFocus D. Tab
22. 在窗体中利用Print方法输出文本信息时, 信息的输出位置由( ) 属性设置。
A. Left B. Top C. x,y D. CurrentX,CurrentY
23. 语句: Dim student(10,5 to 100) 定义的是一个( ) 维数组。
A. 2 B.3 C. 5 D.10
24. 默认情况下, 语句: Dim student(10 to 11 ,4) 定义的数组有( ) 个元素。
A. 20 B.22 C. 10 D.11
25. 已知Eng(1)=90, Math(1)=80, Comp(1)=95 Total(1)= Eng(1)+Math(1)+Comp(1), 则Total(1)=( ) 。
A. 265 B.90 C. 80 D.95
26. 已知在”通用”代码有以下语句:
Dim A( ) As Integer
则, 在某一事件代码中使用( ) 是正确的。
A. ReDim A(30,4) B. ReDim A(4) As
C. ReDim A(100) D. ReDim A( )
27. Int( -23.512) 的值为( ) 。
A.-23 B.-24 C. 24 D.23
28. 将ASCII码转换成字符串的函数是( ) 。
A. Chr$ B. Str$ C. Asc D. Val
29. 表示式 Mid("Beijing ",4,4)的值是( ) 。
A. Beij B. jing C. inj2 D.
30. A$="+3.14+2", 则Val( A$) 的值为( ) 。
A. +3.14+2 B. +5.14 C. 3.14 D. 5.14

二、 填空题: 请把答案填在题中横线上。
1. Visual Basic中有一种控件组合了文本框和列表框的特性,这种控件是_______。
2. Visual Basic提供的对数据文件的三种访问方式为随机访问方式,__________和二进制访问方式。
3. 为了能在运行时把d:\pic文件夹下的图形a.jpg装入图片框Picture1,所使用的语句为___________。
4. 计时器控件能有规律的以一定时间间隔触发_______事件,并执行该事件过程中的程序代码。
5. Visual Basic应用程序中标准模块文件的扩展名是____________。
6. 与数学表示式cos2(a+b)÷(3+x)+5对应的Visual Basic表示式是_____________.
7. 要同时选定窗体上的多个控件,能够按住______或_______键,然后依次单击窗体上的各控件.
8. 在Visual Basic中最基本的对象是__________.
9. 要在Visual Basic工程中添加一个新的窗体,能够在主窗口的工具栏中选择_______按钮.
10. 在代码窗口中,输入某行代码并按回车键之后,如果代码变成______颜色,说明该行代码有语法错误.
三、 程序改错:
1. 程序功能: 已知24有8个正整数因子(即: 1,2,3,4,6,8,12,24), 而24正好被其因子个数8整除。问[100,300]之间有多少个这样的数。程序中有两行有错误。改正错误, 使它能输出正确的结果。
Private Sub Command1_Click()
Dim n1 As Integer, n2 As Integer
Dim x As Integer
Dim i As Integer
n2 = 0
For x = 100 To 300
n2 = 0
For i = 1 To 100
If x Mod i = 0 Then
n1 = n1 + 1
End If
Next i
If x Mod n1 = 0 Then
n2 = n2 + 1
End If
Next x
Print n2
End sub
2.程序功能: 利用函数pd计算1~5000之间能被17和37整除的数的个数。程序中有错误, 改正错误, 使程序能输出正确的结果。
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
s = 0
For i = 1 To 5000
If pd(i) Then s = s + 1
Next i
Print s
End Sub
Private Function pd(x As Integer) As Boolean
If x Mod 17 = 0 Or x Mod 37 = 0 Then
pd = True
Else
pd = False
End If
End Fuction
3. 程序功能: 根据整型参数m, 计算100-999的平方根的倒数之和。程序的函数fun()中有一行有错误, 改正错误, 使它能输出正确的结果。
Private Sub Command1_Click()
Print Format(fun(100, 999), "#.######")
End Sub

Private Function fun(m As Integer, n As Integer) As Single
y = 0
For i = m To n
t = 1 / Sqr(i)
y = y + t
Next i
fun = t
End Function
四、 程序填空题。
1.士兵在演练过程中, 队伍变换成10、 21、 35、 60行时, 队形都能成为矩形。问参加演练的士兵最少有多少人?
Private Sub Form_Click()
Dim a%, b%, c%, d%, n%
a = 10
b = 21
c = 35
d = 60
n = 60
Do While ________________________________
n = n + 1
Loop
Print n
End Sub
2. 用cos(x)≈1－x^2/2!+x^4/4!-……+(-1)^(n)*(x^(2n))/(2n)!的公式求近似值, 直到最后一项绝对值小于0.00001为止。设x＝7。
Private Sub Form_click()
Dim x As Integer, i As Integer
Dim xpower As Single
Dim y As Single
x = Val(InputBox("请输入x: "))
i = 0
z = 1
y = 1
Do While Abs(z) > 0.00001
factor = 1
i = i + 1
For j = 1 To 2 * i
factor = factor * j
Next j
xpower = x ^ (2 * i)
________________________________
y = y + z
Loop
Print format(y, "0.######")
End Sub
3. 已知一个数列的前3项为0, 0, 1, 从第4项开始, 每项为前3项的和, 编程求此数列的第39个数。
Private Sub Form_Click()
Dim i%, f0&, f1&, f2&, f3&
FontSize = 14: FontBold = True
f0 = 0
f1 = 0
f2 = 1
For i =4 to 39
________________
f0 = f1
f1 = f2
f2 = f3
Next i
Print f3
End Sub
五、 编程题:
1、 编写程序, 验证输入的3位正整数是否为同构数。X若出现在自己的平方数的末3位, 则X是同构数。如625的平方是390625, 则625为同构数。

2.设有如下两组数据:
A: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
B: 100, 99, 98, 97, 96, 95,94, 93, 92, 91,
编写一个程序, 把上面两级数据分别读入两个数组中, 然后把两个数组中对应的元素相加, 即1+100……10＋91。并把相应的结果放入三个数组中, 最后输出第3个数组的值。

3.用Circle方法画圆弧和椭圆弧。如下图所示。要求: 中心点相同, 圆弧长度和角度随机, 颜色随机, 圆弧数为20。
4.在图片框中用PSet方法随机地产生若干个彩色的点。窗体上有3个命令按钮: ”画点”、 ”清除”、 和”退出”。如下图所示。
PSet方法: ［对象名.］Pset［Step］( x,y) ［, 颜色］

六、 问答题( 15分)
1. 简述多文档及其特性。
简述对话框的分类和特点。

《VB程序设计与应用》答案

一、 选择题: 在每小题给出的四个选项中, 只有一项是符合题目要求的, 请把所选项前的字母填在题后的括号内。
1
2
3
4
5
B
A
B
C
B
6
7
8
9
10
D
C
C
C
D
11
12
13
14
15
D
C
A
A
A
16
17
18
19
20
A
C
A
A
B
21
22
23
24
25
C
D
A
C
A
26
27
28
29
30
C
B
A
B
C

二、 填空题: 请把答案填在题中横线上。
1. 组合框
2. 顺序访问方式
3. Picture1.picture=LoadPicture(”d:\pic\a.jpg”)
4. Timer
5. .bas
6. (cos(a+b)) ^2/(3*x)+5
7. Shift Ctrl
8. 窗体
9. 添加窗体
10. 红色
三、 程序改错题
1. 第七行 n2 = 0 改成 n1 = 0
第八行　For i = 1 To 100改成 For i = 1 To x
2. 第十一行　Or 改成　And
3. 第十行 fun = t 改成 fun = y
四、 程序填空题
1. (a * 1000 + b * 100 + c * 10 + d) * e = b * 1000 + c * 100 + d * 10 + e
2. 100 - i - j = (100 - 5 * i - j) * 2
3. c = (i Mod 100) \ 10
五、 编程题:
1. 编程代码为:
Private Sub Command1_Click()
Dim i, m As Integer
For i = 100 To 999
m = (i * i) Mod 1000
If i = m Then
Print i
End If
Next i
End Sub
2. 编程代码
Private Sub Command1_Click()
Dim a(10), b(), c(10) As Integer
For i = 1 To 10
a(i) = i
Next i

b = Array(100, 99, 98, 97, 96, 95, 94, 93, 92, 91)
For i = 1 To 10
c(i) = a(i) + b(i - 1)
Print c(i)
Next i
End Sub
3.用Circle方法画圆弧和椭圆弧。如下图所示。要求: 中心点相同, 圆弧长度和角度随机, 颜色随机, 圆弧数为20。
Private Sub Command2_Click()
pi = 3.1415926
a1 = 0
c = 1
DrawWidth = 1
For r = 100 To Step 100
a2 = (a2 + (pi / 2)) Mod (2 * pi)
Circle (1800, 1200), r, QBColor(c), a1, a2
a1 = a1 + (pi / 4)
c = c + 1
DrawWidth = DrawWidth + 1
Next r
End Sub

Private Sub Command3_Click()
Cls
End Sub

4. 编程代码为:
Private Sub Command1_Click()
Picture1.DrawWidth = 10
For i = 1 To 100
r = Int(256 * Rnd)
g = Int(256 * Rnd)
b = Int(256 * Rnd)
x = Rnd * Width
y = Rnd * Height
Picture1.PSet (x, y), RGB(r, g, b)
Next i
End Sub

Private Sub Command2_Click()
Picture1.Cls
End Sub

Private Sub Command3_Click()
End
End Sub
六、 问答题简述多文档及其特性。
答:
l 定义: 多文档界面(MDI, Multiple Document Interface)允许创立在单个容器窗体中包含多个窗体的应用程序。绝大多数基于Windows的大型应用程序都是多文档界面, 例如, Microsoft Word和Microsoft Excel等。多文档界面可同时打开多个文档, 它简化了文档之间的信息交换。
l 多文档界面有如下特性:
（1） 所有子窗体均显示在MDI窗体的工作区中。用户能够改变、 移动子窗体的大小, 但被限制在MDI窗体中。
（2） 当最小化子窗体时, 它的图标将显示在MDI窗体上, 而不是在任务栏中。当最小化MDI窗体时, 所有的子窗体也被最小化, 只有MDI窗体的图标出现在任务栏中。
（3） 当最大化一个子窗体时, 它的标题与MDI窗体的标题一起显示在MDI窗体的标题栏上。
（4） MDI窗体和子窗体都能够有各自的菜单, 当子窗体加载时覆盖MDI窗体的菜单。

2. 简述对话框的分类和特点。
答:
l 分类: 对话框分为3种类型: 预定义对话框、 通用对话框和自定义对话框
（1） 预定义对话框也称预制对话框, 是由系统提供的。VB提供了两种预定义对话框, 即输入框和信息框(或消息框), 前者用InputBox函数建立, 后者用MsgBox函数建立, 具体用法参见第4章。
（2） 通用对话框是一种控件, 用这种控件能够设计较为复杂的对话框。
（3） 自定义对话框也称定制对话框, 这种对话框由用户根据自己的需要进行定义。输入框和信息框尽管很容易建立, 但在应用上有一定的限制, 很多情况下无法满足需要, 用户能够根据具体需要建立自己的对话框。本章将介绍后两种对话框, 即通用对话框和自定义对话框。
l 特点:
（1） 在一般情况下, 用户没有必要改变对话框的大小, 因此其边框是固定的。
（2） 为了退出对话框, 必须单击其中的某个按钮, 不能经过单击对话框外部的某个地方关闭对话框。
（3） 在对话框中不能有最大化按钮(Max Button)和最小化按钮(Min Button), 以免被意外地扩大或缩成图标。
（4） 对话框不是应用程序的主要工作区, 只是临时使用, 使用后就必须关闭。

3.