2012年9月考试可视化程序设计（VB） A 卷

2012年9月份考试可视化程序设计（VB）第二次作业
一、单项选择题（本大题共80分，共 20 小题，每小题 4 分）
1. 下列关于多文档界面（MDI）应用程序，说法错误的是（ ）
A. 一个多文档界面应用程序只能包含一个MDI窗体
B. 一个多文档界面应用程序只能包含一个子窗体
C. 子窗体的MDIChild属性应设置为True
D. 最小化父窗口时，所有子窗口也被最小化
2. 下列过程不能包含在标准模块中定义的是（ ）。
A. 事件过程
B. 子过程
C. 函数过程
D. 公共过程
3. 下列关于数据库说法错误的是（ ）
A. 一个表可以构成一个数据库
B. 多个表可以构成数据库
C. 一个表的每一条记录中的各数据项具有相同的类型
D. 同一个字段的数据具有相同的类型
4. 下列关于菜单访问键和快捷键的说法正确的是（ ）
A. 若一菜单项的Caption属性为“打开(&O)”，则其快捷键是Ctrl+O
B. 快捷键指用于执行一个命令的功能键或组合键，可以在菜单编辑器中将快捷键设为Alt+F
C. 可以为任意的菜单项都添加快捷键或访问键
D. 通过访问键打开某个子菜单时，必须先使焦点位于其上一级菜单
5. 向一个顺序文件中写数据时，（ ）是从文件末尾添加的方式打开顺序文件。
A. Output
B. Input
C. Write
D. Append
6. 从随机文件中读取数据的命令是（ ）
A. Put
B. Get
C. Print
D. Input
7. 以下说法正确的是（ ）
A. 通用过程可以出现在窗体模块和标准模块中
B. 不同模块中的通用过程可以重名
C. 同一标准模块中的通过过程可以同名
D. 不同标准模块中的通用过程不能同名
8. Seek方法用于在（ ）类型的记录集中查找满足条件的记录。
A. 动态集
B. 快照
C. 表
D. 任意
9. 数据控件用于设置指定数据控件所访问的记录来源的属性是（ ）
A. RecordSource
B. DataSource
C. DatabaseName
D. RecordSetType
10. 在下列关于对话框的叙述中，错误的是（ ）：
A. 作为对话框窗体的Borderstyle、ControlBox、MaxButton和MinButton应分别设置为l、True、False和 False。
B. 语句frmAbout．Show vbModeless，frmMain将 fmAbout窗体显示为 fmMain的无模式子窗体。
C. 可以将对话框分成两种类型：模式的和无模式。
D. 语句frmAbout．Show将frmAbout作为无模式对话框显示。
11. 在用菜单编辑器设计菜单时，必须输入的项有（ ）。
A. 快捷键
B. 标题
C. 索引
D. 名称
12. 下列过程说明合法的是（ ）
A. Sub S1(ByVal n!())
B. Sub S1(n!) as Integer
C. Function S1%(S1%)
D. Function S1(ByVal n!)
13. 当BOF属性为Ture时，表示（ ）。
A. 当前记录位置位于Recordset对象的第一条记录
B. 当前记录位置位于Recordset对象的第一条记录之前
C. 当前记录位置位于Recordset对象的最后一条记录
D. 当前记录位置位于Recordset对象的最后一条记录之后
14. 以下叙述错误的是（ ）
A. 在KeyUp和KeyDown事件过程中，从键盘上输入A和a是相同的
B. 在KeyUp和KeyDown事件过程中，从键盘上1和小键盘上的1看作不同数字
C. KeyPress事件中不能识别键盘上某个键的按下与释放
D. KeyPress事件中可以识别键盘上某个键的按下与释放
15. 文本框控件与DATA控件绑定到一起时，文本框的DataSource属性指定了文本框所要绑定的（ ）
A. 数据库名
B. 数据表名
C. 字段名
D. 以上都不是
16. 用于设置或返回文件类型的属性是（ ）。
A. Drive
B. Path
C. Pattern
D. FileTitle
17. 运行时，要清除图片框P1中的图像，应使用语句（ ）。
A. Pl.Picture=“”
B. P1.Picture=LoadPicture（）
C. Picturel.Picture=LoadPicture
D. Picturel.Picture=LoadPicture(“C：＼WINDOWS＼Clouds.bmp”)
18. 下面关于多重窗体的叙述中，正确的是（ ）。
A. 作为启动对象的 main于过程只能放在窗体模块内
B. 如果启动对象是 main子过程，则程序启动时可不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体
C. 没有启动窗体，程序不能执行
D. 以上都不对
19. 以下的属性和方法中（ ）可重定义坐标系。
A. DrawStyle属性
B. DrawWidth属性
C. Scale方法
D. ScaleMode属性
20. 如果当前的List1中为空（即没有选项），运行下列语句后，List1中的内容是（ ）
Private Sub Command1_Click()
Dim s As String
For n = 1 To 3
s = Chr(65+n)
List1.AddItem s, n
Next
End Sub
A. A
B. B
C. C
D. D
二、判断题（本大题共20分，共 10 小题，每小题 2 分）
1. 如果虚实结合是按地址传递，则当改变形参时，实参也跟着改变。（ ）
2. 数组作为参数，函数调用时一定是按地址传递。（ ）
3. Function过程必须以函数名作为返回值，而Sub过程不需要用函数名作为返回值。（ ）
4. 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上。（ ）
5. 如果形参是数组，调用时实参也要求是数组。（ ）
6. 将复选框的Value属性设置成2后，则该复选框变成灰色，说明用户无法选择该选项。（ ）
7. 如果定义了子程序Public Sub Check(a!,b!)，则a、b都是全局变量。（ ）
8. 当图像框Image控件的Stretch属性为True时，Image控件能自动调整自己的尺寸与显示的图片匹配。（ ）
9. 在标准模块中用Public声明全局变量，使变量在整个应用程序中有效。（ ）
10. 事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。（ ）

