期末综合练习一
一、单项选择题
1．如果要在文本框中键入字符时，只显示某个字符，如星号（*）,应设置文本框的（ ）属性。
A．Caption B．PasswordChar C．Text D．Locked
2．在Visual Basic中，程序执行的顺序是（ ）。
A．从主程序开始执行 B．由代码行的顺序决定
C．由事件驱动 D．按模块顺序执行
3．MsgBox函数的返回值的数据类型是（ ）。
A．字符串 B．日期型
C．逻辑型 D．整型
4．后缀为.bas的文件表示（ ）。
A．类模块文件 B．窗体文件
C．窗体二进制数据文件 D．标准类模块文件
5．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（ ）属性设置就有效。
A．MaxButton B．BorderSyle
C．Width D．MinButton
6．多窗体程序是由多个窗体组成。在缺省情况下，VB在应用程序执行时，总是把（ ）指定为启动窗体。
A．不包含任何控件的窗体 B．设计时的第一个窗体
C．最后一个添加的窗体 D．命名为Frm1的窗体
7．VB程序中通常不会产生错误提示的是（ ）。
A．编译错误 B．实时错误
C．运行时错误 D．逻辑错误
8．应用程序打包后，其包文件的后缀为（ ）。
A．.exe B．.cab
C．.txt D．.ocx
9．要设置命令按钮的背景图形，必须设置的两个属性是（ ）。
A．Style和Picture B．Style和Icon
C．Caption和Picture D．Value和Icon
10．当运行程序时，系统自动执行启动窗体的（ ）事件过程。
A．Load B．Unload
C．Click D．GotFocus
11．下列关于变量的说法不正确的是（ ）。
A．局部变量是指那些在过程中用Dim语句或Static语句声明的变量
B．局部变量在声明它的过程执行完毕后就被释放了
C．静态局部变量是在过程中用Static语句声明的
D．局部变量的作用域仅限于声明它的过程
12．设窗体的名称为Form1，则在程序运行过程中，单击窗体时，被执行的事件过程的名称是（ ）。
A．Form1_Click() B. Form1_DbClick()
C．Form_Click() D．Form_DbClick()
13．如下数组声明语句，正确的是（ ）。
A．Dim a[3,4] As Integer B．Dim a(3,4) As Integer
C．Dim a(n,n) As Integer D．Dim a(3 4) As Integer
14．能够改变标签（Label）控件显示标题的属性是（ ）。
A．Name B．Caption
C．Text D．Click
15．若使图像框Image控件自动适应其中的图形大小，应（ ）。
A．将控件的 AutoSize属性设为True B ．将控件的 AutoSize属性设为False
C．将控件的 Stretche属性设为True D．将控件的 Stretche属性设为False
16．在VB中，要想快速获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按的键是（ ）
A．Help B．F10 C． F1 D．Enter
17．执行Form1.Scale (-14, 14)-(14, -14)语句后，Form1窗体坐标系x轴和y轴的正方向是（ ）。
A．向左和向下 B．向右和向上
C．向左和向上 D．向右和向下
18．Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（ ）。
A．设计模式 B．执行模式
C．中断模式 D．编写代码模式
19．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（ ）
A．Interval=0或Enabled=False B．Interval=0或Visible=False
C．Interval=0且Enabled=False D．Enabled=False 且Visible=False
20．以下叙述中正确的是（ ）。
A．窗体的Name属性的值是显示在窗体标题栏中的文本
B．对象的Name属性值可以为空
C．可以在运行期间改变对象的Name属性的值
D．窗体的Name属性指定窗体的名称，用来标识一个窗体
21．使用ADO数据模型时，建立Recordset和Connection对象连接的属性是（ ）。
A．Execute B．CommandType
C．Open D．ActiveConnection
22．在设计动画时，用时钟控件来控制动画速度的属性是（ ）
A．Enabled B．Interval
C．Timer D．Move
23．要发送数据，通称使用Winsock控件的（ ）。
A．Accept方法 B．Listen方法
C．SendData方法 D．GetDate方法
24．在VB中，下列变量名不合法的是（ ）。
A．take_1 B．take C．take-1 D．take_1_2
25．用来从数据库表中删除记录的SQL命令是（ ）。
A．DELETE B．SELECT
C．UPDATE D．WHERE
26．用于设置在文本框中显示字符的属性是（ ）。
A．AutoSizi B．Passwordchar
C．MultiLine D．ScrollBars
27．不属于VB数据库引擎的是（ ）。
A．ODBC B．BDE
C．Jet引擎 D．OLE DB
28．确定一个控件在窗体上的位置的属性是（ ）。
A．Width或Height B．Width和Height
C．Top或Left D．Top和Left
29．如果创建了命令按钮数组控件，那么Click事件的参数是（ ）
A．Tag B．Caption
C．Index D．没有参数
30．下列赋值语句正确的是（ ）。
A．a = b + c B．b + c = a
C．-b = a D．4 = a + b
二、填空题
1．在VB中想获得帮助，需要按的键是 ；要设置断点需要按 键。
2. Dim s As String，则运行时变量s的初始值是 。
3．窗体文件和工程文件的扩展名分别是 和 。
4．定时器（Timer）控件可识别的事件是 ，发生该事件的时间间隔由定时器的 属性设置。
5．在控件数组中，所有元素的 属性均相同，数组中的每个元素由 属性指定。
6．执行赋值语句a="123"+"456"，变量a的值是 。
7．假设ADOcn为一个Connection对象，那么在VB程序中声明并创建ADOcn的语句是 。
8．表达式3 + 15 Mod 4 * 2 + 2的值是 。
9．一个VB应用程序可以包含 个vbp文件。
10．要在窗体Form1内显示“欢迎您!”，使用的语句是 。
11．列表框控件中最后一项的序号等于ListCount属性减 。
12．变量的声明方法有隐式和 声明两种。任何变量在声明后均有一个初始值，一般情况下，数值型变量的初始值为 。
13．全局变量是指那些在 中有效的变量，一般在模块代码编辑器的顶部使用 声明
14．设某个程序中要用到一个二维数组，要求数组名为A，类型为整型，第一维下标从-1到2，第二维下标从1到4，则相应数组声明语句为 。
15．Dim i As Integer，则运行时变量i的初始值是 。
16．过程级变量是指在过程内部声明的变量，只有在该过程中的代码才能访问这个变量。模块级或窗体级变量的作用域是 ，全局变量在整个应用程序中有效，其作用域是 。
17．VB中参数传递的方式有两种，一种是 参数，另一种是
参数。
18. Winsock控件主要用来编制 或 协议的通话程序。
三、阅读程序题
阅读下列程序并写出程序运行结果
1.
Private Sub Form_Click()
Dim I As Integer, j As Integer
Dim c As Integer
c = 1
For I = 1 To 3
For j = 1 To 2
c = c + 3
Next j
Next I
Print c
End Sub
文件框Text1的输出结果是：
2．
Private Sub Command1_Click()
Dim n As Integer,y As Integer,x As Integer
X = 1
Do While x < 20
n = n + 1
y = x + y
x = x * (x + 1)
Loop
Text1.Text = n
Text2.Text = x
Text3.Text = y
End Sub
写出程序运行时单击Command1后，文件框Text1、 Text2和 Text3的输出结果。
3.
Private Sub Command1_Click()
Dim s As Double
Dim i As Integer
s = 5
i = 1
Do While i < 9
i = i + 2
s = s + i
Loop
Text1.Text = s
End Sub
写出程序运行时，单击命令按钮文本框Text1中的输出结果。
4．
Private Sub Command1_Click()
Dim x As Integer
Static s As Integer
x = Val(InputBox("请输入一个正整数="))
If x < 5 Then
s = s * x
Else
s = s + x
End If
Text1.Text = "s=" & Str(s)
End Sub
程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。
5.
Function F(a As Integer)
b = 2
Static c
b = b + 1
c = c + 1
F = a + b + c
End Function
Private Sub Command1_Click()
Dim a As Integer
a = 2
For i = 1 To 3
Print F(a)
Next i
End Sub
写出程序运行时，单击命令按钮在窗体上的输出结果。
6．
Private Sub Form_Click()
Dim c As Integer, j As Integer, k As Integer
k = 1
c = 2
For j = 1 To 5
If j > 3 Then
c = c + 6
Exit For
Else
k = k + 3
End If
Next j
Print c, k
End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
7.
Private Sub Command1_Click()
Dim a As Integer: Dim b As Integer
a = 10: b = 20
Change1 a, b
Print "A1="; a, "B1="; b
a = 10: b = 20
Change2 a, b
Print "A2="; a, "B2="; b
End Sub
Sub Change1(ByVal x As Integer, ByVal y As Integer)
t = x: x = y: y = t
End Sub
Sub Change2(x As Integer, y As Integer)
t = x: x = y: y = t
End Sub
写出程序运行时,单击窗体Form1上的输出结果。
8．
Function F(a As Integer)
Dim b As Integer
Static c As Integer
b = b + 3
c = c + 3
F = a + b + c
End Function
Private Sub Command1_Click()
Dim a As Integer
a = 5
For i = 1 To 3
Print F(a)
Next i
End Sub
写出程序运行时，单击命令按钮在窗体上的输出结果。
四、完善程序题
1．假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。
现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。
图1用Access创建的学生基本情况数据表
图2 查询程序运行界面
程序如下，请补充完整。
Private ADOcn As Connection
Private Sub Form_Load()
[1]
ADOcn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/学生.MDB"
End Sub
Private Sub Command1_Click()
Dim strSQL As String
Dim ADOrs As [2] Recordset
ADOrs.ActiveConnection = ADOcn
strSQL = "Select * From 学生基本情况 Where 学号=" + " ' " + Text1 + " ' "
.[3]
If [4] ADOrs.EOF Then
Text2 = ADOrs.Fields("学号")
Text3 = ADOrs.Fields("姓名")
Text4 = ADOrs.Fields("籍贯")
Else
MsgBox "要查询的学号不存在，请重新输入!", vbOKOnly, "信息提示"
Text1 = ""
[5]
End If
End Sub
Private Sub Command2_Click()
UnLoad Me
End
2.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为e盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图3所示。
图3
程序如下，请补充完整。
Private Sub Form_Load()
[1]
File1.Pattern = "*.bmp;*.gif;*.jpg"
End Sub
Private Sub Drive1_change()
Dir1.Path = [2]
Text1.Text = Drive1.Drive
End Sub
Private Sub Dir1_Change()
[3]
Text1.Text = [4]
End Sub
Private Sub File1_click()
Picture1. [5] = LoadPicture(File1.Path + "/" + File1.FileName)
FileName = File1.Path + "/" + File1.FileName
Text1.Text = FileName
End Sub
五、编写程序题
1.编写一工资调整程序。若基本工资大于等于3000元，增加工资10%，若小于3000元大于2000元，则增加工资15%；若小于2000元则增加工资18%。要求在文本框Text1中输入某职工的基本工资，单击“计算”按钮，在标签框Label1中输出增加后的工资。程序运行界面如图4所示。
图4
2．列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，把课程名称添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图5所示。
图5
期末综合练习一答案
一、单项选择题
1.B 2.C 3.D 4.D 5.B 6.B 7.D 8.B 9.A 10.A 11.B 12.C 13.B 14.B 15．D 16.C 17．B 18.D 19．A 20.D 21．D 22.B 23.C 24.C 25.A 26.B 27.B 28.D 29.C 30.A
二、填空题
1．F1 F9
2．"" (或空字符串)，Variant(或变体型)
3．.frm .vbp
4.Timer Interval
5．Name Index
6．123456
7．Dim ADOcn As New Connection
8．12
9. 1
10．Form1.print "欢迎您！"
11．1
12．显示 0
13. 整个应用程序 Public
14．Dim A(-1 To 2,1To 4) As Integer
15．0
16．整个模块或窗体 整个应用程序（或工程中所有的模块和所有的过程）
17．引用参数传递（或按址传递） 按值传递
18．TCP/IP UDP
三、阅读程序题
1．
19
2.
3
42
9
3．
29
4.
s =6 s =11 s =44
5．
6
7
8
6.
8 10
7．
A1= 10 B1= 20
A2= 20 B2= 10
8.
11
14
17
四、完善程序题
1．
[1] Set ADOcn = New Connection
[2] New
[3] ADOrs.Open strSQL
[4] Not
[5]Text1.SetFocus
2．
[1] Drive1.Drive ="e:/"
[2] Drive1.Drive
[3] File1.Path = Dir1.Path
[4] Dir1.Path
[5] Picture
五、编写程序题
1.标准答案
Private Sub Command1_Click()
Dim x As Integer, y As Single
x = Val(Text1.Text)
Select Case x
Case Is >= 3000
y = x * 1.1
Case Is >= 2000
y = x * 1.15
Case Else
y = x * 1.18
End Select
Label3.Caption = y
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
2.标准答案
Private Sub Form_Load()
List1.AddItem "Visual Basic程序设计"
List1.AddItem "数据库基础与应用"
List1.AddItem "信息系统测试"
List1.AddItem "计算机应用基础"
End Sub
Private Sub Command1_Click()
If Text1.Text <> "" Then
List1.AddItem Text1.Text
Text1.Text = ""
Else
MsgBox "请在文本框中输入信息！"
End If
End Sub
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex
End Sub
Private Sub Command3_Click()
If Command3.Caption = "修改" Then
Text1.Text = List1.Text
Text1.SetFocus
Command1.Enabled = False
Command2.Enabled = False
Command3.Caption = "修改确认"
Else
List1.List(List1.ListIndex) = Text1.Text
Command1.Enabled = True
Command2.Enabled = True
Text1.Text = ""
Command3.Caption = "修改"
End If
End Sub
Private Sub List1_Click()
If List1.ListIndex <> -1 Then
Command2.Enabled = True
Command3.Enabled = True
End If
End Sub
上一篇：2015春山东电大《地域文化（齐鲁文化概论）》综合练习
下一篇：暂无