试卷代号：7326
陕西开放大学开放教育2021—2022学年度第一学期大作业考核
VisualBasic程序设计（满分：100）
2022年1月
一、单项选择题（每小题2分，共30分）
1．Visual Basic是一种面向对象的可视化编程语言，采取了（ ）的编程机制。
A．按过程顺序执行 B．从主程序开始执行
C．事件驱动 D．按模块顺序执行
2．要设置命令按钮的背景图形，必须设置的两个属性是（ ）
A．Caption和Picture B．、Style和Picture
C．Style和Icon D、Value和Icon
3．工程文件的扩展名是（ ）。
A．.vbp B．.frm
C．.bas D．.frx
4．有程序代码如下：
Text1.Text = “欢迎学习VB程序设计”
则Text1，Text ，和”欢迎学习VB程序设计”分别代表（ ）。
A．对象，值，属性 B．对象，属性，值
C．对象，方法，属性 D．属性，对象，值
5. Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（ ）。
A．设计模式 B．编写代码模式
C．执行模式 D．中断模式
6．下列控件中，不能改变大小的是（ ）。
A．TextBox B．Label
C．Timer D．PictureBox
7．多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把（ ）指定为启动窗体。
A．不包含任何控件的窗体 B．命名为Frm1的窗体
C．包含控件最多的窗体 D．设计时的第一个窗体
8．Dim A(1 To 4,0 To 3)定义的数组包含的元素的个数是（ ）。
A．12 B．16
C．15 D．动态变化
9．如果创建了命令按纽控件数组，则Cilick事件的参数是（ ）。
A．Caption B．Index C．Tag D．没有参数
10．不属于VB数据库引擎的是（ ）
A．ODBC B．Jet引擎
C．OLE DB D． BDE
11．要向图片框P1中加载“d:\hainan\zhiwu.bmp”图像文件，应使用语句（ ）。
A．Picture1.Picture=” d:\hainan\zhiwu.bmp ”
B．Picture1.Picture=LoadPicture(“d:\hainan\zhiwu.bmp “)
C．P1.Picture=LoadPicture(“d:\hainan\zhiwu.bmp “)
D．P1.Picture=LoadPicture(d:\hainan\zhiwu.bmp)
12．.以下属性只能用程序代码设置，不能通过属性窗口设置的是（ ）。
A．Index属性 B．Pattern属性 C．Visible属性 D．Drive属性
13．以下有关Visual Basic语言描述中错误的是（ ）。
A．语句是一行一句，以回车键结束
B．用“,”分隔一行中的多个语句
C．不区分大小写
D．一条语句放在多行中，则在前一行结束处使用续行符“_”连接下一行
13.在下列选项中，不能将图像装入图片框和图像框的是（ ）
A．在界面设计时，通过Picture属性装入
B．在界面设计时，手工在图像框和图片框中绘制图形
C．在界面设计时，利用剪贴板把图像粘贴上
D．在程序运行期间，用LoadPicture函数把图形文件装入
14.使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（ ）。
A．Open B．Execute
C．CommandType D．ActiveConnection
15．要发送数据，通常使用Winsock控件的（ ）
A ．Listen B．Accept
C．SendData D．GetData
二、填空题（每小题2分，共20分）
1．每个应用程序必须有一个惟一的 文件。
2．表达式13\2-2^3*5 MOD 6的值是 。
3．如果要每隔3s产生一个Timer事件，则Interval属性应设置为 。 4．VB中的程序错误类型主要有实时错误 、 三种。
5. 控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。
6．Winsock控件主要用来编制基于 或 协议的网络应用程序。
7．如果不能事先确定变量的数据类型，则可以把它生命为 类型。
8．以写方式打开D盘中的 Text.dat文件，正确的语句是
9．全局变量是指那些在 中有效的变量，一般在模块代码编辑器的顶部使用 声明。
10．VB中参数传递的机制有两种，一种是 参数，另一种是
参数。
三、阅读程序题（共25分）
阅读下列程序并写出程序运行结果
1．(6分)
Private Sub Form_Click()
Dim x As Integer
Static y As Integer
x = x + 2
y = y + 3
Form1.Print “x=”; x, “y=”; y
End Sub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。
2．(6分)
Private Sub Command1_Click()
x = 0
Do While x < 60
x = (x + 3) * (x + 4)
n = n + 1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
写出程序运行后，文件框Text3的结果。
3. (6分)
Private Sub Form_Click()
Dim A(1 To 3) As String
Dim c As Integer
Dim j As Integer
A(1) = “4”
A(2) = “8”
A(3) = “12”
c = 1
For j = 1 To 3
c = c + Val(A(j))
Next j
Print c
End Sub
写出程序运行时单击窗体后，窗体Form1上的结果。
4. (7分)
Public Sub change1(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Public Sub change2(x As Integer, y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 22: b = 33
change1 a, b
Form1.Print “A1=”; a, “B1=”; b
a = 22: b = 33
change2 a, b
Form1.Print “A2=”; a, “B2=”; b
End Sub
写出程序运行时，单击窗体Form1上的输出结果。
四、完善程序题（共10分）
1．列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，将该课程名程添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图1所示。
图 1
程序如下，请补充完整。
Private Sub Form_Load()
List1.AddItem “Visual Basic程序设计”
List1.AddItem “SQL SERVER数据库应用”
List1.AddItem “信息管理系统”
List1.AddItem “ERP原理与应用”
List1.AddItem “网络实用技术基础”
List1.AddItem “系统开发规范与文档编写”
List1.AddItem “信息系统测试”
End Sub
Private Sub Command1_Click()
If Text1.Text <> “” Then
[1] ‘将文本框中的内容加到列表框中
Text1.Text = “”
[2]
MsgBox “请在文本框中输入信息！”
End If
End Sub
Private Sub Command2_Click()
[3] ‘删除选定的项目
End Sub
Private Sub Command3_Click()
If Command3.Caption = [4] Then
Text1.Text = [5]
Text1.SetFocus
Command1.Enabled = [6]
Command2.Enabled = False
Command3.Caption = [7]
Else
List1.List(List1.ListIndex) = Text1.Text
Command1.Enabled = True
Command2.Enabled = True
Text1.Text =””
Command3.Caption = [8]
End If
End Sub
五、编写程序题（共15分）
编写一工资调整程序。若基本工资大于等于800元，增加工资20%，若小于800元大于600元，则增加工资15%；若小于600元则增加工资10%。要求在文本框Text1中输入某职工的基本工资，单击“计算”按钮，在标签框Label1中输出增加后的工资。程序运行界面如图4所示。
图2
