电子科技大学网络教育考卷（A1卷）
(20  年至20  学年度第学期)
考试时间年月日(120分钟) 课程VB程序设计教师签名_____
一、填空题（每空1分，共10分）
1、对象是我们感兴趣的或要加以研究的事物，是数据与操作相结合的统一体。
2、设置对象的属性可以在设计阶段通过“属性”窗口设置对象属性的值；也可以在运行阶段，在程序
中由代码设置对象属性的值。
3、在定义静态数组的基础上，使用__ReDim__关键字语句分配数组中实际元素的个数，实现动态数组；
4、byVal表示参数通过数值传递；byRef表示参数通过地址传递；
5、声明变量就是事先将变量通知程序。在Visual Basic中可以显式地声明变量，也可以隐式地声
明变量。
6、设置标签标题的属性名称为caption ；
二、单项选择题（每题2分，共20分）
1、语句format(123.4567,”0000.00”)的结果为：(    B )
A、“0123.45”
B、“0123.46”
C、”123.45”
D、”123.46”
2、VB提供控件的窗口是(    B )
A、工具栏
B、工具箱
C、文本框
D、属性窗口
3、下列控件中不能响应Click事件的是(    D )
A、Button
B、Label
C、Form
D、Timer
4、Sub过程和function过程最根本的区别是(    D )
A、Sub过程可以使用Call语句或直接使用过程名调用，而function过程不能
B、functioin过程可以有参数，sub过程不可以
C、两种过程参数的传递方式不同
D、sub过程的过程名不能返回值，而function过程能够通过过程名返回值
5、程序代码： = “UESTC”中，Text1,Text,“UESTC”分别代表(    C )
A、对象，值，属性
B、对象，方法，属性
C、对象，属性，值vb程序设计是啥
D、属性，对象，值
6、Dim arr(10)所定义的数组元素个数是(    C )
A、9
B、10
C、11
D、12
7、数学表达式sin30°写成VB的表达式为(    D )
A、sin30
B、sin(30)
C、sin(30°)
D、sin(30*3.14/180)
8、将定时器的时间间隔设置为1秒，则定时器的interval属性值应设为(    A )
A、1000
B、100
C、10
D、1
9、获取字符串子串的函数为：(    A )
A、Mid(string)
B、Instr(string1,string2)
C、LTrim(string)
D、Trim(string)
10、表达式“A” Like “[^A-Z]”的结果为：(    D )
A、A
B、Z
C、True
D、False
三、简答题（每题5分，共30分）
1、简述什么是对象的属性？属性如何进行读取和设置？
答：属性是指对象所具有的性质，不同的对象具有不同的属性。
设置对象的属性有两种方法，在设计阶段，通过属性窗口设置对象属性的值，在运行阶段，通过程序代码设置属性的值。
属性值的读取在程序代码中实现。基本格式为：变量= 对象.属性
2、试给出窗体的5个常用属性并简要说明；
答：
Caption，决定窗体标题栏中显示的文本；
ControlBox，决定窗体的最大化或最小化按钮是否有效；
BackColor，设置窗体的背景颜；
Picture，设置背景图片；
Icon，设置窗体图标。
3、试简述变量的作用范围。
答：变量的作用范围确定了能够使用该变量的代码的范围。变量的范围分为过程级和模块级。说明符有两个，分别为：Private和Public。Private表示私有变量，作用范围为当前过程或当前模块；public表示公有变量，范围是所有模块。过程内不能使用公有变量。模块级私有变量可以在模块内的任何过程使用。
4、简述列表框控件LISTBOX的使用方法。
答：ListBox控件能够提供一个项目列表清单。使用过程如下：
1)将控件从工具栏拖放到窗体中；
2)利用AddItem方法添加必要的项目列表
3)利用Remove和Clear删除项目列表
4)利用ItemIndex和Text属性获取当前的选择位置和取值。
5、简述什么是形式参数和实际参数，相互关系如何？
答：形参出现在过程定义中，在整个过程内部可以使用，离开该过程则不能使用。
实参出现在主调用过程中，进入被调过程中，实参变量也不能使用。形参和实参的功能是进行数据传送。在函数调用时，主调过程把实参的值传送给被调过程的形参，从而实现主调过程向被调过程的数据传送。
6、什么是事件？简述事件的基本类型？
答：所谓事件，是由Visual Basic预先设置好的、能够被对象识别的动作，是指发生在对象上的响应。
事件可分为系统事件和用户事件两种。系统事件由计算机系统自动产生，例如定时信号等；用户事件是由用户产生的，如键盘输入和鼠标的操作等。
四、应用题（共35分）
1、设计一个函数，输入3个整数，计算最大值与最小值之差；（5分）
答：Public Function width(ByVal a, ByVal b, ByVal c) As Integer
Dim max As Integer, min As Integer
If a > b Then
max = a
min = b
Else
max = b
min = a
End If
If c > max Then
max = c
If c < min Then
min = c
width = max - min
End Function
2、设计一个过程，循环录入不定个数整数，输入-1结束，采用一定算法进行排序后，按从小到大顺序
输出数值；（20分）
答：
Public Sub sort()
Dim len1, x As Integer
Dim a() As Integer
len1 = 0
'获取数据值
Do
x = InputBox("请输入第" + Str(i) + "个整数")
len1 = len1 + 1
ReDim a(i) As Integer
a(i) = x
Loop While x! = -1
'冒泡排序
Dim i, j, tmp, n As Integer
Dim exchange As Boolean
n = len1 - 1
For i = 0 To n - 2
exchange = False
For j = n - 2 To i Step -1
If a(j + 1) < a(j) Then
tmp = a(j + 1)
a(j + 1) = a(j)
a(j) = tmp
End If
Next j
If exchange = False Then
Exit For
End If
Next i
'输出结果
For i = 0 To n
Print Str(i);
Next i
End Sub
3、定义学生信息记录，将录入的学生信息后写入文件“d:\stud.dat”（10分）答：
Public Type stud
sno As String * 5
sname As String * 20
ssex As String * 2
sage As Integer
End Type
Public Sub save_stud()
Dim st1 As stud
st1.sno = InputBox("输入学号：")
st1.sname = InputBox("输入姓名：")
st1.ssex = InputBox("输入性别：")
st1.sage = Val(InputBox("输入年龄"))
Open "d:\stud.dat" For Binary As #1

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