电大《VB程序设计》期末考试试题及答案

Visual Basic 程序设计试题

一、单项选择题(每小题2分，共30分}

1.与传统的程序设计语宵相比，VisualBasic最突出的特点是( C )。

A. 结构化程序设计

B.程序开发环境

C.事件驱动的编程机制D程序调试技术

2.在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是( D )

A设计模式B中断模式c.执行模式D编写代码模式

3. 下列关于窗体的说法不正确的是( B )。

A.窗体的标题由Caption属性确定

B.窗体的Name属性Caption属性相同

C.窗体的背景图片由其Picture 属性设成

D.通过设置Icon属性可使窗体获得最小化时的图标

4.工程文件的后缀是( B )。

A.frm

B..vbp c.bas D..cls

5.要在窗体的标题内显示"myfrm"，使用的语句是( D )。A.Form1.Print"myfrm" B. Form.Print"myfrm"

C.Form.caption="myfrm"

D.Form1.caption="myfrm"

6.在设计动画时，用时钟控件来控制动画速度的属性是( B )。A.Enab led B.Interval

C.Timer

D.Move

7.关于语句行，下列说法正确的是( D )。

A一行只能写一条语句 B.长度不能超过255个学符

C.每行的首学符必须大写D一条语句可以分多行书写

8.假定已在窗体上画了多个控件，井有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是( A )。

A.单击窗体上没有控件的地方

B.单击任一个控件C不执转任何操作D.双击窗体的标题栏

9.下列关于变量的说法不正确的是( D )。

A.局部变量是指那要是在过程中用Dim语句或Static语句声明的变量

B.局部变量的作用域仅限于声明它的过程

C.静态局部变量是在过程中用Static语句声明的

D.局部变量在声明它的过程孰行完毕后就被释放了

10.使用ADO数据模型时，建立Recordset和Connection对象连接的属性是( C )。

A.Execute

B.Open

C.ActiveConnection

mandType

11.DimA(1 To 6，6)As String定义

的数组包含的元素个数是( C )。

A.36

B.49

C.42

D.50

12.VB程序中逐语句调试的按键

是( B )。

A.F1键

B.F8键

C.F9键

D.Ctrl+F9键

13.不属于VB数据库引擎的是

( C )。

A.ODBC

B.Jet引擎

C.BDE

D.OLEDB

14.一旦数据到达，将首先触发

Winsock控件的( D )。

A.DataGet事件

B.ConnectonRequest

C.DataSend事件

D.DataArrival

事件

15.VB程序中通常不会产生错误

提示的( C )。

A.编译错误

B.实时错误

C.逻辑

错误D.运行时错误

二、填空题{每小霆2分，共20

分

16.控件数组的名字由

语言中有三种

形式的循环结构。其中，若循环

;

可使用Do

循环。

19.要使标签框的大小随Caption

AutoSize

属姓设置为

的值

是

TCP/IP或

22.左上角坐栋为

(0，600)

(800，

X Y

轴的

23.

号等于ListCount

Access

(

25.VB

三、阅读程序题{

阅读下列程序并写程序运行结

果。

26.(6分)

Private Sub Form_ClickO

Dim x as integer

Static y As Integer

X=x十3

y=x十y

Forml.Print..x=";X,,”y=”;y

End Sub

程序运行后三次单击窗体，写出

:

Sub Change(ByVal x

AsInteger,ByVal y AsInteger)

Dim t As Integer

T=x

X=y

y=t

Printx,y

EndSub

Private Sub Form_ClickO

Dim a As Integer,b As Integer

a5:b=10

Change a,b

Print a,b

EndSub

写出程序运行时单击窗体后，

Private Sub Form_ClickO

Dim I As Integer,k As Integer,c As

Integer

For i=1To7

If I Mod2=0 Then

Else

c=c+4

End If

Nexti

Print k,c

End Sub

写出程序运行时单击窗体后，窗

上的结果。

Private Sub Form_ClickO

Dim A(1To3) As Stríng

Dim c As Integer

Dirn j As Integer

A(1)=“20”

A(2)=“40”

A(3)="60"

c=2

Forj=1 To 3

C=c十Val(A(j))

Next j

Print c

End Sub

写出程序运行时单击窗体后，窗