座位号口口
中央广播电视大学2004-2005学年度第二学期"开放专科"期末考试
计算(应)、软件信息
软 件 网 站 专业 VisualBasic程序设计 试题
2005年7月
题 号
一
二
三
四
五
总 分
分 数
得 分
评卷人
一，单项选择题(每小题2分，共30分)
1．下列关于变量的说法不正确的是( )
A. 局部变量是指那些在过程中用Dim语句或Static语句声明的变量
B．局部变量的作用域仅限于声明它的过程
C. 静态局部变量是在过程中用Sta"c语句声明的
D．局部变量在声明它的过程执行完毕后就被释放了
2．无论何种控件，共同具有的属性是( )
A．Text属性 B．Name属性
C. Caption属性 D．Autosize属性
3．如果想让文本框中的内容在运行时不能编辑，需将文本框的( )属性设置为True
A．LOcked B．MultiLine
C．TabStop D．Visible
4．后缀为．frm的文件表示VB的( )
A. 类模块文件 B．窗体文件
C，工程文件 D．标准类模块文件
5.下列变量名合法的是( )
A，20ab B．a-b
C．a_2 D．integer
6.为了在运行时把d:文件夹的图形文件a.jpg装入图片框Picturel中，所使用的语句为( )
A． A． Plcturel．Text = loadPicture("d:/pic/a.jpg")
B． B． Picturel．Picture = loadPicture("d:/pic/a.jpg")
C． C． Picturel．Picture = loadPicture("d:/pic/a.jpg")
D． D．Picturel．Picture ＝ loadPicture("d:/pic/a.jpg")
7．逻辑表达式Not 5>3 And 9<3 Or 7>5( )
A．True B．False
C．表达式有错 D. 条件不足
8．表达式4+19＼6*7／8 Mod 2的值是( )
A. 4 B. 5
C. 6 D. 7
9．下列可以用来存储图像供其他对象使用的控件是( )
A．TOOlBar B．StatursBar
C．ImageList D．TreeView
10．下列数据对象模型中采用OLEDB访问数据库的是( )
A．DAO B. RDO
C.ADO D. RDO和ADO
11. 要以读方式打开D盘的一个顺序文件Stu．dat，应使用的语句是( )
A． A． Open"Stu.dat" FOr Output As #1
B． B． Open"D:/Stu.dat" For lnput As #l
C． C． Open:O: /Stu.dat"FOr Output As #1
D． D．Open"Stu.dat" FOr lnput As #1
12．VB程序中设置断点的按键是( )
A．F5键 B．F6键
C. F9键 D．F10键
13．为使文本框显示滚动条，必须首先设置的属性是( )
A．AutoSize B．Alignment
C．Multiline D．TabStOp
14．要设置命令按钮的背景图形，必须设置的两个属性是( )
A.Style和Picture B.Style和Icon
C.Caption和Picture D.Value和Icon
15．下面关于多窗体的叙述中，正确的是( )
A. A. 作为启动对象的Main子过程只能放在窗体模块内
B. B. 如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载及加载哪一窗体
C. 没有启动窗体，程序不能执行
D．以上都不对
得 分
评卷人
二、填空题(每空1分，共15分)
1． 1．数学关系3≤x<10表示成正确的Visual Basic表达式为____________。
2． 2． 已知A=2，B=3，C＝4，则表达式A>B AND C>A OR Not C>B的值为___________。
3． 3． Visual Basic提供了结构化程序设计的3种基本结构，这3种基本结构是________ 、_________和____________。
4． 4． 用Dim A(3，一2 To 3)语句声明二维数组后，数组A的元素共有________个。
5． 5． 在Visual Basic程序中实现删除文件"d：．tmp"的语句为_____________________。
6． 6． 日期表达式#2／24／03#-#2／12／03#的值为_________。
7． 7． 改变容器对象的ScaleMode属性值，容器的大小_________改变，它在屏幕上的位置________改变。
8． 8． 设Picturel．ScaleLeft＝-200，Picturel．ScaleTop＝250，Picturel．Width=500，Picturel．Height＝-400。
则Picturel右下角坐标为__________________。
9. ActiveX EXE文件的后缀是____________________。
10. Winsockl.Listen语句的含义是_________________。
11．在整个程序运行时，用Static声明的局部变量是静态的，其值可以在该过程所在的模块运行期间_________,而用Dim声明的变量只能在__________________才存在。
得 分
评卷人
三、阅读程序题(每小题5分，共20分)
阅读下列程序并写出程序运行结果
1． 1． Private Sub Commandl_Click()
n=0：x=1：y=0
Do Whlle x<3
n=n+1
y＝x十y
X=x*(x+1)
Loop
Textl.Text = "n=" & Str(n)
Text2.Text = "x=" & Str(x)
Text3.Text = "y=" & Str(y)
End Sub
程序运行时单击Commandl后，分别写出文本框Textl,Text2,和Text3的值。
2． 2． Private Sub Commandl_C1ick()
Dim x AS Integer
StatiC S AS Integer
x=Val(InputBox("请输入一个正整数="))
If x<5 Then
s = s * x
Else
s = s * x
End If
Textl.Text ="s=" & Str(s)
End Sub
程序运行时连续3次单击Commandl，且设输入的数据为5、4、 3时，分别写出文本框Textl的值。
3． 3． Private Sub Form_Click()
Dim c As Integer，j AS Integer,k As Integer
k=0
C=0
For j = 1 To 5
If j>3 Then
C=C+4
Exit For
Else
k = k + 1
End If
Next j
Print c，k
End Sub
写出程序运行时单击窗体后，c，k的值分别是:
4． 4． Private Sub Form_C1ick()
Dim A(1 To 3) As String
Dim c As Integer，j As Integer
A(1)＝"1"
A(2)＝"3"
A(3)＝"4"
C=0
For i=1 tO 3
c=c+Val(A(j))
Next j
Print C
End Sub
写出程序运行时单击窗体后，c的结果是：
得 分
评卷人
四、完善程序题(每题10分，共20分)
1， 1，列表框应用程序。要求在文本框Textl中输入课程名称，然后按"添加"按钮，把课程名称添加到列表框中，当选择列表框中某一项后，按"删除"按钮，则从列表框中删除该项，按"统计"按钮，在文本框Text2中输出课程数量总数：按"结束"按纽，退出应用程序。程序运行结果如图1所示。
程序如下，请补充完整。
Private Sub Form_Load()
Listl．Addltem"计算机应用基础"
Listl．Addltem"程序设计基础"
Listl．Addltem"软件技术基础"
Listl．Addltem"VisualBasic程序设计"
Listl．Addltem，"SQLSERVER数据库应用"
Listl．Addltem"计算机专业英语"
Listl．Addltem"Delphi程序设计"
End Sub
Private Sub Commandl_Click()
If Textl.Text<>""Then
_[1]_________________________
Textl.Text = __[2]________
Else
MsgBox"请在文本框中输入信息!"
__[3]___________
End Sub
Private Sub Command2_Click()
Listl．RemoveItem__[4]____
End Sub
Private Sub Command3_Click()
Text2．Tex = ____[5]_____
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
2．以厘米为单位，以窗体的中心点为坐标原点，以窗体的宽度与高度绘制坐标轴，并以窗体宽度与高度中最小值的1／3为半径画圆和椭圆，程序运行界面如图2所示。
程序如下，请补充完整。
Private Sub Forlm Click()
Dim r As Integer
ScaleMOde = 7
Scale(-Forml．ScaleWidth／2，-Forml．ScaleHeight／2)-(Forml．Scale_
Width／2，Form1．ScaleHeight／2)
Line(-Forml．ScaleWidth／2，0)-(Forml．ScaleWidth／2，o) '画x轴
_______[1]_______ '画y轴
CurrentX=0：CurrentY=0：__[2]____ ，标记坐标原点
If Forml．ScaleWidth>Forml．ScaleHeight Then
__[3]___
E1se
r＝Forml．ScaleWidth
_[4]___-
DrawWidth＝3
__[5]___
Circle(0，0)，r／3，vbGreen，, , 2.5
Circle(0，0)，r／3，vbRed，, , 0.4
End Sub
得 分
评卷人
五、编写程序题(共15分)
编写一个角度与弧度互相转换的程序，程序运行界面如图3所示。要求程序运行时，在文本框Textl中输入角度值，单击"角度转弧度"按钮(Commandl)，，在文本框Text2中输入弧度值；在文本框Text2中输入弧度值，单击"弧度转角度"按钮(Command2)，在Textl中输出角度值。
需要使用的转换公式是：弧度=角度*／180，=3.1415926
提示：化为角度的方法为
(1)先将弧度值变为十进制。以1.233为例
1.233*(180／)=70.6457558
(2)去掉整数部分70，余0.6457558
(3)0.6457558*60=39.745528
(4)去掉39，余0.745528
(5)0.745528*60＝44.73168≈45"
即换算成了70039'45"
试卷代号：223l
中央广播电视大学2004-2005学年度第二学期"开放专科"期末考试
计算(应)、软件信息
软 件 网 站
专业 VisualBasic程序设计
试题答案及评分标准
(供参考)
2005年7月
一、单项选择题(每小题2分，共30分)
1．D 2．B 3．A 4．B 5．C
6．B 7．A 8．B 9．C 10．C
11．B 12．C 13．C 14．A 15，B
二、填空题(每空1分，共15分)
1．3<=x And x<10
2．False
3．顺序结构 选择结构(或分支结构) 循环结构
4．24
5．Kill"d:/tem．tmp"
6，12
7．不会 不会
8． (300，-150)
9．．EXE
10．使服务程序处于侦听状态
11．一直存在 过程执行期间
三、阅读程序题(每小题5分，共20分)
1．n=2
x=6
y=3
2.s =5
s=20
s＝60
3． 4 3
4．8
四、完善程序题(每题10分，共20分)
1．
[1]Listl．AddlternTextl．Text
[2]" "
[3] End If
[4] Listl．Listlndex
[5]Listl．ListCount
2。
[1]line(0，Forml．ScaleHeight／2)一(0，一Forml．ScaleHeight／2)
[2]Print 0
[3]r=FOrml．ScaleHeight
[4] End If
[5] Circle(0，0)，r／3
五。编写程序题(共15分)
参考答案：
PrivateSubCommandl_Click()
Const pi：3．1415926
1fTextl．Text<>""Then
Text2．Text＝Val(Textl．Text)* 3．1415926／180
End If
End Sub
Private Sub Command2_Click()
Const pi：3．1415926
Dim x As Single，a As Single，al As Single
Dim d As Integer，f As Integer，m As Integer
Dim y As String
x=Val(Text2．Text)
a=x*(180／pi)
d=Fix(a)
a1＝(a-d)*60
f＝Fix(a1)
m=Fix((a1一f)*60+0．5)
y＝Str(d) &"。"& Str(f)&"'" & Str(m)&" "" "
Textl．Text=y
End Sub
来源：网络整理 免责声明：本文仅限学习分享，如产生版权问题，请联系我们及时删除。
相关文章：
2187电大《动物生产概论》试题和答案20080704-27
2187电大《动物生产概论》试题和答案20050704-27
2187电大《动物生产概论》试题和答案20080104-27
2186电大《电子商务概论》试题和答案20080704-27
2185电大《电子商务法律与法规》试题和答案20090104-27
2186电大《电子商务概论》试题和答案20050704-27
2186电大《电子商务概论》试题和答案20070104-27
2185电大《电子商务法律与法规》试题和答案20080704-27