2023年Basic程序设计期末综合练习题二.doc

Visual Basic程序设计期末综合练习题二

一、单项选择题
1．在下列有关Visual Basic的叙述中，错误的是（ ）。
A．采用了事件驱动的编程机制 B．是面向对象的编程语言
C．是可视化的程序设计语言 D是面向过程的程序设计语言 ．
2．应用程序打包后，其包文献的后缀为（ ）。
A．.exe B．.txt
C．.cab D．.ocx
3．在新建一个“标准EXE”工程后，不在工具箱中出现的控件是（ ）。
A．列表框 B．通用对话框
C．驱动器列表框 D．图片框
4．设窗体的名称为Form1，则在程序运营过程中，单击窗体时，被执行的事件过程的名称是（ ）。
A．Form1_Click() B. Form1_DbClick()
C．Form_Click() D．Form_DbClick()
5．对于定期器（Timer）控件,设立其定期是否启动的属性是（ ）。
A．Index B．Tag C．Enabled D．Interval
6．在Visual Basic中，工程文献的扩展名为（ ）。
A．.frm B．.vbp
C．.cls D．.bas
7．有程序代码如下：
Text1.Text = "欢迎走进VB世界！"
则Text1，Text ，和"欢迎走进VB世界！"分别代表（ ）。
A．对象，值，属性 B．对象，属性，值
C．对象，方法，属性 D．属性，对象，值
8．以下叙述中对的的是（ ）。
A．窗体的Name属性指定窗体的名称，用来标记一个窗体
B．窗体的Name属性的值是显示在窗体标题栏中的文本
C．可以在运营期间改变对象的Name属性的值
D．对象的Name属性值可认为空
9. VB提供了结构化程序设计的三种基本结构是（ ）。
A．选择结构、过程结构、顺序结构
B．选择结构、循环结构、顺序结构
C．过程结构、转向结构、递归结构
D．递归结构、选择结构、循环结构
10．在VB中，下列变量名不合法的是（ ）。
A．take_1 B．take C．take_1_2 D． take-1
11．下列说法中对的的是（ ）。
为了保存一个Visua Basic应用程序，应当
A．只保存窗体文献
B．只保存工程文献
C．分别保存工程文献和标准模块文献
D．分别保存工程文献、窗体文献和标准模块文献
12．拟定一个控件在窗体上的位置的属性是（ ）。
A．Width或Height B．Width和Height
C．Top和Left D． Top或Left
13．拟定一个窗体或控件的大小的属性是（　　）
A．Width或Height 　　　　 B．Width和Height
C．Top或Left　　　 D．Top和Left　
14．当一个工程具有多个窗体时，其中的启动窗体是（ ）。
A．第一个添加的窗体 B．最后一个添加的窗体
C．包含控件最多的窗体 D．在“工程属性”对话框中指定的窗体
15．在一个语句行内写多条语句时，语句之间应当用（ ）分隔。
A．逗号 B．冒号
C．顿号 D．分号
16．要设立命令按钮的背景图形，必须设立的两个属性是（ ）。
A．Style和Picture B．Style和Icon
C．Caption和Picture D．Value和Icon
17．目录列表框的Path属性的作用是（ ）。
A．显示当前驱动器或指定驱动器上的某目录下的文献名
B．只显示当前程径下的文献
C．显示根目录下的文献名
D．显示当前驱动器或指定驱动器上的途径
18．将数据" China"项添加到列表框（List1）中成为第一项应使用的语句是（ ）。
A．List1.AddItem 0, " China" B．List1.AddItem 1, " China"
C．List1.AddItem " China" ,0 D．List1.AddItem " China" ,1
19．要绘制多种形状的图形，需要设立Shape控件的（ ）属性。
A、Style B、Borderstyle
C、FillStyle D、Shape
20．下列可以把当前目录下的图形文献pic1.jpg装入图片框Picture1中的语句为（ ）。
A．Picture1=" pic1.jpg "
B．Picture1 =LoadPicture("pic1.jpg")
C．Picture 1.Picture=LoadPicture(("pic1.jpg")
D．Picture 1.Picture=LoadPicture(("pic1 ")
21．假如要在窗体代码编辑器的”通用”部分定义私有Sub过程，则对的的语句是（　　）。
A．Public Sub B．Private Sub
C．Public Function D．Private Function
22．不属于VB数据库引擎的是（ ）。
A．ODBC B．BDE C．Jet引擎 D．OLEDB
23. 在VB应用程序中，进行断点设立的按键是（　　）。
A．Ctrl+F9键　　　　　　　　　B．F9键
C．Ctrl+F8键　　　　　　　　 D．F8键　
24．假如准备读文献，打开顺序文献”text.dat”的对的语句是（ ）。
A．open"text.dat"For wrire As # 1
B．open"text.dat"For Binary As # 1
C．open"text.dat"For Input As # 1
D．open"text.dat"For Random As # 1
25．使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（ ）。
A．Open B．Execute
C．CommandType D．ActiveConnection
26.使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（ ）。
A．Open B．Execute
C．CommandType D．ActiveConnection
27．在VB中，一旦数据到达，将一方面触发Winsock控件的（ ）。
A．DataArrival事件　　　　　 B．ConnectionRequest事件　　　　
C．DataSend事件　　　 D．GetGet事件
28．Winsock控件的LocalPort属性的作用是（　　）
A ．仅返回所用断口 　　　 B．仅设立所用端口
C．返回或设立所用端口　 D．返回或设立IP地址

二、填空题
1．每个应用程序必须有一个惟一的 文献。
2．窗体文献和类模块文献的扩展名分别是 和 。
3．表达式6 + 15 \ 2 * 2 Mod 2的值是 。
4．表达式17\2-2^3*5MOD6的值是 。
5．计时器控件响应的事件是 。
6．在Visual Basic中，变量的默认类型是 。
7．为了在运营时把当前程径下的图形文献show.jpg装入图片框P1，所使用的语句为 。
8．设某个程序中要用到一个二维数组，规定数组名为A，类型为整型，第一维下标从0到2，第二维下标从1到3，则相应数组声明语句为 。
9．用Dim A(-2 to 3)语句声明二维数组后，数组A的元素共有 个。
10. VB中参数传递的机制有两种，一种是 参数，另一种是
参数。
11. 控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。
12．若窗体的左上角坐标为（-200，250），右下角坐标为（300，-150），则X轴的正向向 ，Y轴的正向向 。
13．窗体、图片框或图像框中的图形通过对象 属性。
14．在VB中，将Foxpro称为外部数据库，Access称为 ，SQL Server称为 。
15．vb应用程序与数据库进行通信的重要机制称为 。
16．全局变量必须在 模块中定义，所使用的关键字为 。
17．全局变量是指那些在 中有效的变量，一般在模块代码编辑器的顶部使用 声明。
18．Winsock控件重要用来编制 或 协议的网络应用程序。
三、阅读程序题（共25分）
阅读下列程序并写出程序运营结果
1．
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的值。

2.
Private Sub Form_Click()
Static a As Integer
Dim b As Integer
a = a + 3
b = b + 4
Text1 = a
Text2 = b
End Sub
写出程序运营时连续单击三次窗体后，文本框Text1和Text2显示结果。

3.
Private Sub Form_Click()
Dim A(1 To 3) As String
Dim c As Integer, j As Integer
A(1) = "2"
A(2) = "4"
A(3) = "6"
c = 2
For j = 1 To 3
c = c + Val(A(j))
Next j
Print c
End Sub
写出程序运营时单击窗体后，Form1上的输出结果。

4.
Private Sub Form_Click()
n = 0
For i = 1 To 2
For j = 2 To 4
If j Mod 2 <> 0 Then
n = n + 1
End If
n = n + 2
Next j
Next i
Print n
End Sub
写出程序运营时单击窗体后，窗体Form1上的输出结果。

5.
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 2: b = 3
For i = 1 To 3
For j = 1 To i
b = b + j
Next j
a = a + b
Next i
Print a
End Sub
写出程序运营时单击命令按钮后，窗体Form1上的输出结果。

6.
Private Sub Form_Click()
Dim A(1 To 4) As String
Dim c As Integer
Dim j As Integer
A(1) = "4"
A(2) = "6"
A(3) = "8"
A(4) = "10"
c = 1
For j = 1 To 4
c = c + Val(A(j))
Next j
Print c
End Sub写出程序运营时单击窗体后，窗体Form1上的结果。

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 = 10: b = 20
Change a, b
Print a, b
End Sub
写出程序运营时单击窗体后，Form1上的输出结果。

8.
Function F(n As Integer) As Long
Dim i As Integer, Temp As Long
Temp = 1
For i = 1 To n
Temp = Temp * i
Next i
F = Temp
End Function
Private Sub Form_Click()
Dim k As Integer, nj As Integer
k = 5
nj = F(k)
Print k; "！="; nj
End Sub
写出程序运营时，单击窗体Form1上的输出结果。

四、完善程序题（共10分）

1．已知存在一名为“学生”的SQL Server数据库，其中的“students”数据表用来存储学生的基本情况信息，涉及学号、姓名、籍贯、性别。请编写一个简朴的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增长”按钮时，一方面查询学号是否反复，假如不反复则向students表中添加学生记录。其运营界面如图1所示。

图1
程序如下，请补充完整。
'声明对象变量ADOcn，用于创建与数据库的连接
Private ADOcn As Connection
Private Sub Form_Load()
'连接SQL Server数据库
Dim strDB As String
strDB = "Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = [1] "
If ADOcn Is Nothing Then
[2]
[3]
End If
End Sub

Private Sub Command1_Click()
'增长学生记录
Dim strSQL As String
Dim ADOrs As [4]
[5] =ADOcn
ADOrs.Open “Select 学号 From Students Where 学号=”+” ‘ “+Text1+” ‘ “
[6] Then
MsgBox “你输入的学号已存在，不能新增长！”
Else
StrSQL=”Insert Into students (学号,姓名,,籍贯, 性别)
StrSQL=strSQL+Values(”+” ‘ “+text1+” ‘ , ‘ “+text2+” ‘,’ “+text3+” ‘,’ “+text4+” ‘)”
ADOrs.Execute [7]
MsgBox “添加成功，请继续！”
End If

Private Sub Command2_Click()
Unload Me
End Sub

2．
在窗体上建立一个驱动器列表框、目录列表框、文献列表框、图片框、文本框。规定程序运营后，驱动器列表框Drive1的默认驱动器设立为E盘，选择File1中所列的图片文献（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文献的途径显示在文本框中。程序运营结果如图2所示。

图2

程序如下，请补充完整。
Private Sub Form_Load()
Drive1.Drive = [1]
[2] = "*.bmp;*.gif;*.jpg"
End Sub
Private Sub Drive1_change()
[3] = Drive1.Drive
Text1.Text = Drive1.Drive
End Sub
Private Sub Dir1_Change()
[4]
Text1.Text = Dir1.Path
End Sub
Private Sub File1_click()
Picture1. [5] = LoadPicture(File1.Path + "\" + File1.FileName)
FileName = File1.Path + "\" + File1.FileName
Text1.Text = [6]
End Sub
五、编写程序题
1.按下述规定，编写一征收所得税程序。
（1）收入在1000元以内，不纳税；
（2）收入超过1000元以上的部分，纳税20%
（3）当收入达成5000元或超过时，5000元以上的部分，纳税22%。
程序运营界面如图3所示：

图3

答案
一、单项选择题
1.D 2.C 3.B 4.C 5.C 6.B 7.B 8.A 9.B 10.D 11.D 12.C 13.B 14.D 15.B 16.A 17.D 18.C 19.D 20.C 21．B 22．B 23．B 24．C 25.D 26.D 27.A 28.C

二、填空题（每小题2分，共20分）
1．.vbp
2．.frm .cls
3．7
4．4
5．Timer
6．Variant 或变体型
7．P1. Picture = LoadPrcture("show.jpg")
8．Dim A(0 To 2,1To 3) As Integer
9．6
10．引用参数传递（或按址传递） 按值传递
11．Name Index
12.右 上
13Picture
14.本地数据库、远程数据库
15.数据库引擎
16.标准 Public
17.整个应用程序 Public
18.CP/IP UDP

三、阅读程序题
1.
s =6 s =11 s =44

2.
3 4
6 4
9 4

3.
14

4.
14

5．
26

6．
29

7．
30 20
20 30

8．
5！=120

四、完善程序题
1．
[1]学生
[2] Set ADOcn =New Connection
[3]ADOcn.Open strDB
[4]New Recordset
[5] ADOrs.ActiveConnection
[6]If Not ADOrs.EOF
[7] str SQL

2．
[1] "E:\"
[2]File1.Pattern
[3] Dir1.Path
[4] File1.Path = Dir1.Path
[5] Picture
[6] FileName

五、编写程序题
参考答案：
Private Sub Command1_Click()
Dim x As Integer, tax As Single
x = Val(Text1.Text)
If x <= 1000 Then
tax = 0
ElseIf x <= 5000 Then
tax = (x - 1000) * 0.2
Else
tax = (x - 5000) * 0.22 + 4000 * 0.2
End If
Label3.Caption = tax
End Sub

Private Sub Command2_Click()
Unload Me
End Sub