VB语言.docx

VB语言.docx

《VB语言.docx》由会员分享，可在线阅读，更多相关《VB语言.docx（17页珍藏版）》请在冰豆网上搜索。

VB语言

VisualBasic程序设计期末复习二

一、单项选择题

1．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。

A．单选按纽B．图片框

C．通用对话框D．文本框

2．与传统的程序设计语言相比，VisualBasic最突出的特点是（）

A．结构化程序设计B．程序开发环境

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

3．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（）。

A．缺少.frm窗体文件B．运行的机器上无VB系统

C．该可执行文件有病毒D．以上原因都不对

4．启动VB后，就意味着要建立一个新（）。

A．文件B．窗体

C．程序D．工程

5．在VB环境中，标准类模块文件的扩展名是（）。

A．.vbpB．.frmC．.basD．.frx

6．VisualBasic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。

A．设计模式B．执行模式

C．中断模式D．编写代码模式

7．下列4项中合法的变量名是（）。

A．45xyzB．Single

C．x-yzD．x_yz

8．表达式64/2-2^3*9/3Mod8\3（　　）

A．0B．32

C．20D．4

9.要在窗体的标题内显示“myfrm”,使用的语句是（）

A．Form1.Print"myfrm"B．Form.Print"myfrm"

C．Form.caption="myfrm"D．Form1.caption="myfrm"

10．无论何种控件，共同具有的属性是（　　）

A．TextB．Name

C．CaptionD．ForeColor

11．按照变量的作用域可将变量划分为（）

A．公有、私有、系统B．全局变量、模块级变量、过程级变量

C．动态、常数、静态D．Public、Private、Protected

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

A．Width或HeightB．Width和Height

C．Top或LeftD．Top和Left

13．要退出Do…Loop循环，可使用的语句是（）语句。

A．ExitB．ExitForC．ExitDoD．EndDo

14．表达式8+10Mod2^2+3的值是（）

A、4B、11C、12D、13

15.下列关于变量的说法不正确的是（）。

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

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

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

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

16．以下叙述中错误的是（）。

A．一个工程中只能有一个SubMain过程

B．窗体的Show方法的作用是将指定的窗体载入内存并显示该窗体

C．窗体的Hide方法和Unload方法的作用完全相同

D．若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体

17．要绘制多种形状的图形，需要设置Shape控件的（）属性

A．BorderstyleB．Shape

C．FillStyleD．Style

18．VB程序中通常不会产生错误提示的是（　　）。

A．编译错误　　　　　　B．实时错误

C．运行时错误　　　　　D．逻辑错误

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

A．0　　　　　B．1

C．2　　　　D．6

20．下列正确的赋值语句是（）。

A．x+y=50B．y=p*r*rC．y=x+50D．3y=x

21．使图像框Image控件中的图像自动适应控件的大小应（　　）。

A．将控件的Stretche属性设为TrueB．将控件的Stretche属性设为False

C．将控件的AutoSize属性设为TrueD．将控件的AutoSize属性设为False

22．目录列表框的Path属性的作用是（）

A．显示当前驱动器或指定驱动器上的路径

B．显示当前驱动器或指定驱动器上的某目录下的文件名

C．显示根目录下的文件名

D．只显示当前路径下的文件

23．下列数据对象模型中采用OLEDB访问数据库的是（　　）。

A．DAO　　　　　B．ADO　　　　C．RDO　　　D．RDO和ADO

24．使用ADO数据模型时，使Recordset和Connection对象建立连接的属性是（　　）。

A．CommandTypeB．ActiveConnection

C．OpenD．Execute

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

A．open"text.dat"ForwrireAs#1

B．open"text.dat"ForBinaryAs#1

C．open"text.dat"ForInputAs#1

D．open"text.dat"ForRandomAs#1

二、填空题

1．用Line方法画直线后,当前坐标在。

2.在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按键。

3．应用程序打包后，其包文件的后缀为。

4．如果要每隔10s产生一个Timer事件，则Interval属性应设置为。

5．每个应用程序都有开始执行的入口，在VB中将这种窗体称为。

6．控件数组的名字由属性指定，而数组中的每个元素由属性决定。

7．数学关系15≤x<45表示成正确的VB表达式为。

8．以窗体Form1的中心为圆心，画一个半径为300的圆的语句是

。

9．假设ADOrs为一个Recordset对象，那么从Table1表中获取所有记录的语句是

10．在VB中，将Foxpro称为，Access称为，SQLServer称为。

11．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到4，第二维下标从-1到4，则相应的数组声明语句为。

12．若窗体Form1左上角坐标为（0，500），右下角的坐标为（800，-200）。

则X轴的正向向，Y轴的正向向。

13．全局变量在整个应用程序中有效，一般在模块代码编辑器的顶部用语句声明。

14．列表框中项目的序号是从开始的。

15．Winsock控件主要用来编制或协议的通话程序。

16．Vb应用程序与数据库进行通信的主要机制称为。

17．Image控件的Stretch属性设置为时，图像框可自动改变大小以适应其中的图形。

18．在整个程序运行时，用Static声明的局部变量是静态的，其值可以在该过程所在的模块运行期间，而用Dim声明的变量只能在才存在。

三、阅读程序题

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

1．

PrivateSubForm_Click（）

StaticSumAsInteger

ForI=1To5

Sum=Sum+I

NextI

PrintSum

EndSub

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

2．

PrivateSubForm_Click（）