答案：

一、单项选择题（80分，共 20 题，每小题 4 分）
1. B 2. A 3. C 4. D 5. D 6. B 7. D 8. C 9. A 10. A 11. D 12. D 13. B 14. D 15. B 16. C 17. B 18. B 19. C 20. D

二、判断题（20分，共 10 题，每小题 2 分）
1. √ 2. √ 3. √ 4. × 5. √ 6. × 7. × 8. × 9. √ 10. √

2012年9月份考试可视化程序设计（VB）第三次作业
一、填空题（本大题共40分，共 10 小题，每小题 4 分）
1. VB中三种文件访问类型是 ______ 、 ______ 、 ______
2. VB中，在预定对话框里有两种对话框分别称为 ______ 和 ______ ，它们所用函数分别为 ______ 和 ______ 。
3. VB的数据类型可以分为 ______ 和 ______ 。
4. VB的控件分为 ______ 、 ______ 、 ______ 。
5. 要使标签框有边框，需设置BorderStyle属性的值为 ______ 。
6. 创建工具栏需要 ______ 件和 ______ 控件的组合。
7. 由Array函数建立的数组必须是 ______ 类型。
8. VB程序的错误一般分为 ______ 、 ______ 和 ______ 三类。
9. 在执行KeyPress事件过程中，KeyAscii是所按键的 ______ 值，对于有上档字符和下档字符的键，档执行KeyDown事件过程中，KeyCode是 ______ 字符的 ______ 值。
10. 反复执行的程序段称为 ______ ；进入循环体的条件称为 ______ ；中止循环体执行的条件称为 ______ 。

二、程序阅读题（本大题共24分，共 4 小题，每小题 6 分）
1. Private Sub Command1_Click()
Dim n As Integer
Dim t As Integer
n = 354
t = 0
While (n > 1)
t = t + f1(n Mod 10) n = n \ 10
Wend
Print t
End Sub
Public Function f1(n As Integer)
If (n = 0) Then
f1 = 0
Else If (n = 1) Then
f1 = 1
Else f1 = n * f1(n - 1)
End If
End Function
单击一次Command1按钮一次，窗体上显示的是什么？
2. 写出下列程序的输出结果。
Private Sub Form_Click
Print Tab(10); -100;Tab(20); 200;Tab(30); -300
Print Spc(5); -100;Spc(5); 200;Spc(5); -300
End Sub
3. 写出下列事件过程的执行结果。
Public x As Integer Private Sub Command1_Click()
x=10
Print x
Call s1
Print x
Call s2
Print x
End Sub
Private Sub s1()
x=x+20
Print x
End Sub
Private Sub s2()
Dim x As Integer
x=x+20
Print x
End Sub
4. 下面程序的功能是对两个整型变量的值进行交换，在横线上填上适当内容。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=10
b=20
Print "a="; a, "b="; b
(1)
Print "a="; a, "b="; b
End Sub
Private Sub swap(ByRef a As Integer, ByRef b As Integer)
Dim t As Integer
(2)
End Sub

