中央广播电视大学2007--2008学年度第一学期"开放专科"期未考试
计算(应)等专业 Visual Basic程序设计 试题
2008年1月
一、单项选择题(每小题2分，共30分)
1．与传统的设计语言相比，V1SUal Basic最突出的特点是( )。
A．程序开发环境 B. 结构化程序没计
C. 事件驱动的编程机制 D. 程序调试技术
2．VB集成开发环境中，提供控件的窗口是( )。
A．工具栏 B，工具箱
C. 属性窗 D，工程管理器
3，刚建立一个新的标准ExE工程后，不在工具箱中出现的控件是( )。
A. 单选按纽 B. 图片框
C．框架 D，通用对话框
4，在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是( )。
A. 没计模式 B．中断模式
C. 执行模式 D. 编写代码模式
5．要在窗体Forllll内显示"欢迎您!"，使用的语句是( )。
A. Form.caption＝"欢迎您!" B．Forml.caption="欢迎您!"
C．Forml．print"欢迎您！" D．Form.print"欢迎您!"
6．能够改变标答控件显示标题的属性是( )。
A，Name B．Caption
C． Text D． BurdeStyle
7．在VB中，下列合法的变量名是( )。
A．4ab B．a- b
C. a_4 D．integer
8．如果要在文本框中键人字符时，只显示某个字符，如星号(*)，应设置文本框的( )
属性。
A．Caption B．PasswordChar
C．Text D．Locked
9. 要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列
( )属性设置就有效。
A．MaxBullon B. BorderSyle
C. Width D．MinButton
1o．要址置命令按钮的背景图形，必须设置的两个属性是( )，
A．Slyle和Picture B．Style和Icon
C．Captlon和Picture D．Value和Icon
11．VB程序中通常不会产生错误提示的是( )。
A．编译错误 B. 实时错误
C．运行时错误 D，逻辑错误
12，执行Forml，Scale(14，14)-(14，14)语句后，Forml窗休坐标系x轴和y轴的正
向是( )。
A. ．向左和向下 B．向右和向下
c. 向左和向上 D．向右和向下
13．使用ADO数据模型时，建立Recordset和Connection对象连接的属性是( )，
A．Exccute B．ComnmndType
C. Open D．ActiveConnction
14．用来从数据库表巾删除记录的SQL命令是( )，
A．DELETE B．SELECT
C. UPDATE D. WHERE
15．要发送数据，通常使用Winsock控件的( )。
A．Listen方法 B．GetDate方法
C．Accept方法 D．SendData方法
二、填空题(每小题2分，共20分)
1．每个标准应用程序逝常至少有一个---文件。
2．某个程序中要用到一个二维数组，要求数组名为A，类别为整型，第一维下标从-l到2，第二维下标从-2到2，则相应数组声明语句为--------。
3.全局变量整个应用程序中有效，一般在标准模块中使用----语句声明。
4．在VB中，将Access称为 ---- ，SQLServer称为----
5. Vb应用程序与数据库进行通信的主要机制称为 ---- 。
6．Winsock扦件土要用来编制TCP／IP或 ---- 协议的通话程序。
7．如果不能适先确定变量的数据类型，则可以把它声明为 ---- 。
8．执行赋值语句a="123"+"456"后，变量a的值是----。
9。对VB程序进行调试时，若要进行断点设置应按 ---- 键、如果需要逐语句调试，应按一---键。
lo．通常可以将文本框控件的----属性设为True，以禁止键盘输人。
三、阅读程序题(共25分)
阅读下列程序并写出程序运行结果。
1．(6分)
Private Sub Form_Click()
Dina a As lnteger
Static b As Integer
a=a十4
b=a+b
Forml．Print "a＝"；a,"b--"；b
End Sub
写出程序运行刚连续单击三次窗体后,Forml上的输出结果。
2．(6分)
Private Sub Form_Click()
Dim c As Integer，j As Integer，k As Integer
k＝2
c＝3
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的值分别是：
3．(6分)
Private Sub Commandl_Click()
Dim s As Double
Dim i As Integer
s＝5
i＝l
Do While i<7
i＝i十2
5＝x+ i
Loop
Textl．Text＝s
End Sub
文件框Text1输出结果是：
4. (7分)
Sub test(i As Integer)
i＝i+2
End Sub
Private Sub Form_Click()
Dim x As Integer
x=5
Print "x="；x
Call test(x)
Print "x+"； x
End Sub
写出程序运行时，单击窗体Form1上的输出结果。
四、完善程序题(共lo分)
1．假设用Access创建了-个名为"学生．MDB"的数据库．并在其中创建丁-张名为"学生基本情况"的数据表，表中存放了学生的基本信息，如图l所示。
现在要求利用VB编写一个数据库查询程序，程序的运行界而如图2所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击"查询"按钮(Commandl)，如果数据库中存在以学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户"记录不存在"并使Textl获得焦点．要求用户重新输入。当点击退出按钮(Commmnd2)时关闭本窗体。
程序如下，请补充完整。
Private ADOcn As Cormeclion
Private Sub Form Load()
[1]
ADOcn. Open "Provider= Microsoft. Jet, OLEDB. 4.0;Data Source_
=c:/学生 . MDB"
End Sub
Private Sub Command1_Click()
Dim strSQL As String
Dim ADOrs As [2] Recordset
ADOrs. ActiveConnection =ADOcn
strSQL= "Select * From 学生基本情况 Where 学号="+ "'"+ Textl+"'"
[3]
If [4] ADOrs. EOF Then
Text2 = ADOrs. Fields( "学号")
Text3 = ADOrs. Fields( "姓名")
Text4 = ADOrs.Fields("籍贯")
Else
MsgBox"要查询的学号不存在，请重新输入！",vbOKOnly,"信息提示"
Text1=""
[5]
End If
End Sub
Private Sub Command2 Click()
UnLoad Me
End
五、编写程序题(共1；分)
请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下：
(1)收入在1000元以内，扣税3％；
(2)收入在1000-4000元内，800元以上部分扣税15％，
(3)收入在4000一5000元内，4000元以内容按(2)的方法扣税，4000元以上部分，扣税20%。
(4)当收入达到5000元以上，扣税25％；
程序运行界面如图3所示，
试卷代号：223l
中央广播电视大学2007-2008学年度第一学期"开放专科"期末考试
计算(应)等专业 V1sualBaslc程序设计
试题答案及评分标准
(供参考)
2008年1月
一、单项选择题(每小题2分，共30分)
1．C 2．B 3，D 4．D 5. C
6．B 7．C 8．B 9．B 10．A
11．D 12．B 13．D 14，A 15．D
二、填空题(每小题2分，共2()分)
1．frm
2．Dim A(-1 To 2，-2 To 2)As Integer
3． Public
4．本地数据库 远程数据库
5．数据引擎
6． UDP
7．变体型(Variant)
8． 123456
9． F9 F8
10． Locked
三、阅读程序题(共25分)
1. (6分)
a＝4 b＝4
a=4 b＝8
a=4 b＝12
2．(6分)
8 5
3．(6分)
20
4．(7分)
X=5
X＝7
四、完善程序题(共lo分)
[1] Set ADOcn＝New Connection
[2] New
[3] ADOrs.Open strSQL
[4] Not
[5]Textl．SetFocus
五、编写程序题(共15分)
参考答案：
Private Sub Commandl_Click()
Dim x As Integer，tax As Single
x＝Val(Textl，Text)
If x<1000 Then
tax =x*0.03
Else
If x<＝4000 Then
tax＝(x-800)*0.15
Else
If X<＝5000 Then
tax＝(x-800)x 0.15十(x-4000)* 0.05
Else
tax＝x* 0.25
End If
End If
End If
Text2．Text＝tax
End Sub
来源：网络整理 免责声明：本文仅限学习分享，如产生版权问题，请联系我们及时删除。
相关文章：
电大《社会保障学》1期中考试题04-27
电大《社会保障学 》期中考试题04-27
电大《知识产权法》网上试题及答案03任务_000404-27
电大《知识产权法》网上试题及答案04任务_000504-27
电大《知识产权法》网上试题及答案05任务（无答案）04-27
电大《建筑工程项目招投标与合同管理》期末考试试题2004-27
电大《工程经济与管理》试题（中南大学）04-27
电大《建筑力学#》练习试题04-27
电大《工程经济与管理》试题04-27