DimcAsInteger,jAsInteger,kAsInteger

k=0

c=1

Forj=1To6

Ifj>4Then

c=c+5

ExitFor

Else

k=k+1

EndIf

Nextj

Printc,k

EndSub

写出程序运行时单击窗体后，c,k的值分别是：

3.

PrivateSubCommand1_Click（）

DimsAsDouble

DimiAsInteger

s=5

i=1

DoWhilei<9

i=i+2

s=s+i

Loop

Text1.Text=s

EndSub

文件框Text1的输出结果是：

4.

PrivateSubCommand1_Click（）

DimXAsInteger,YAsInteger

X=0:

Y=1

Fori=1To3

Forj=1Toi

Y=Y*j

Nextj

X=X+Y

Nexti

PrintX

EndSub

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

5.

FunctionF（aAsInteger）

DimbAsInteger

StaticcAsInteger

b=b+2

c=c+2

F=a+b+c

EndFunction

PrivateSubCommand1_Click（）

DimaAsInteger

a=6

Fori=1To3

PrintF（a）

Nexti

EndSub

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

6.

PrivateSubForm_Click（）

DimA（1To4）AsString

DimcAsInteger

DimjAsInteger

A

（1）="2"

A

（2）="4"

A（3）="6"

A（3）="8"

c=1

Forj=1To4

c=c+Val（A（j））

Nextj

Printc

EndSub

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

四、完善程序题

1．列表框应用程序。

要求从文本框中输入姓名，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。

在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。

程序运行结果如图1所示。

图1

程序如下，请补充完整。

PrivateSubForm_Load（）

List1.AddItem"李敏"

List1.AddItem"张华"

List1.AddItem"吕晓烨"

List1.AddItem"赵巍"

List1.AddItem"袁莉"

List1.AddItem"王津"

List1.AddItem"何小渴"

List1.AddItem"崔宁"

List1.AddItem"何月"

EndSub

PrivateSubCommand1_Click（）

IfText1.Text<>""Then

[1]

Text1.Text=""

Else

MsgBox"请在文本框中输入信息！

"

EndIf

EndSub

PrivateSubCommand2_Click（）

[2]

EndSub

PrivateSubCommand3_Click（）

IfCommand3.Caption="修改"Then

Text1.Text=[3]

Text1.SetFocus

Command1.Enabled=False

Command2.Enabled=False

Command3.Caption=[4]

Else

[5]

Command1.Enabled=True

Command2.Enabled=True

Text1.Text=[6]

Command3.Caption="修改"

EndIf

EndSub

2．在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。

要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。

程序运行结果如下图所示。

程序如下，请补充完整。

PrivateSubForm_Load（）

[1]

File1.Pattern="*.bmp;*.gif;*.jpg"

EndSub

PrivateSubDrive1_change（）

Dir1.Path=[2]

[3]=Drive1.Drive

EndSub

PrivateSubDir1_Change（）

[4]

Text1.Text=[5]

EndSub

PrivateSubFile1_click（）

Picture1.[6]=LoadPicture（File1.Path+"\"+File1.FileName）

FileName=File1.Path+"\"+File1.FileName

Text1.Text=[7]

EndSub

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

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

程序的基本逻辑是：

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

其运行界面如图2所示。

图2

程序如下，请补充完整。

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

PrivateADOcnAsConnection

PrivateSubForm_Load（）

'连接SQLServer数据库

DimstrDBAsString

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

IfADOcnIsNothingThen

SetADOcn=[2]

[3]strDB

EndIf

EndSub

PrivateSubCommand1_Click（）

'增加学生记录

DimstrSQLAsString

DimADOrsAs[4]

[5]

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

IfNotADOrs.EOFThen

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

”

Else

StrSQL=”InsertIntostudents（学号,姓名,,籍贯,性别）

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

[6]

MsgBox“添加成功，请继续！

”

EndIf

PrivateSubCommand2_Click（）

UnloadMe

EndSub

答案

一、单项选择题

1.C2.C3.B4.D5.C6.D7.D8.B9.D10.B11.B

12.D13.C14.D15．D16.C17.B18.D19.A20.C21.A

22.A23.B24.B25.C

二、填空题

1．直线终点

2．F1

3．.cab

4．10000

5．启动窗体

6．NameIndex

7.15<=xANDx<45

8．Circle（ScaleWidth/2,ScaleHeight/2）,300

9．ADOrsOpen”Select*FromTable1”

10．外部数据库本地数据库远程数据库

11．DimA（1To4,-1To4）AsString

12．右上

13.Public

14．0

15.TCP/IPUDP

16.数据库引擎

17.False

18.一直存在过程执行期间

三、阅读程序题

1.

15

2．

74

3．

29

4．

15

5．

10

12

14

6．

15

四、完善程序题

1.

[1]List1.AddItemText1.Text

[2]List1.RemoveItemList1.ListIndex

[3List1.Text

[4]"修改确认"

[5]List1.List（List1.ListIndex）=Text1.Text

[6]""

2.

[1]Drive1.Drive="D:

\"

[2]Drive1.Drive

[3]Text1.Text

[4]File1.Path=Dir1.Path

[5]Dir1.Path

[6]Picture

[7]FileName

3.

[1]学生

[2]NewConnection

[3]ADOcn.Open

[4]NewRecordset

[5]ADOrs.ActiveConnection=ADOcn

[6]ADOrs.ExecutestrSQL