期末综合练习二
一、单项选择题
1．VB工程文件的后缀是（ ）。
A．.frm B．.vbp
C．.cls D．.bas
2．在一个语句行内写多条语句时，语句之间应该用（ ）分隔。
A．逗号 B．分号
C．顿号 D．冒号
3．与传统的设计语言相比，Visual Basic最突出的特点是（ ）。
A．程序开发环境 B．结构化程序设计
C．事件驱动的编程机制 D．程序调试技术
4．在Visual Basic中，变量的默认类型是（ ）。
A．Double B．Integer
C．Currency D．Variant
5．当一个工程中含有多个窗体时，其中的启动窗体是（ ）。
A．启动VB时创建的第一个窗体 B．第一个添加的窗体
C．最后一个添加的窗体 D．在“工程属性”对话框中指定的窗体
6．目录列表框的Path属性的作用是（ ）。
A．显示当前驱动器或指定驱动器上的某目录下的文件名
B．显示当前驱动器或指定驱动器上的路径
C．显示根目录下的文件名
D．只显示当前路径下的文件
7．VB集成开发环境中，提供控件的窗口是（ ）。
A．工具栏 B．工具箱
C．属性窗 D．工程管理器
8．要退出Do…Loop循环，可使用的语句是（ ）语句。
A．Exit B．Exit For C．Exit Do D． End Do
9．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（ ）。
A．缺少.frm窗体文件 B．该可执行文件有病毒
C．运行的机器上无VB系统 D．以上原因都不对
10．有程序代码如下：
Text1.Text = "欢迎参加Visual Basic程序设计课程的学习！"
则Text1，Text ，和" VB，你好！"分别代表（ ）。
A．对象，值，属性 C．属性，对象，值
C．对象，方法，属性 D．对象，属性，值
11．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）。
A．单选按纽 B．通用对话框
C．框架 D．图片框
12．下列关于变量的说法不正确的是（ ）。
A．局部变量是指那些在过程中用Dim语句或Static语句声明的变量
B．局部变量的作用域仅限于声明它的过程
C．静态局部变量是在过程中用Static语句声明的
D．局部变量在声明它的过程执行完毕后就被释放了
13．为使文本框显示滚动条，必须首先设置的属性是（ ）。
A．AutoSize B．Alignment C．Multiline D．TabStop
14．要绘制多种形状的图形，需要设置Shape控件的（ ）属性。
A．Style B．Borderstyle
C．Shape D．FillStyle
15．在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是（ ）
A．设计模式 B．中断模式
C．执行模式 D．编写代码模式
16．为了使图像框中的图形自动适应图像框的大小，则应（ ）。
A．将其AutoSize属性值设置为True B．将其AutoSize属性值设置为False
C．将其Stretch属性值设置为True D．将其Stretch属性值设置为False
17．要在窗体Form1内显示“myfrm”，使用的语句是（ ）。
A．Form.caption="myfrm" B．Form1.caption="myfrm"
C．Form1.print "myfrm" D．Form. print "myfrm"
18．如果要在窗体代码编辑器的”通用”部分定义私有Sub过程，则正确的语句是（ ）。
A．Public Sub B．Private Sub
C．Public Function D．Private Function
19．要设置命令按钮的背景图形，必须设置的两个属性是（ ）。
A．Value和Icon B．Style和Icon
C．Caption和Picture D． Style和Picture
20．不属于VB数据库引擎的是（ ）。
A．ODBC B．OLE DB
C．Jet引擎 D．BDE
21．在设计动画时，用时钟控件来控制动画速度的属性是（ ）。
A．Enabled B．Interval
C．Timer D．Move
22. 在VB应用程序中，进行断点设置的按键是（ ）。
A．F9键 B．Ctrl+F9键
C．F8键 D．Ctrl+F8键
23．如果创建了命令按钮数组控件，那么Click事件的参数是（ ）。
A．Caption B． Index
C．Tag D．没有参数
24．ADO对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是（ ）。
A．Command B．Connection
C．Recordset D．Field
25．VB程序中通常不会产生错误提示的是（ ）。
A．编译错误 B．实时错误
C．运行时错误 D．逻辑错误
26．使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（ ）。
A．Open B．Execute
C．CommandType D．ActiveConnection
27．在VB中，下列合法的变量名是（ ）。
A．2ab B． a-b C．a_2 D． Double
28．下列只能用程序代码设置，不能通过属性窗口设置的属性是（ ）。
A．Drive属性 B．Pattern属性 C．Visible属性 D．Index属性
29．不属于VB数据库引擎的是（ ）。
A．ODBC B．BDE
C．Jet引擎 D．OLE DB
30．在VB中，一旦数据到达，将首先触发Winsock控件的（ ）。
A．DataArrival事件 B．ConnectionRequest事件
C．DataSend事件 D．GetGet事件
二、填空题
1. Visual Basic提供了结构化程序设计的3种基本结构，这3种基本结构是顺序结构、 和 。
2．控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。
3．在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按 键。
4．若窗体的左上角坐标为（-300，250），右下角坐标为（300，-250），则X轴的正向向 ，Y轴的正向向 。
5．Visual Basic程序开发有三种模式，即设计模式、 模式和 模式。
6．表达式13/2-2^3*5 MOD 6的值是 。
7．列表框控件中最后一项的序号等于Listcount属性减 。
8．执行赋值语句a = "123" + "456"后，变量a的值是 。
9．如果要每隔0.5s产生一个Timer事件，则Interval属性应设置为 。 10．程序的运行结果和程序员的设想有出入时产生的错误称为 。
11．在VB中，将Access称为 ，SQL Server称为 。
12．vb应用程序与数据库进行通信的主要机制称为 。
13．使用ADO模型时，可通过 属性建立Recordset和Connection对象的连接。
14．全局变量必须在 模块中定义，所使用的关键字为 。
15．过程级变量是指在过程内部声明的变量，只有在该过程中的代码才能访问这个变量。模块级或窗体级变量的作用域是 ，全局变量在整个应用程序中有效，其作用域是 。
16．Winsock控件主要用来编制TCP/IP或 协议的通话程序。
17. 某个程序中要用到一个二维数组，要求数组名为B，类型为字符串类型，第一维下标从0到3，第二维下标从-2到3，则相应的数组声明语句为 。
18．Dim i As Integer，则运行时变量i的初始值是 。
三、阅读程序题
阅读下列程序并写出程序运行结果
1．
Private Sub Form_Click()
Dim x As Integer
Static y As Integer
x = x + 5
y = x + y
Form1.Print "x="; x, "y="; y
End Sub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。
2.
Private Sub Command1_Click()
Dim n As Integer, y As Integer, x As Integer
a = 1
Do While a < 8
n = n + 1
b = b + 2
a = a * (a + 1)
Loop
Text1.Text = n
Text2.Text = a
Text3.Text = b
End Sub
写出程序运行时单击Command1后，文件框Text1、 Text2和 Text3的输出结果。
3．
Private Sub Command1_Click()
n = 1: x = 1: y = 0
Do While x < 5
n = n + 2
y = x + y
x = x * (x + 1)
Loop
Text1.Text = "n=" & Str(n)
Text2.Text = "x=" & Str(x)
Text3.Text = "y=" & Str(y)
End Sub
程序运行时单击Command1后，分别写出文本框Text1，Text2和Text3的值。
4.
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 1: b = 2
For i = 1 To 3
For j = 1 To i
b = b + j
Next j
a = a + b
Next i
Print b
End Sub
写出程序运行时单击命令按钮后，窗体Form1上的输出结果。
5．
Private Sub Form_Click()
Dim c As Integer, j As Integer, k As Integer
k = 3
c = 4
For j = 1 To 5
If j > 3 Then
c = c + 5
Exit For
Else
k = k + 1
End If
Next j
Print c, k
End Sub
写出程序运行时单击窗体后，c,k的值分别是：
6.
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
写出程序运行时，单击命令按钮在窗体上的输出结果。
7．
Sub Change(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
Print x, y
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 4: b = 8
Change a, b
Print a, b
End Sub
写出程序运行时单击窗体后，c,k的值分别是：
8.
Sub Change(ByVal x As Integer, y As Integer)
Dim t As Integer
t = x
x = y
y = t
Print x, y
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 10: b = 20
Change a, b
Print a, b
End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
四、完善程序题
1．程序运行界面如图1所示。要求从文本框中输入课程名称，然后按“添加”按钮，将其添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。
图1
程序如下，请补充完整。
Private Sub Form_Load()
List1.AddItem "计算机应用基础"
List1.AddItem "程序设计基础"
List1.AddItem "VB程序设计"
List1.AddItem "SQLServer数据库应用"
List1.AddItem "网站设计技术"
List1.AddItem "系统开发规范与文档编写"
List1.AddItem "信息系统测试"
End Sub
Private Sub Command1_Click()
If Text1.Text <> "" Then
List1. [1] Text1.Text '将文本框中的内容添加到列表框中
Text1.Text = ""
Else
MsgBox "请在文本框中输入信息！"
End If
End Sub
Private Sub Command2_Click()
List1. [2] List1.ListIndex '删除选定的项目
End Sub
Private Sub Command3_Click()
If Command3.Caption = "修改" Then
[3] =List1.Text
Text1.SetFocus
Command1.Enabled = False
Command2.Enabled = False
Command3.Caption = [4]
Else
List1.List(List1.ListIndex) = Text1.Text
Command1.Enabled = True
Command2.Enabled = True
Text1.Text = [5]
Command3.Caption = "修改"
End If
End Sub
2. 假设在C盘根目录中存在一个名为“学生.MDB”的Access数据库，其中包含一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图2所示。
现在要求利用VB编写一个数据库记录增加程序，程序的运行界面如图3所示，基本逻辑是：分别在Text1、Text2、Text3中输入学号、姓名、籍贯信息，然后点击“保存”按钮(Command1)将该记录添加到数据库中。如果数据库中已经存在相同的学号信息，则程序应提示用户“记录已存在，请重新输入”，并将焦点置于Text1上，等待用户修改或重新输入。当点击退出按钮(Command2)时关闭本窗体。
图2
图3
程序如下，请补充完整。
Private Sub Form_Load()
[1] "Provider=Microsoft.Jet.OLEDB.4.0;Dataource=学生.mdb;Persist Security Info=False"
End Sub
Private Sub Command1_Click()
Dim strSQL As String
[ 2]
[3] = ADOcn
Dim ADOrs As New Recordset
ADOrs.ActiveConnection = ADOcn
strSQL = "Select * from 学生基本情况 Where 学号= '" + Text1 + " ' "
ADOrs.Open [4]
If Not ADOrs.EOF Then
MsgBox "学号已经存在，请重新输入!", vbOKOnly, "信息提示"
Text1.SetFocus
Else
strSQL = "Insert Into 学生基本情况(学号,姓名,籍贯) "
strSQL = strSQL + " Values ( '" + Text1 + " ','" + Text2 + "','" + Text3 + " ')"
[5] Execute strSQL
MsgBox "添加成功!", vbOKOnly, "信息提示"
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
五、编写程序题
1．编写一程序。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为e盘，选择驱动器的盘符，则在目录列表框中显示该该驱动器下的目录；点击目录列表框中的某一目录，在文件列表框File1中显示该目录下的图片文件（*.jpg）；选择File1中所列的图片文件，则相应的图片显示在图片框Picture1中。程序运行结果如图4所示。
图4
2．编制一计算某个学生奖学金等级的应用程序，程序运行界面如图5所示。
要求：只考虑一等奖，以三门功课成绩m1，m2，m3为评奖依据。奖学金一等奖评定标准如下：⑴ 平均分大于95者；⑵ 有两门是100分，且第三门功课不低于80分者。
期末综合练习二答案
一、单项选择题
1.B 2.D 3.C 4.D 5.D 6.B 7.B 8.C 9.C 10.D 11.B 12.D 13.C 14.C 15.D 16．C 17.C 18．B 19.D 20．D 21.B 22．A 23.B 24.B 25.D 26.D 27.C 28.A 29.B 30.A
二、填空题
1．选择结构 循环结构
2．Name Index
3．F1
4. 右 上
5．中断 执行
6．2
7．1
8．123456
9．500
10. 逻辑错误
11．本地数据库 远程数据库
12．数据库引擎
13．ActiveConnection
14. 标准 Public
15．整个模块或窗体 整个应用程序（或工程中所有的模块和所有的过程）
16．UDP
17．Dim B(0 To 3,-2 To 3) As String
18．0
三、阅读程序题
1.
x=5 y=5
x=5 y=10
x=5 y=15
2．
3
42
6
3.
n= 5
x= 6
y= 3
4．
12
5.
9 6
6．
11
14
17
7.
8 4
4 8
8．
20 10
10 10
四、完善程序题
1．
[1] AddItem
[2] RemoveItem
[3] Text1.Text
[4] "修改确认"
[5] ""
2．
[1] ADOcn.Open
[2] Dim ADOrs As New Recordset
[3] ADOrs.ActiveConnection
[4] strSQL
[5] ADOcn.
五、编写程序题
1.参考答案
Private Sub Form_Load()
Drive1.Drive = "e:/"
File1.Pattern = "*.bmp;*.gif;*.jpg"
End Sub
Private Sub Drive1_change()
Dir1.Path = Drive1.Drive
Text1.Text = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
Text1.Text = Dir1.Path
End Sub
Private Sub File1_click()
Picture1.Picture = LoadPicture(File1.Path + "/" + File1.FileName)
FileName = File1.Path + "/" + File1.FileName
Text1.Text = FileName
End Sub
2.参考答案：
Private Sub Command1_Click()
Dim b1 As Boolean, b2 As Boolean, b3 As Boolean, b4 As Boolean
Dim m1%, m2%, m3%
m1 = Text1: m2 = Text2: m3 = Text3
b1 = (m1 + m2 + m3) / 3 >= 95
b2 = m1 = 100 And m2 = 100 And m3 >= 80
b3 = m3 = 100 And m2 = 100 And m1 >= 80
b4 = m1 = 100 And m3 = 100 And m2 >= 80
If b1 Or b2 Or b3 Or b4 Then
Label4 = "一等奖"
Else
Label4 = "无一等奖"
End If
End Sub
来源：网络整理 免责声明：本文仅限学习分享，如产生版权问题，请联系我们及时删除。
相关文章：
2015春黑龙江电大专科电大《社会学概论》综合练习题四04-30
2015春黑龙江电大专科电大《社会学概论》综合练习题三04-30
2015春电大《民族理论与民族政策》综合练习题（2）04-30