三、问答题（本大题共24分，共 4 小题，每小题 6 分）
1. 在VB中，要对数据文件中的数据进行读写操作一般要经过哪三步？
2. VB坐标系中旋转什么方向是正向
3. 要使单精度变量x,y,z分别保留1位、2位、3位小数位，并在窗体显示，使用什么函数？如何写对应的Print方法？
4. 使用Pset绘制像素点的大小由什么因素确定？

四、程序设计题（本大题共12分，共 1 小题，每小题 12 分）
某数组有20个元素，元素的值由键盘输入，要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个元素与第19个元素互换，…，第10个元素与第11个元素互换。输出数组原来各元素的值和对换后各元素的值。

答案：

一、填空题（40分，共 10 题，每小题 4 分）

1.
参考答案：
顺序、随机、二进制
解题方案：

评分标准：
2
2.
参考答案：
消息框、输入对话框、Msgbox、Inputbox
解题方案：

评分标准：
2
3.
参考答案：
基本数据类型、自户自定义数据类型
解题方案：

评分标准：
2
4.
参考答案：
内部控件、ActiveX控件、可插入控件
解题方案：

评分标准：
2
5.
参考答案：
1－Fixed Single
解题方案：

评分标准：
2
6.
参考答案：
ToolBar、ImageList
解题方案：

评分标准：
2
7.
参考答案：
Variant
解题方案：

评分标准：
2
8.
参考答案：
编译错误，运行时错误，逻辑错误
解题方案：

评分标准：
2
9.
参考答案：
ASCII、下档、ASCII
解题方案：

评分标准：
2
10.
参考答案：
循环体、循环条件、结束循环条件
解题方案：

评分标准：
2

二、程序阅读题（24分，共 4 题，每小题 6 分）

1.
参考答案：
150
解题方案：
函数调用过程与循环操作
评分标准：
6
2.
参考答案：
-100 200 -300 -100 200 -300
解题方案：
Tab函数使用方法
评分标准：
6
3.
参考答案：
执行结果为： 10 30 30 20 30
解题方案：
过程调用
评分标准：
6
4.
参考答案：
（１） swap a, b 或　Call swap( a, b) （２） t=a: a=b: b=t
解题方案：
数据交换的实现
评分标准：
6

三、问答题（24分，共 4 题，每小题 6 分）

1.
参考答案：
（1）打开文件。 （2）使用相关语句对打开文件进行读写操作。 （3）关闭文件。
解题方案：

评分标准：
4
2.
参考答案：
在VB坐标系中，逆时针方向为正，各绘图方法都参照此坐标系。计算对象的坐标点时务必注意这一点。
解题方案：

评分标准：
4
3.
参考答案：
Print Format(x,”0.0”) 显示1位小数位
Print Format(x,”0.00”) 显示2位小数位
Print Format(x,”0.000”) 显示3位小数位
解题方案：

评分标准：
4
4.
参考答案：
使用Pset绘制像素点的大小由当前容器的DrawWidth属性确定。
解题方案：

评分标准：
4

四、程序设计题（12分，共 1 题，每小题 12 分）

