浙江电大Visual Basic程序设计#-0001

Visual Basic程序设计#-0001
试卷总分：100 测试时间:–
单项选择题 |程序填空题 |程序阅读题
1.
对目录列表框来说，当( A)属性值改变时，将引发Change事件。
Path
Drive
Caption
Text
2.
程序运行时，驱动器列表框下列（ A）属性能返回磁盘驱动器的名称。
Drive
DriveName
Chgdrive
Drives
3.
Visual Basic中设置断点的按键是F9，逐语句调试的语句是(C )。
F1
F9
F8
F7
4.
某计时器控件的interval属性为0时，表示（A）。
计时器关闭计时
Timer事件的间隔时间为0秒
Timer事件的间隔时间为0毫秒
计时器启动计时
5.
如果在图片框上使用绘图方法绘制一个圆，则图片框的（B ）属性决定了该圆的颜色。
BackColor
ForeColor
FillColor
DrawStyle
6.
在Visual Basic中，数组默认的下标下界是(A ) 。
0
1
-1
不确定
7.
在Visual Basic中，一般（B ）属性用来设置字体的颜色。
FontColor
ForeColor
BackColor
ShowColor
8.
Visual Basic中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量3类。过程级变量就是指在事件过程或通
的变量，它的作用域就是( C)。
整个工程中所有的模块和所有的过程
窗体内的所有过程
其所在的过程
模块内的所有过程
9.
在Visual Basic中，参数通过 (B )两种方式传送。
按值传递和按空间传递
按值传递和按地址传递
按类型传递和按地址传递
按次序传递和按数量传递
10.
在Windows MediaPlayer控件中，决定播放文件是否全屏的属性是（A ）。
FullScreen
Full
Screen
stretchToFit
11.
在设计菜单时，为了创建分隔栏，要在（ B）中输入字符（-）。
名称栏
标题栏
索引栏
显示区
12.
Visual Basic中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量3类。模块级变量包括窗体级模块变量和
量。窗体模块变量的作用域是(B )。
整个工程中所有的模块和所有的过程
窗体内的所有过程
其所在的过程
模块内的所有过程
13.
执行语句Open”C：Stud.txt”For Input As #2后，系统（ C）。
将内存数据存放在C盘当前文件夹下名为Stud.txt的文件中
某个磁盘文件的内容写入C盘当前文件夹下名
打开C盘当前文件夹下名为Stud.txt的文件，用来读取文件内容
在C盘当前文件夹下建立名为Stud. txt的顺序文件
14.
数组的类型可以是基本数据类型，也可以是用户自定义的记录类型。如果省略类型说明，数组会被设置为默认的 ( C) 。
字符串型
字符型
变体型
整型
15.
RGB函数通过红、绿、蓝三基色混合产生某种颜色，若使用三个滚动条分别输入三种基色，为保证输入数值有效，则应设置滚动条的（A）
Max和Min
Smallchange和 LargeCh
Scroll和Change
Value
16.
有以下3个数据表：
学生表：student_info(student_id,student_name,student_sex,student_class)，分别表示学号、姓名、性别、班级，各字段数据类型都
课程表：course_info(course_ID,course_name ,course_credit)，分别表示课程号、课程名、学分，课程号、课程名为文本类型，学分为
成绩表：mark_info(student_ID,course_ID,mark)，分别表示学号、课程号、成绩，其中学号、课程号为文本类型，mark为数字类型。
写出SQL语句：
修改学号为“95020”，课程号为“A001”的成绩为85。
( C)
Update mark_info set mark=85 wherestudent_ID =’95020′ or course_ID =’A001′
Update mark_info set mark=85
Update mark_info set mark=85 wherestudent_ID =’95020′ and course_ID =’A001′
Update mark_info set mark=85 wherestudent_ID =95020 and course_ID =A001
17.
填空如下程序，使用ADO对象中的Connection对象连接SQL Server数据库。
Public ADOcn As Connection
Public Sub Main()
Dim strSqlServer As String
strSqlServer=” rovider=SQLOLEDB;Server=(local);UserID=sa assword=sa; Database=XS”
If ADOcn Is Nothing Then
Set ADOcn = New Connection
（ B）
End If
End Sub
Set ADOcn = New Connection
ADOcn.Open strSqlServer
ADOcn.Open
ADOcn strSqlServer
18.
填空如下程序，实现通信录查询功能。设“查找”按钮的名称定义为cmdFindname，查找输入名称和结果文本框的名称分别定义为txtN
txtCount，记录条数标签的名称定义为lblCount。
Type Lxr
intBh As Integer ‘编号
strXm As String * 8 ‘姓名
strDh As String * 11 ‘电话
strDz As String * 30 ‘地址
End Type
Public user As Lxr
Private Sub cmdFindname_Click()
Dim i As Integer, intCount As Integer, intRecordNum As Integer
Dim strComp1 As String, strComp2 As String
txtCount.Text = ” 编号 姓名 电话 地址 ” + vbCrLf
intCount = 0
Open “d:txl.txt” For Random As #1 Len = Len(user)
（B )
For i = 1 To intRecordNum
Get #1, i, user
strComp1 = Trim(txtName.Text)
strComp2 = Trim(Replace(user.strXm, Chr(0), “”))
‘ 比较输入的姓名和文本中的姓名是否一致
If StrComp(strComp1, strComp2) = 0 Then
intCount = intCount + 1
Get #1, i, user
msg = Str(user.intBh) +” ” + user.strXm + user.strDh+ user.strDz
msg = Replace(msg, Chr(0),” “)
txtCount.Text = txtCount.Text +msg + Chr(13) + Chr(10)
End If
Next i
Close #1
lblCount.Caption = “一共找到” + Str(intCount) + “条记录”
If intCount = 0 Then
MsgBox “没有该记录”, vbInformation, “提示”
End If
End Sub
intRecordNum =Len(user)/ LOF(1)
intRecordNum = LOF(1) / Len(user)
intRecordNum = LOF(1) / Len(1)
intRecordNum = LOF(user) / Len(user)
19.
阅读以下程序，写出其功能。
Public Function Avg_mark(MarkArray(A) AsSingle) As Single
Dim sngSum As Single, i As Integer , n As Integer
sngSum = 0
n= UBound(MarkArray)
For i = 0 To n
sngSum = sngSum + MarkArray(i)
Next i
Avg_mark = sngSum / n
End Function
求数组元素的平均值函数。
求数组元素的最大值函数。
求数组元素的和函数。
求数组元素个数的函数。

AI创作