中央广播电视大学-第一学期VB程序设计试题_精品文档.doc

中央广播电视大学-第一学期VB程序设计试题_精品文档.doc

《中央广播电视大学-第一学期VB程序设计试题_精品文档.doc》由会员分享，可在线阅读，更多相关《中央广播电视大学-第一学期VB程序设计试题_精品文档.doc（7页珍藏版）》请在冰豆网上搜索。

中央广播电视大学2004-2005第一学期《VB程序设计》试题

2005年1月

一、单项选择题：

1．为了保存一个VisualBasic应用程序，下列说法正确的是（）

A.只保存窗体文件（.frm）

B.只保存工程文件（.vbp）

C.分别保存工程文件和标准模块文件（.bas）

D.分别保存工程文件、窗体文件和标准模块文件

2．语句Print5*5\5/5的输出结果是（）

A.5B.25C.0D.1

3．下列可作为VisualBasic变量名的是（）

A.A（A+B）B.AlphaC.4ABCD.ABЛ

4．标准SQL语言本身不提供的功能是（）

A.数据表定义B.查询

C.修改、删除D.绑定到数据库

5．以下4个控件中，不属于数据绑定控件的是（）

A.Text控件B.OLE控件C.Option控件D.Image控件

6．在窗体上按下鼠标左键时产生的事件是（）

A.KeyDownB.MouseUpC.MouseMoveD.MouseDown

7．下列控件中不能响应Click事件的是（）

A.FrameB.LabelC.FormD.Timer

8．下列语句语法正确的是（）

A.a=1b=2c=3B.a=1：

b=2：

c=3

C.a=1,b=2,c=3D.a=1；b=2；c=3

9．确定一个控件在窗体上位置的属性是（）

A.Width或HeightB.Width和Height

C.Top或LeftD.Top和Left

10．Kill语句在VB语言中的功能是（）

A.清内存B.清病毒

C.删除磁盘上的文件D.格式化硬盘

11．要清除列表框的所有内容，可用来实现的方法是（）

A.RemoveItemB.ClsC.ClearD.以上均不可以

12．如下数组声明语句，正确的是（）

A.Dima[3,4]AsIntegerB.Dima（3,4）AsInteger

C.Dima（n,n）AsIntegerD.Dima（34）AsInteger

13．下列控件中，没有Caption属性的是（）

A.框架B.列表框C.复选框D.单选按钮

14．如果准备读文件，打开顺序文件“text.dat”的正确语句是（）

A.open“text.dat”forwriteAs#1

B.open“text.dat”ForBinaryAs#1

C.open“text.dat”ForInputAs#1

D.open“text.dat”ForRandomAs#1

15．当Winsock控件处于关闭状态时，其State属性的值是（）

A.1B.0C.2D.6

二、填空题（）

1．VisualBasic开发环境总是处于下列的三种模式之一，它们是：

、和

。

而集成环境的标题栏总是显示。

2．表达式16/2^2-3*7MOD9的值是。

3．算术式，写成VB表达式为。

4．要使文本框控件可以接受多行文本，需将其属性Multiline设置为。

5．VB坐标系的默认单位是，除此之外，用户还可以选用其它的度量单位，这需要通过对象的属性来实现。

6．以窗体Form1的中心为圆心，画一个半径为800的圆的语句是。

7．列表框控件中最后一项的序号等于ListCount属性减。

8．在VisualBasic中，除了可以指定某个窗体作为启动对象之外，还可以指定作为启动对象。

9．闰年的条件是：

年号（Y）能被4整除，但不能被100整除；或者年号能被400整除。

表示该条件的逻辑表达式是。

10．设某个程序中要用到一个二维数组，要求数组名为A,类型为整型，第一维下标从-1到2，第二维下标从-1到1，则相应数组声明语句为。

11．COM对象有两种类型接口，即用户自定义接口和。

三、阅读程序题

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

1．PrivateSubForm_Click（）

DimxAsInteger

StaticyAsInteger

X=x+1

Y=y+1

Form1.Print“x=”;x,“y=”;y

EndSub

写出程序运行时连续单击三次窗体后，Form1上的输出结果。

2．PrivateSubCommand1_Click（）

DimsAsDouble

DimIAsInteger

S=5

I=1

DoWhilei<9

I=i+2

S=s+i

Loop

Text1.text=s

EndSub

文本框Text1的输出结果时：

3．PrivateSubForm_Click（）

DimIasinteger,jasinteger

Dimcasinteger

C=0

Fori=1to3

Forj=1to3

C=c+1

Nextj

Nexti

Printc

EndSub

写出程序运行时单击窗体后，c的输出结果：

4．FunctionF（aAsInteger）

B=0

Staticc

B=b+1

C=C+1

F=a+b+c

EndFuction

PrivateSubCommand1_Click（）

DimaAsInteger

A=2

Fori=1to3

PrintF（a）

Nexti

EndSub

写出程序运行时，单击命令按钮在窗体上的输出结果。

四、完善程序题：

1．创建一个绘图程序，当程序运行时，单击：

“开始”按钮，在Picture控件上画出随机彩色同心圆，单击“清屏”按钮，则图像消失。

要求坐标度量单位为毫米，边线的宽度为2像素，绘制的圆不超出窗体。

程序运行界面如图1所示。

程序如下，请补充完整。

PrivateSubCommand1_Click（）

DimXAsInteger,YAsInteger,rAsInteger,r1AsInteger,iAsInteger

ScaleMode=6

DrawWidth=[1]

X=Picture1.ScaleWidth/2

Y=Picture1.SacaleHeight/2

IfScaleWidth>ScaleHeightThen

[2]

Else

[3]

EndIf

Forr1=0Tor

Picture1.[4]

Next

EndSub

PrivateSubCommand2_Click（）

[5]

EndSub

2．已知存在一名为“学生”的SQLSever数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。

请编写一个简单的应用程序，向students表中添加学生记录。

程序的基本逻辑是：

当窗体被加载时，程序联接SQLServer数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。

其运行界面如图2所示。

程序如下，请补充完整。

‘声明对象变量ADOcn，用于创建与数据库的连接

PrivateADOcnASConnection

PrivateSubForm_Load（）

‘连接SQLServer数据库

dimstrDBASString

strDB=”Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=[1]”

IfADOcnIsNothingThen

SetADOcn=[2]

ADOcn.OpenstrDB

EndIf

EndSub

PrivateSubCommand1_Click（）

‘增加学生记录

DimstrSQLAsString

DimADOrsAs[3]Recordset

ADOrs.ActiveConnection=ADOcn

ADOrs.Open“Select学号FromStudentsWhere学号=”+”‘”+Text1+”‘”

IfNot[4]Then

MsgBox“您输入的学号已存在，不能新增加！

”

Else

strSQL=”InsertIntostudents（学号，姓名，籍贯，性别）”

strSQL=strSQL+Values（“+”‘”+text1+”‘,‘“+text2+“‘,‘“+text3+“‘,‘“+text4+“’）”

ADOrs.Execute[5]

MsgBox“添加成功，请继续！

”

EndIf

EndSub

PrivateSubCommand2_Click（）