发布时间 : 星期三 文章《VB程序设计（专科）》自测题二--答案更新完毕开始阅读
… …__…__…__…__…__…__… __…_ __… 心…中…学 教… _…_ __…__线__… __…_ __… __…__…_ 学号……__…__…__…__…__封__…__… __…号 班… … … __…__…_ __…__…__…__…__…__…_称…名密业… 专… _… ___… __… ___…__… __…__…__…_名…姓…………电子科技大学网络教育考卷（A2卷）
(20 年至20 学年度第 学期)
考试时间 年 月 日(120分钟) 课程 VB程序设计 教师签名_____
大题号 一 二 三 四 五 六 七 八 九 十 合 计 得 分 一、填空题（每空2分，共10分）
1、 对象 是面向对象的程序设计的基本概念，也是其核心。 2、 事件过程是指对象对发生在其上的某一事件的反应。 3、 命令按钮控件的Caption属性代表 按钮的标题 。
4、 窗体的位置是相对于屏幕而言的，且由 Left属性和 Top 属性来决定它的位置。
5、 IIf函数可用来执行 简单的条件判断 操作，它是“ If?Then?Else ”结构的简写版本。6、 数组是 内存 中连续存储的一组 单一数据类型值 的数据结构。 7、 字符串格式化是将字符串按 指定的格式 进行大小写显示。
二、单项选择题（每题2分，共20分）
1、 下列可以作为VB变量的是：
( B )
A、a(x*y)
B、second
C、1xyz D、学生信息
2、 逻辑表达式 1>0 and Not 2<7 or 2>6的值为
( B )
A、true B、false C、3
D、0
3、 表达式 “Windows” Like “W_*_s” 的结果为：
( C )
A、indow
B、Windows C、True D、False
4、 下列赋值语句正确的是
( A )
A、 x=y+z
B、y/z=a
C、-b=a
D、a=2×b 5、 文本框控件的值是哪个属性
( B )
A、Caption B、Value
C、Index D、Name 6、 在字符串中定位子串的函数为：
( A )
A、Istr(string1,string2)
B、Mid(string)
C、LTrim(string) D、Trim(string) 7、 如下数组声明语句，正确的是
( B )
A、Dim a[1,1] as interger
B、Dim a(2,2) as integer
C、Dim a(n,n) as integer D、Dim a(4 4) as integer 8、 LBOUND函数的作用是
( A )
A、获取数组的下界 B、获取数组的上界 C、获取数组的长度
D、获取数组的维度
9、 在设计菜单添加菜单项时，需要添加一个分隔条，标题设置为：
( D )
A、加号 B、感叹号
C、星号
D、减号 10、
下列控件中不能响应Click事件的是
( D )
A、Button
B、Label
C、Form
D、Timer
三、简答题（每题5分，共30分）
1、 简述参数按地址传递和按值传递的区别。
答：按值传递参数时，传递的只是变量的副本。如果在过程中改变了这个形参的值，则所进行的变动只影响副本而不会影响实参变量本身。可使用ByVal关键字指出参数是按值来传递的。
按地址传递参数使过程用变量的内存地址去访问实参变量的内容。结果将实参变量传递给过程时，通过
调用过程改变实参变量的值。使用ByRef关键字指出参数是按地址传递的。
2、 简述动态数组的使用过程。 答：
1) 先声明数组为动态数组，与静态数组的声明相比，只是不指出数组的大小。基本格式为：dim 数组
名() [ as 数据类型]
2) 在需要制定数组大小时，再使用ReDim语句分配数组中实际元素的个数。使用格式为：
3) ReDim 数组名 （[ 下界1 to ] 上界1，[下界2 to] 上界2 …） [ As 数据类型]
3、 简述窗体设计的基本过程。 答：
1） 建立空白窗体对象 2） 设置窗体属性 3） 添加窗体内控件
4） 设置控件属性，并进行窗体布局设计 5） 编写窗体及控件事件过程代码
1
4、 简述菜单的基本结构；
答：菜单是一个特殊的空间，其中的每一个菜单项都是一个独立的控件。作为控件，它们都有自己的属性，基本的包括标题和名称。可以通过编辑器设置菜单的标题、名称、快捷键、热键、可见性、有效性等。菜单控件最基本的就是Click事件，在代码窗口通过选择菜单项，即可编辑器相关事件代码。
5、 简述ADO模型的使用过程。 答：
1）建立connection对象，通过其建立数据库连接 2）建立RecordSet对象，并编写查询语句 3）执行查询，并填充记录到RecordSet 4）通过RecordSet对象的属性和方法操作数据 5）更新数据
6、 简述实现二进制文件读写的一般过程。 答：
1） 打开文件
open 文件名 for binary as #文件名 2） 写入数据
put #文件号，【位置】，变量 3） 读取数据
get #文件号，【位置】，变量 4） 关闭文件
close #文件号
（共4题，40分）
1、 设计一个函数，输入1个学生成绩，返回成绩的等级，分别为不及格：0～59，及格：60～69，中等：70～
79，良好：80～89，优秀：90～100；（10 分） 答：
Public Function level(ByVal score As Integer) As String
If score >= 0 And score <= 100 Then Select Case score Case Is >= 90
level = \优秀\ Case Is >= 80
level = \良好\ Case Is >= 70
level = \中等\ Case Is >= 60
level = \及格\ otherwise
level = \不及格\ End Select Else
level = \异常\ End If End Function
2、 设计一个过程，将输入的正整数按十六进制形式输出；(15分) 答：
Public Sub hex()
Dim n As Integer, i As Integer, j As Integer Dim sbit(20) As Integer
n = Val(InputBox(\输入整数\ i = 0
Do While (n > 0)
sbit(i) = n Mod 16 n = Int(n / 16) i = i + 1 Loop
Dim str As String str = \
For j = i - 1 To 0 Step -1 If sbit(j) <= 9 Then str = str & sbit(j) Else
Select Case sbit(j) Case 10
str = str & \ Case 11
str = str & \ Case 12
str = str & \ Case 13
str = str & \ Case 14
str = str & \ Case 15
2
四、应用题
str = str & \ End Select End If Next Print str End Sub
3、 设计一个过程，实现以下功能：输入N，输出 n! + (n-1)!+ … +2! + 1! 的值；（15分） 答：
Public Sub times_all()
Dim sum As Integer, n As Integer, mul As Integer Dim i As Integer, j As Integer sum = 0
n = Val(InputBox(\请输入N：\ For i = n To 1 Step -1 mul = 1
For j = i To 1 Step -1 mul = mul * j Next
sum = sum + mul Next End Sub
3