中央广播电视大学2004-2005学年度第一学期"开放专科"期末考试
计算机(应用)专业 Visual Basic编程与应用 试题
2005年1月
一、填空题(每空1分，共20分)
1．方法是指由Visual Basic提供的用来完成特定操作的________方法清除窗体上的内容。
2．对于一个窗体，其最先发生的事件是______，最后发生的事件是______事件。
3．在Visual Basic中常量#25／12／2003表示_______数据类型。如果要指明this-string为固定10个字符长的全局变量，则在标准模块中的声明语句是_______，变量money$为______数据类型。
4．表达式Val("10.5abc2")*Fix(2.7)的值是______。
5．代数式（x5-5πsin68）/（√（y-3）+5x）的Visual Basic表达式为________________。
6．设a=2，b=3，c＝4，d＝5，表达式Not a
7．设置文本框是否可多行显示的屈性为________，设置其可接收的最大字符串长度的属性为______。
8．要使Label控件可折行显示且可自动调节大小，需将其______属性和_______属性同时设为Ture。
9．Visual Basic的通用过程包括子程序过程(Sub过程)和函数过程(Function过程)。_______可作为独立的基本语句调用，但不直接返回值。_____要返回一个值，该值通常出现在表达式中，默认类型为______类型。
10．VisualBasic的工程结构由模块表示。模块是指一段相对独立的程序单元。在VisualBasic中主要有3种模块，即______、_______和______。
二、单项选择题(每小题2分，共20分)
1.下列控件中没有Caption属性的是( )
A. 标签框 B. 文本框
C. 框架 D．命令按钮
2．要从For...Next循环中退出循环，应使用( )语句。
A，Exit B．Exit For
C. Continue D．Stop Loop
3．用语句Dim A(-2 To 4)as Integer定义的数组的元素个数是( )。
A. 4 B．5
C. 6 D．7
4．表达式7+8/4*3 Mod 7/8的值是( )。
A．7 B．13
C. 6 D. 0
5．下列程序段的执行结果为( )
X=1;Y=2
Z=X=Y
Print x;y；z
A．1 1 2 B．1 1 1
C. False False D．1 2 False
6．Cls方法可以清除窗体或图片框中( )。
A．在设计阶段使用Picture属性设置的背景位图
B．在设计阶段放置的控件
C．在运行阶段产生的图形和文件
D．以上全部内容
7．下列声明语句中存在可变类型变量的是( )
A．Static a As Integer B．Dim a，b As Integer
C．Dim a As Integer D．Public a As Currency
8．下列变量名不合法的是( )
A．file_l B．file
C. file一1 D．file_l_2
9．变量A％类型是( )
A．Integer B．Variant
C. Long D．Single
10. 决定复选框对象是否被选中的属性是( )。
A．Checked B．Value
C. Enabled D．Selected
三、下列说法正确与否，若不正确请改正。(每小题2分，共20分)
1．每个Visual Basic对象都具有Name属性。
2．静态数组和动态数组均在声明数组时确定了数组的大小。
3．为了防止用户编辑文本框中的内容，应将该文本框的Locked属性设置为True。
4．下列程序运行结果是：-1
X=2
Y=l
If X* Y<1 Then Y=Y-1 Else Y＝-1
Print Y-X>0
5．当图像控件Image的Stretch属性为True时，Image控件可根据图片调整大小。
6．commonDialog控件就像Timer控件一样，在运行时不可见。
7．定义定长字符串，最长可达6KB个字符。
8．以下两个语句都调用了名为MyProc的Sub过程，A、B是参数。
Call MY Proc A、B
My Proc(A、B)
9．Visual Basic提供的常用键盘事件中返回"字符"ASCⅡ码的是KeyAscii。
10．在磁盘驱动器列表框Drivel的Change事件过程中，代码Dirl.Path=Drivel.Drive的作用是：当Drivel的驱动器改变时，Dirl的目录列表随不同驱动器作相应改变。
四、读程序题，写出程序运行结果(每小题5分，共20分)
1.写出在Textl、Text2、Text3中依次输入3、4、5后，单击窗体时Labell的显示结果。
Private Sub Form_Click()
Dim a As single，b As Single，c As Single
a＝Val(Textl．Text)：b＝Val(Text2．Text)：c＝Val(Text3．Text)
Labell．Caption=Str(a*a十2*b*b十3*c*c)
End Sub
2．
Private Sub Form_Click()
Dim i As Integer, j As Integer
For i＝1 to 3
For i＝l to i
Print Str(i)+"x"+Str(J)+"="；i*j;
Next i
Next i
End Sub
3．
Private Sub Form_click()
Dim i As Integer, j AS Integer
For i=1 to 4
Print Tab(7-i)；
For i＝1 To 2 * i-l
Print"*"；
Next j
Next i
End Sub
4．执行下面程序时单击窗体3次，写出每次单击后的结果。
Dim flag As Integer，mystring As String
Private Sub Form_Load()
flag＝l
mystring="祝您好运!"
End Sub
Private Sub Form_Click()
If flag=1 Then
Print mystring
flag=2
E1se if flag=2 Then
Cls
flag=0
Else
End
End if
End Sub
五、编程题(每小题10分，共20分)
1．(10分)
程序界面如图l所示，要求设置文本框中文本的样式和字号，程序如下，请将属性表中空缺的属性设定值(以下划线表示)和程序补充完整。
对象属性表：
程序如下：
Private Sub Checkl_Click()
Textl．FontBold＝Checkl.Value
End Sub
Private Sub Check2_Click()
Textl.FontItalic=[6]
End Sub
Private Sub Check3_Click()
Textl．FontUnderline＝Check3．Value
End Sub
Private Sub Form_Load()
Textl．FontBold＝False
Textl．FontItalic＝[7]
Textl．FontUnderline＝[8]
Textl．Fontsize=12
Option2=[9]
End Sub
Private Sub Optionl_Click()
[10]
End Sub
Private Sub Option2_Click()
Textl．FontSize＝12
End Sub
Private Sub Option3_Click()
Textl．FontSize＝24
End Sub
2．编写一程序，显示所有100以内6的倍数的数，并求这些数的和。程序运行界面如图2所示。
试卷代号：2060
中央广播电视大学2004-2005学年度第一学期"开放专科"期末考试
计算机(应用)专业 Visual Basic编程与应用
试题答案及评分标准
(供参考)
2005年1月
一、填空题（每空1分，共20分)
1. 特殊子程序 cls
2．Load Unload
3．日期型 Public thisstring As String*10 定长字符串
4．2l
5．(x∧5-5∧3.14159*Sin(68))／(Sqr(y一3)+5*x)
6．False
7．multiline maxlength
8，WordWrap Autosize
9．Sub过程 Function过程 Variant类型
10．窗体模块 标准模块 类模块
二、单项选择题(每小题2分，共20分)
1．B 2．B 3．D 4．A 5．D
6．C 7．B 8．C 9．A 10．B
三、指出下列各题中的错误并修改或指出错误原因(每小题2分，共20分)
1．正确。
2．不正确。
静态数组是在声明数组时已确定了大小的数组，在程序编译时分配存储空间。动态数组在声明数组时未给出数组的大小，使用时随时用Redim语句指出数组的大小，它是在程序执行到Redim语句时分配存储空间。
3．正确
4.不正确。应为False
5.不正确。应为当图像控件Image的Stretch属性为false时，Image控件可根据图片调整大小。
6．正确。
7．不正确。定义定长字符串，最长可达64KB个字符，这是VB的规定。
8．不正确。应为
Call MyPro(A，B)
MyPro(A，B)
9．不正确。应是KeyPress事件
10．正确。
四、读程序题，写出程序运行结果(每小题5分，共20分)
1．116
2. l*l=l
2*1＝2 2*2=4
3*1=3 3*2＝6 3*3=9
3．
*
***
*****
*******
4．
第一次：屏幕显示：祝您好运!
第二次：清除第一次所显示的内容。
第三次：程序运行结束。
五、编程题(共20分，每空1分)
1．(10分)
[1]设置文本样式和字号程序
[2]2-Vertical
[3]True
[4]字号
[5]8
[6]Check2．Value
[7]False
[8]False
[9]True
[10]Textl.FontSize=8
2．(10分)
Private Sub commandl_Click()
Dim i As Integer, s As long
s=0
For i＝l To 100
If i Mod 6=0 Then
s=s+i
Textl．Text'Textl．Text&Str(门&Chr(13)&Chr(10)
End lf
Next i
Label2．Caption=Str(s)
End Sub
来源：网络整理 免责声明：本文仅限学习分享，如产生版权问题，请联系我们及时删除。
相关文章：
2034电大《小学儿童教育心理学》试题和答案20050104-27
2034电大《小学儿童教育心理学》试题和答案20040104-27
2034电大《小学儿童教育心理学》试题和答案20040704-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