中央广播电视大学2003-2004学年度第一学期"开放专科"期末考试
计算机(应)专业VisualBasic编程与应用试题
一、填空题(每空1分，共计20分)
1．事件过程是指--。
2．VisualBasic应用程序即工程文件通常由三类模块组成，即窗体模块、标准模块和类模块。窗体模块包含--和--两部分。--完全由代码组成，这些代码不与具体的对象相关联，一般用来定义全局变量和公用过程和函数。--用于自定义类。
3．在VisualBasic的转换函数中，将数值转换为字符串的函数是--；将字符串
转换为数值的函数是--。Int(-2.6)的结果为--。
4．代数式+COS(25o)的 Visual Basic表达式为---。
5．设a＝2，b＝3，c=4，d＝5，表达式a>b and c
6．定时器(Timer)控件可识别的事件是-----二，发生该事件的时间间隔由定时器
的--属性设置。
7．数组声明语句DimA(1 To 5，一2To 6)AsString表示数组名为--，类型为--，第二维下标从--。
8，Sub过程与Function过程最根本的区别是--.
9．要使控件与框架捆绑在一起，正确的操作是---------。
10．在Visual Basic中按文件的访问方式不同，可以将文件分为顺序文件、
-----------和二进制文件。在顺序文件中，记录按--存放，并
按------。
二。单项选择题(每小题2分，共计20分)
1．工程文件的后缀是( )。
A．.vbp B．．frm
C．.bas D。．vbw
2．以下有关VisualBasic语言描述中错误的是( )。
A.不区分大小写
B．变量名最长可达255个字符
C.用"；"分隔一行中的多个语句
D.一条语句放在多行中，则在前一行结束处使用续行符"一"连接下一行
3．函数Left("Hello'，，2)的值为( )。
A．He B.e1
C．LO a.True
4．代数式 对应的visualBasic表达式是( )。
A.Sin(3．14159一T)(2／3))／(A*B) B.Sin(3．14159一T)(2／3))／AxB
C.Sin(3．14159一T)(2／3)／(A*B) D.(Sin(-T)(2／3))／(A*B)
5．下列程序段的执行结果为( )。
A＝"r"
B＝"2"
A＝Val(A)q+Val(B)
B＝Val("12")
if A<>B Then Print A-B Else Print B-A
A．0 B．12-12
C．9 D．一9
6．如果要在任何新建的模块中自动插入OptionExplleit语句，则应采取的操作步骤是( )。
A.在"工具"菜单中选取"选项"命令，打开"选项"对话框，单击"编辑器"选项卡，选中"要求变量声明"选项
B．在"编辑"菜单中执行"插入文件"命令
C.在"工程"菜单中执行"添加文件"命令
D．以上操作均不对
7．表达式5^2 Mod 25＼2+2的值是( )
A．1 B.3
C. 0 D.6
8．下列变量名中合法的是( )
A．IF B. 7AB
C．A[B]7 D．AB_7
9．变量X＝30274757，则变量声明时不能将其声明为( )
A．Integer B．Variant
C. Long D．Single
10．若Tab函数无参数，如语句Print "Hello";Tabs;"World",则第二项的输出位置是( )
A.紧随Hello后输出 B．在下一行输出
C.在第一列输出 D．在第二个打印区列输出
三、下列说法正确与否，若不正确请改正。(每小题2分，共20分)
1．在窗体中用Show或Hide方法和在代码中将该窗体Visible属性分别设置为True或False的效果是一样的。
2．Do-Loop语句是循环结构的一种特殊形式，如果循环体没有ExitDo语句，程序运行就一定会进入死循环。
3．表达式#10／25／2002#一#10／20／2002#的结果为：井10／5／2002#
4．下列程序运行结果是；2
Private Sub CommandLClick()
a＝2：b＝4：c＝6
a=b：b=c：c=a
Print c
End Sub
5.当图片框PictureBox控件的AutoSize属性为Ture时，超过图片框尺寸的图片其超过部分会被图片框截去。
6．使用声明语句建立一个变量后，VisualBasic会自动对数值类型的变量赋初值o，Variant变量被初始化为Enpty，布尔型的变量被初始化为False。
7.以下两个语句都调用了名为MyProc的Suh过程，A、B是参数。
Call My Proc A、B
MyProc(A、B)
8．一个VB表达式为(6十9)^(4÷-2)+COS(4*丌)
9．动态菜单是指菜单中列出了最近使用过的文件名，这部分内容足随着应用程序的运行而不断改变着的，在运行时菜单可以增长。
l0．当磁盘驱动器列表发生变动后，可通过下列程序段通知目录列表。
PrivateSubDrivelChange()
Dril．Path＝Drivel．Drive设置DirListBox控件的路径与DriveListBox控件同步。
End Sub
四、读程序题，写出程序运行结果(每小题5分，共计20分)
1． 1． 运行下列程序，单击窗体，输出结果是什么?
Private Sub Form_ClickO
For x=1 To 5
For y=l To6--x
Print Tab(y-}-5);"*"
Next y
Next x
End Sub
Private Sub Form_ClickO
Print"aa"&"bb",-5*6,Not 2<3
Print"aa"&"bb";-5*6;Not 2<3
Print" 30+60=",
Print 30+60
Print"30+60=";30+60
End Sub
3.
Private Sub Form_Click()
N=0
J=l
Do Until N>2
N=N+1
J=J+N*(N+1)
Loop
Print N;J
End Sub
4.
Private Sub Form_ClickO
A=I
B=A
DoUntilA>= 5
X=A*B
Print Str$ (A) &"*"&Str$(B)&"="; Str$ (x)
A=A+B
B=B+A
Loop
End Sub
五、编程题(每小题10分，共20分)
1．(10分)
程序界面如下图所示，3个文本框一个用于输入重量，一个用于输入单价，一个用于输出总价，总价：重量*单价。3个命令按纽分别为"开始"，"下一个"和"结束"。要求输A重量和单价后，按回车键输出总价。程序如下，请补充完整。
Private Sub Commandl_ClickO
Commandl. Visible= Fl]
Command2. ViSible = True
Command3. Visible= [2]
Textl. I-3]
End Sub
Phvate Sub Command2 CliekO
Textl. Text= ""
Text2. Text= ""
Text3. Text= [4]
Commandl Click End Sub
Private Sub Form_Load()
Command2. Visible= [5]
Command3. ViSible=False
End Sub
Private Sub Textl_KeyPress(KeyAscii As Integer)
IfKeyAscii=13 [6]
Text2. SetFocus
[7]
End Sub
Ptivate Sub Text2_KeyPress(KeyAseiiAs Integer)
IfKeyAscii=13 Then
Text3. Text=[8]
End If
End Sub
Private Sub CommandS_CliekO
[9]
End Sub
2． 2． 请编写程序，要求在文本框中输入小时、分、秒，转化成共有多少秒，然后按计算按钮(Comandl)输出结果。三个文本框的名称分别是Textl，Text2，Text3。输入6小时、10分、10秒的程序界面如下图所示。
试卷代号：2060
中央广播电视大学2003-2004学年度第一学期"开放专科"期末考试
计算机(应)专业Visual Basic编程与应用试题答案及评分标准(供参考)
一、填空题(每空1分，共20分)
1．响应某个事件后所执行的程序代码
2．窗体 代码 标准模块 类模块
3．Str(x) Val(s) 一3
4．Sqr(50)十Cos(25*3.14159／180)
5．True
6．Timer Interval
7．A 字符串类型 一2到6
8．Sub过程的过程名不能返回值，而Function过程能通过过程名返回值
9．在窗体上画好框架，再在框架中画控件
10．随机文件 写入的先后顺序 写入的先后顺序读出
二、单项选择题(每小题2分，共20分)
1．A 2．C 3．A 4．C 5. D
6．A 7．B 8．D 9．A 10．D
三、指出下列各题中的错误并修改或指出错误原因(每小题2分，共20分)
1．正确。
2．正确。
3．不正确。其值应为数值型的，值为5
4．不正确。应为4
5．不正确。当图片框PictureBox控件的AutoSize属性为Ture时，PictureBox能自动调整大小与显示的图片匹配。
6．正确
7．不正确。应为：
Call MyPro(A，B)
MYPrOcA，B
8.不正确。应为：(6+9)^(4／(一2))十COS(4*3.14159)
9.正确。
10.正确。
四、读程序题，写出程序运行结果(每小题5分，共20分)
1．
****
***
**
*
2．
aabb -30 False
aabb -30 False
30+60=90
30+60=90
3． 3 2l
4．1*1＝1 2*3=6
五、编程题(共20分)
1．(10分，除第8空2分外，其余每空均1分)
[1]False
[2]True
[3]SetFOcus
[4]""
[5]False
[6]Then
[7]EndH
[8]Str(Val(Textl．Text)*VaI(Text2．Text))
[9]End
2．(10分)
Private Sub Commandl一C1ick()
Dim h As Integer,m As Integer，s As Integer
Dim x Ax Long
h＝Val(Textl．Text)
m=Val(Text2．Text)
s＝Val(Text3．Text)
x＝h*3600十m*60+s
Labell．Caption＝"共计秒数"&Str(x)&"秒"
End Sub
另一种参考答案是直接写出结果：
Private Sub Commandl_Click()
Labell．Captlon＝"共计秒数"&Str(Val(Textl)*3600十Val(Text2)*60+Val
(Text3))&"秒"
EndSub
来源：网络整理 免责声明：本文仅限学习分享，如产生版权问题，请联系我们及时删除。
相关文章：
2034电大《小学儿童教育心理学》试题和答案20040104-27
2033电大《高等数学(B)(1)》试题和答案20080704-27
2033电大《高等数学(B)(1)》试题和答案20090104-27
2033电大《高等数学(B)(1)》试题和答案20070704-27
2033电大《高等数学(B)(1)》试题和答案20080104-27
2033电大《高等数学(B)(1)》试题和答案20060704-27
2033电大《高等数学(B)(1)》试题和答案20070104-27
2033电大《高等数学(B)(1)》试题和答案20060104-27