中央广播电视大学2004-2005学年度第一学期"开放专科"期末考试
软件信息、软件网站计算机(应用)专业 Visual Basic程序设计 试题
2005年1月
一、单项选择题(每小题2分，共30分)
1．为了保存一个Visual Basic应用程序，下列说法正确的是( )
A. 只保存窗体文件(．frm)
B. 只保存工程文件(．Vbp)
C. 分别保存工程文件和标准模块文件(．bas)
D．分别保存工程文件、窗体文件和标准模块文件
2．语句Print 5* 5＼5／5的输出结果是( )
A. 5 B．25
C. 0 D．1
3．下列可作为Visual Basic变量名的是( )
A．A(A+B) B．Alpha
C. 4ABC D. AB∏
4．标准SQL语言本身不提供的功能是( )
A. 数据表定义 B．查询
C．修改、删除 D．绑定到数据库
5．以下4个控件中，不属于数据绑定控件的是( )
A. Text控件 B. OLE控件
C．Option控件 D．Image控件
6．在窗体上按下鼠标左键时产生的事件是( )
A．KeyDown B．MouseUp
C. MouseMove D．MouseDown
7．下列控件中不能响应Click事件的是( )
A．Frame B．Label
C. Form D．Timer
8．下列语句语法正确的是( )
A．a=l b＝2 c=3 B．a=l:b=2：c=3
C．a=1，b=2，c=3 D．a=1；b=2；c=3
9．确定一个控件在窗体上位置的属性是( )
A. Width或Height B．Width和Height
C．Top或Left D. Top和Left
10．KILL语句在VB语言中的功能是( )
A. 清内存 B. 清病毒
C. 删除磁盘上的文件 D．格式化硬盘
11．要清除列表框的所有内容，可用来实现的方法是( )
A．RemoveTtem B．Cis
C. Clear D. 以上均不可以
12．如下数组声明语句，正确的是( )
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
13．下列控件中，没有Caption属性的是( )
A. 框架 B. 列表框
C. 复选框 D．单选按纽
14．如果准备读文件，打开顺序文件"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
15．当Winsock控件处于关闭状态时，其State属性的值是( )
A．1 B．0
C. 2 D. 6
二、填空题(每空1分，共15分)
1．Visual Basic开发环境总是处于下列的三种模式之一，它们是：________、________和_______，而集成环境的标题栏总是显示_______。
2．表达式16/2-2∧3*7 MOD 9的值是_______。
3．算术式，写成VB表达式为_______________
4．要使文本框控件可以接受多行文本，需将其属性Multiline设置为________。
5．VB坐标系的默认单位是____________，除此之外，用户还可以选用其它的度量单位，这需要通过对象的___________属性来实现。
6．以窗体Form1的中心为圆心，画一个半径为800的圆的语句是______________________________________。
7．列表框控件中最后一项的序号等于ListCount属性减____________________。
8．在VisualBasic中，除了可以指定某个窗体作为启动对象之外，还可以指定_________作为启动对象。
9．闰年的条件是：年号(Y)能被4整除，但不能被100整除；或者年号能被400整除。表示该条件的逻辑表达式是
10．设某个程序中要用到一个二维数组，要求数组名为A，类型为整型，第一维下标从-1到2，第二维下标从-1到1，则相应数组声明语句为_____________________________。
11．COM对象有两种类型接口，即用户自定义接口和__________________。
三、阅读程序题(每小题5分，共20分)
阅读下列程序并写出程序运行结果
1．Private Sub Form_Click()
Dim x As Integer
Static y As Integer
x＝x+1
y=y+l
Forml．Print"x＝"；x，"y＝"；y
End Sub
写出程序运行时连续单击三次窗体后，Forml上的输出结果。
2．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=3
End Sub
文件框Text1的输出结果是：
3．Private Sub Form_Click()
Dim i as integer，j as integer
Dim c as integer
c＝0
For i＝1 To 3
For j=1 to 3
c=c+1
Next j
Next i
Print c
End Sub
写出程序运行时单击窗体后，c的输出结果：
4．Function F(a As Integer)
b＝0
Static c
b＝b+l
c=c+1
F＝a+b+c
End Function
Private Sub Command1_Click()
Dim 9 A3 Integer
a＝2
For i＝1 To 3
Print F(a)
Next i
End Sub
写出程序运行时，单击命令按钮在窗体上的输出结果。
四、完善程序题(每题10分，共20分)
1． 1． 创建一个绘图程序。当程序运行时，单击"开始"按纽，在Picture控件上画出随机彩色同心圆，单击"清屏"按钮，则图像消失。要求坐标度量单位为毫米，边线的宽度为2像素，绘制的圆不超出窗体。程序运行界面如图1所示。
图1
程序如下，请补充完整。
Private Sub Command1_Cliek()
Dim X As Integer，Y As Integer，r As Integer，r1 As Integer，i As Integer
ScaleMode=6
DrawWidth＝[1]
X=Picture1，ScaleWidth／2
Y＝Picture1．ScaleHeight／2
If ScaleWidth>ScaleHeight Then
[2]
Else
[3]
End if
For r1＝0 To r
Picture1．[4]
Next
End Sub
Private Sub Command2_Cliek()
[5]
End Sub
2． 2． 已知存在一名为"学生"的SQLServer数据库，其中的"students"数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQLServer数据库；当点击"增加"按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如图2所示。
程序如下，请补充完整。
'声明对象变量ADOcn，用于创建与数据库的连接
Private ADOcn As Connection
Private Sub Form_Load()
'连接SQLServer数据库
Dim strDB As String
strDB＝"Provider=SQLOLEDB; LSF；User ID＝sa; Password=；Database
＝[1] "
If ADOcn is Nothing Then
Set ADOcn＝[2]
ADOcn．Open strDB
End lf
End Sub
Private Sub Command1_Click()
'增加学生记录
Dim strSQL As String
Dim ADOrs As[3]____________Recordset
ADOrs．ActiveConnection=ADOcn
ADOrs．Open"Select学号From Students Where学号="+"'"+Text1+"'"
If NOt[4]__________________Then
MsgBox"你输入的学号已存在，不能新增加！"
Else
StrSQL="Insert Into students(学号，姓名，，籍贯，性别)
StrSQL＝strSQL+Values("+"，"+text1+"'，'"+text2+"'，'"+text3+"
'，'"+text4+"')"
ADOrs．Exeeute[5]_____________
MsgBox"添加成功，请继续!"
End lf
Private Sub Command2_Click()
Unload Me
End Sub
五、编写程序题(共15分)
编写一工资调整程序。若基本工资大于等于800元，工资增加20％，若小于800元大于600元，则工资增加15％；若小于600元则工资增加10％。要求在文本框Text1中输入某职工的基本工资，单击"计算"按钮，在标签框Label1中输出增加后的工资。程序运行界面如图3所示。
试卷代号：223l
中央广播电视大学2004-2005学年度第一学期"开放专科"期末考试
软件信息、软件网站计算机(应用)专业 Visual Basic程序设计
试题答案及评分标准
(供参考)
2005年1月
一、单项选择题(每小题2分，共30分)
1．D 2．B 3．B 4．D 5．C
6．D 7．D 8．B 9．D 10. C
11．C 12. B 13．B 14．C 15. B
二、填空题(每空1分，共15分)
1．设计模式 运行模式 中断模式 当前模式
2．6
3．(-b+sqr(b∧2-4*a*c))／(2*a)
4．True
5．缇(或Twips) ScaleMode
6．Circle(ScaleWidth／2，ScaleHeight／2)，800
7． 1
8．Main子过程
9．Y MOD 4＝0 And Y MOD 100<>0 OR Y MOD 400=0
10．Dim A(-1 TO 2，-1 To 1) As Integer
11．标准接口
三、阅读程序题(每小题5分，共20分)
1．x=1 y＝l
x=l y＝2
x=l y=3
2． 29
3． 9
4． 4
四、完善程序题(每题10分，共20分)
1．
[1]2
[2]r＝Y
[3]r＝X
[4]Circle (X，Y)，r1，RGB(255 * Rnd，255 * Rnd，255 * Rnd)
[5]Picture1．C1s
2．
[1]学生；
[2]New Connection
[3]New；
[4]ADOrs．EOF；
[5]strDB：
五、编写程序题(共15分)
参考答案：
Private Sub Command1_Click()
Dim x As Integer, y As Single
x=Val(Text1．Text)
Select Case x
Case If>＝800
y=x * 1.2
Case lf>＝600
y=x*1.15
Case Eise
y=x * 1.1
End Select
Label1．Caption=y
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
来源：网络整理 免责声明：本文仅限学习分享，如产生版权问题，请联系我们及时删除。
相关文章：
2187电大《动物生产概论》试题和答案20050704-27
2187电大《动物生产概论》试题和答案20080104-27
2186电大《电子商务概论》试题和答案20080704-27
2185电大《电子商务法律与法规》试题和答案20090104-27
2186电大《电子商务概论》试题和答案20050704-27
2186电大《电子商务概论》试题和答案20070104-27
2185电大《电子商务法律与法规》试题和答案20080704-27
2185电大《电子商务法律与法规》试题和答案20070104-27