2021年Basic程序设计形成性考核.doc

Visual Basic程序设计形成性考核3

班级 学号 姓名 成绩

一、单项选取题
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