试卷代号：2231

座位号口口

中央广播电视大学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

来源：网络整理 免责声明：本文仅限学习分享，如产生版权问题，请联系我们及时删除。