第1个回答 2013-03-27
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分
第2个回答 2013-03-27
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