0.
参考答案：
Dim a(1 To 20) As Integer
''''在"通用"的"声明"段中输入
Dim Private Sub Command1_Click()
Dim i As Integer, t As Integer
For i=1 To 20
''''输入 20个元素的
a(i)=InputBox("输入 a(" & Format(i, "#") & "):") ''''输入
Next i
Print "互换前各元素的值："
For i=1 To 20 ''''输出互换前各元素的值
Form1.Print a(i);
Next i
Print
For i=1 To 10
''''互换操作
t=a(i):
a(i)=a(20-i+l):
a(20-i+1)=t
''''交换
Next i
Print
Print "互换后各元素的值："
For i=1 To 20
''''输出互换后各元素的值
Form1.Print a(i);
Next i
End Sub
解题方案：
使用循环控制设计算法
评分标准：
循环5分，算法5分

2012年9月份考试可视化程序设计（VB）第一次作业
一、单项选择题（本大题共100分，共 25 小题，每小题 4 分）
1. 下面的数写成普通的形式是1.21576654590569E+019 ( )
A. 12157665459056900
B. 121576654590569000
C. 1215766545905690000
D. 12157665459056900000
2. 下列赋值语句合法的是（ ）
A. A=A+B
B. A+B=A
C. –A=A
D. A=2B
3. 下列选择项中（ ）不能获得焦点。
A. 使用Tab键
B. 用鼠标选择对象
C. 设置GetFocus的值为True
D. 使用SetFocus方法
4. 设a=2，b=3，c=4，d=5，下列表达式的值是（ ）。not　a<=c or 4*c=b^2 and b<>a+c
A. －1
B. 1
C. true
D. false
5. 若将命令按钮设置为默认命令按钮，可以通过（ ）属性来实现。
A. Value
B. Cancel
C. Default
D. Enabled
6. 通用过程可以通过执行“工具”菜单中的（ ）命令来建立。
A. 添加过程
B. 通用过程
C. 添加窗体
D. 添加模块
7. 假设A=3，B=7，C=2，则表达式 NOT ( B>A) 的值是 ( )
A. True
B. False

C. 表达式错误
D. 不确定
8. 以下说法正确的是（ ）
A. 通用过程可以出现在窗体模块和标准模块中
B. 不同模块中的通用过程可以重名
C. 同一标准模块中的通过过程可以同名
D. 不同标准模块中的通用过程不能同名
9. 在表达式 y = InputBox ( a, b, c ) 中，b 为输入函数对话框的（ ）。
A. 标题
B. 提示
C. 预设值
D. 帮助文件名
10. 如果要退出Do…Loop循环，可使用语句（ ）。
A. Exit
B. Exit Do
C. Exit For
D. Exit For
11. 为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为( )
A. 1
B. 2
C. 3
D. 4
12. 若有数组说明语句：Dim t(1 To 10) As Variant，则t被定义为（ ）。
A. 数值数组
B. 可调数组
C. 字符串数组
D. 可变类型数组
13. Function过程要由函数名返回一个值。如果不使用As数据类型选项来指定函数的类型，函数类型默认为（ ）类型。
A. Integer
B. Variant
C. Long
D. Siring
14. 不论何对象，都具有（ ）属性。
A. Text
B. Name
C. ForeColor
D. Caption
15. 下列语句正确的是（ ）。
A. For i=1 To m
For j=1 To n
Next i
Next j
B. For i=1 To m
For j=1 To n
Next i,j
C. For i=1 To m
For j=1 To n
Next j,i
D. For i=1 To m
While x>0
Next i
end
16. 下列过程调用合法的是（ ）
A. Call Prog a,b
B. Prog(a,b)
C. Call Prog(a,b)
D. 以上都不对
17. 以下语句的输出结果是（ ）。 print　format$（32548.5，"000，000.00"）
A. 2548.5
B. 32，548.5
C. 032，548.50
D. 32548.50
18. 数学式子Sin25°写成VB表达式是（ ）。
A. Sin25
B. Sin（25°）
C. Sin（25）
D. Sin（25*3.14/180）
19. 以下程序段中循环语句（ ）。
x%=0
While Not x
x=x+1
Print x
Wend
A. 有语法错误
B. 溢出
C. 循环体执行一次
D. 循环体一次也不执行
20. 下列过程说明合法的是（ ）
A. Sub S1(ByVal n!())
B. Sub S1(n!) as Integer
C. Function S1%(S1%)
D. Function S1(ByVal n!)
21. 用下面的语句所定义的数组的元素个数是( ) Dim arr(3 To 6, -2 To 2)
A. 12
B. 16
C. 18
D. 20
22. 下面语句书写正确的是（ ）。
A. If a>max Then
max=a
Else
max=b
End If
B. If a>max Then
max=a
Else
max=b
End If
C. If a>max Then
max=a
Else
max=6
D. If a>max Then
max=a
Else
max=b
End If
23. 下列一维数组说明语句错误的是（ ）。
A. Dim b(100) AS Double
B. Dim b(-5 To 0) AS Byte
C. Dim b(-10To –20) AS Integer
D. Dim b(5 To 5) AS String
24. 设已定义函数过程f，它有三个整型数值参数，再设a,b和c为实型变量，则调用该函数过程使用的语句为（ ）。
A. f
B. f( a+b, b+c )
C. f ( a+b, b+c ,c+a )
D. f a+b, b+c, c+a
25. 执行下面程序段时，内循环的循环次数是（　）。
For m=1 To 3
n=0
While n<=m-1
Print m,n
n=n+1
Wend
Next m
A. 3
B. 4
C. 5
D. 6

答案：

一、单项选择题（100分，共 25 题，每小题 4 分）
1. D 2. A 3. C 4. D 5. C 6. A 7. B 8. D 9. A 10. B 11. B 12. D 13. B 14. B 15. C 16. C 17. C 18. D 19. B 20. D 21. D 22. D 23. C 24. D 25. D