2023年Basic程序设计期末综合练习题二

VisualBasic程序设计期末综合练习题二

一、单项选择题

1.在下列有关VisualBasic论述中，错误是（

A.采用了事件驱动编程机制B.是面向对象编程语言

C.是可视化程序设计语言D是面向过程程序设计语言

2.应用程序打包后，其包文献后缀为（

A..exeB..txt

C..cabD..ocx

3.在新建一种“原则EXE”工程后,不在工具箱中出现控件是（

A.列表框B.通用对话框

C.驱动器列表框D.图片框

4.设窗体名称为Forml,则在程序运行过程中，单击窗体时，被执行事件过程

名称是（）。

A.Forml-Click()B.Forml-DbClick()

C.Forni-Click()D.Forni-DbClick()

5.对于定期器（Timer）控件,设置其定期与否启动属性是（

A.IndexB.TagC.EnabledD.Interva1

6.在VisualBasi中，工程文献扩展名为（).

A..frmB..vbp

C..cisD..bas

7.有程序代码如下:

Textl.Text=欢迎走进VB世界！"

则Text1,Text,和"欢迎走进VB世界！"分别代表（）。

A.对象，值，属性B.对象，属性，值

C.对象，措施，属性D.属性，对象，值

8.如下论述中对是（）。

A.窗体Name属性指定窗体名称，用来标识一种窗体

B.窗体Name属性值是显示在窗体标题栏中文本

C.可以在运行期间变化对象Name属性值

D.对象Name属性值可认为空

9.VB提供了构造化程序设计三种基本构造是（）.

A.选择构造、过程构造、次序构造

B.选择构造、循环构造、次序构造

C.过程构造、转向构造、递归构造

D.递归构造、选择构造、循环构造

10.在VB中，下列变量名不合法是（）。

A.take.lB.takeC.take_l_2D.take-1

11.下列说法中对是（）。

为了保留一种VisuaBasi应用程序，应当

A.只保留窗体文献

B.只保留工程文献

C.分别保留工程文献和原则模块文献

D.分别保留工程文献、窗体文献和原则模块文献

12.确定一种控件在窗体上位置属性是（）。

A.Width或HeightB.Width和Height

C.Top和LeftD.Top或Left

13.确定一种窗体或控件大小属性是（）

A.Width或HeightB.Width和Height

C.Top或LeftD.Top和Left

14.当一种工程具有多种窗体时，其中启动窗体是（）。

A.第一种添加窗体B.最终一种添加窗体

C.包括控件最多窗体D.在“工程属性”对话框中指定窗体

15.在一种语句行内写多条语句时，语句之间应当用（）分隔。

A.逗号B.冒号

C.顿号D.分号

16.要设置命令按钮背景图形，必须设置两个属性是（）。

A.Style^nPictureB.StyledIcon

C.Caption和PictureD.Value和Icon

17.目录列表框Path属性作用是（

A.显示目前驱动器或指定驱动器上某目录下文献名

B.只显示目前途径下文献

C.显示根目录下文献名

D.显示目前驱动器或指定驱动器上途径

18.将数据"China项添加到列表框(ListD中成为第一项应使用语句是()。

A.Listl.Addltem0,"China"B.Listl.Addltem1,"China"

C.Listl.Addltem"China",0D.Listl.Addltem"China",1

19.要绘制多种形状图形，需要设置Shape控件()属性。

A、StyleB、Borderstyle

C、Fi1IStyleD、Shape

20.下列可以把目前目录下图形文献picl.jp娱入图片框Picturel中语句为

)。

A.Picturel="picl.jpg"

B.Picturel=LoadPicture("picl.jpgn)

C.Picture1.Picture=LoadPicture((Hpicl.jpg")

D.Picture1.Picture=LoadPicture(("picl11)

21.假如要在窗体代码编辑器”通用”部分定义私有Sub过程，则对语句是（）。

A.PublicSubB.PrivateSub

C.PublicFunctionD.PrivateFunction

22.不属于VB数据库引擎是()。

A.ODBCB.BDEC.Jet引擎D.OLEDB

23.在VB应用程序中，进行断点设置按键是（

A.CtM+F域B.F9键

C.Ctrl+F8键D・F8键

24.假如准备读文献，打开次序文献”text.dat对语句是（）。

A.open"text,dat"ForwriteAs#1

B.open"text,dat"ForBinaryAs#1

C.open"text,dat'TorInputAs#1

D.open"text,datnForRandomAs#1

25,使用ADO对象模型时，使Recordset^Connection对象建立连接属性是（

A.OpenB.Execute

C.CommandTypeD.ActiveConnection

26.使用ADO对象模型时，使Recordset^Connectio谢象建立连接属性是（

A.OpenB.Execute

C.CommandTypeD.ActiveConnection

27.在VB中，一旦数据抵达，将首先触发Winsock控件）。

A.DataArriva事件B.ConnectionReques事件

C.DataSend事件D.GetGet事件

28.Winsock控件LocalPor瞩性作用是（)

A.仅返回所用断口B.仅设置所用端口

C.返回或设置所用端口D.返回或设置IP地址

二、填空题

1.每个应用程序必须有一种惟一文献.

2.窗体文献和类模块文献扩展名分别是和.

3.体现式6+15\2*2Mod2值是。

4.体现式17\2-2A3*5MOD6值是

5.计时器控件响应事件是0

6.在VisualBasi中，变量默认类型是。

7.为了在运行时把目前途径下图形文献show.jpg装入图片框P1,所使用语句

为.

8.设某个程序中要用到一种二维数组，规定数组名为A,类型为整型，第一维下标从

0到2,第二维下标从1到3,则对应数组申明语句为。

9.用DimA(-2to诲句申明二维数组后，数组A元素共有个。

10.VB中参数传递机制有两种，一种是参数，另一种是

____________________参数。

11.控件数组名字由属性指定，而数组中每个元素由

属性决定。

12.若窗体左上角坐标为(-200,250),右下角坐标为(300,-150),则X轴正向

向,Y轴正向向o

13.窗体、图片框或图像框中图形通过对象属性。

14.在VB中，将Foxpro称为外部数据库，Access称为,SQLServer

称为。

15.vb应用程序与数据库进行通信重要机制称为。

16.全局变量必须在_________模块中定义，所使用关键字为。

17.全局变量是指那些在中有效变量，一般在模块代码编辑器

顶部使用申明。

18.Winsock控件重要用来编制或协议网络应用程序。

三、阅读程序题(共25分)

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

1.

PrivateSubCommandl-ClickO

DimxAsInteger

StaticsAsInteger

x=Vai(InputBox("请输入一种正整数="))

Ifx<5Then

s=s*x

Else

s=s+x

EndIf

Textl.Text="s=u&Str(s)

EndSub

程序运行时持续3次单击Commandl，且设输入数据为6、5、4时，分别写出文本框

Textl值。

2.

PrivateSubForm_Click()

StaticaAsInteger

DimbAsInteger

a=a+3

b=b+4

Text1=a

Text2=b

EndSub

写出程序运行时持续单击三次窗体后，文本框Textl和Text2显示成果。

3.

PrivateSubForm_Click()

DimA(1To3)AsString

DimcAsInteger,jAsInteger

A(l)="2"

A(2)="4"

A(3)="6H

c=2

Forj=1To3

c=c+aU(A(j))

Nextj

Printc

EndSub

写出程序运行时单击窗体后，Forml±输出成果。

PrivateSubForm_Click0

n=0

Fori=1To2

Forj=2To4

IfjMod200Then

n=n+1

EndIf

n=n+2

Nextj

Nexti

Printn

EndSub

写出程序运行时单击窗体后，窗体Forml上输出成果。

PrivateSubCommand1-Click()

DimaAsInteger,bAsInteger

a=2:b=3

Fori=1To3

Forj=1Toi

b=b+j

Nextj

a=a+b

Nexti

Printa

EndSub

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

6.

PrivateSubForm-Click()

DimA(1To4)AsString

DimcAsInteger

DimjAsInteger

A(l)=n4"

A(2)=W

A(3)="8"

A(4)="10

c=1

Forj=1To4

c=c+Vai(A(j))

Nextj

Printc

EndSub写出程序运行时单击窗体后，窗体Forml上成果。

7.

SubChange(ByVaixAsInteger,ByVa1yAsInteger)

DimtAsInteger

t=x

x=y

y=t

Printx,y

EndSub

PrivateSubForm-Click0

DimaAsInteger,bAsInteger

a=10:b=20

Changea,b

Printa,b

EndSub

写出程序运行时单击窗体后，Forml±输出成果。

FunctionF(nAsInteger)AsLong

DimiAsInteger,TempAsLong

Temp=1

Fori=1Ton

Temp=Temp*i

Nexti

F=Temp

EndFunction

PrivateSubForm_Click()

DimkAsInteger,njAsInteger

k=5

nj=F(k)

Printk;"!=";nj

EndSub

写出程序运行时，单击窗体Forml上输出成果。

四、完善程序题（共10分）

1.已知存在一名为“学生”SQLServer数据库，其中“studen仅数据表用来存储

学生基本状况信息，包括学号、姓名、籍贯、性别。请编写一种简朴应用程序，向students

表中添加学生记录。程序基本逻辑是：当窗体被加载时，程序联接SQLServer数据库；

当点击“增长”按钮时，首先查询学号与否反复，假如不反复则向student表中添加学生记

录。其运行界面如图1所示。

图1

程序如下，请补充完整.

,申明对象变量ADOcn,用于创立与数据库连接

PrivateADOcnAsConnection

PrivateSubForm-Load()

链接SQLServer数据库

DimstrDBAsString

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

IfADOcnIsNothingThen

[2]

[3]

EndIf

EndSub

PrivateSubCommandl-Click()

增长学生记录

DimstrSQLAsString

DimADOrsAs_[4]_____________

[5]=AD0cu

ADOrs.Open“Selec学号FromStudentsWhere学号="+”，“+Textl+”4"

[6]Then

MsgBox你输入学号已存在，不能新增长！”

Else

StrSQL=wInsertIntostu蹦扁姓名，籍贯，性别)

StrSQL=strSQL+ValuesC,+”，“+textl+”4,4u+text2+M「“+text3+”

ADOrs.Execute[7]

MsgBox添加成功，请继续！”

EndIf

PrivateSubCommand2_Click()

UnloadMe

EndSub

2.

在窗体上建立一种驱动器列表框、目录列表框、文献列表框、图片框、文本框。规定程

序运行后，驱动器列表框Drivel默认驱动器设置为E盘，选择Filel中所列图片文献

(*.bmp,*.gi和*.jp0,则对应图片显示在图片框Picture中,文献途径显示在文本框中。

程序运行成果如图2所示。

图2

程序如下，请补充完整。

PrivateSubForm_Load()

Drivel.Drive=[1]

[2]=bmp;*.gif;*.jpg'1

EndSub

PrivateSubDrivel.change()

[3]=Drivel.Drive

Text1.Text=Drivel.Drive

EndSub

PrivateSubDirl.Change()

Text1.Text=Dirl.Path

EndSub

PrivateSubFilel_click()

Picture!,[5]=LoadPicture(Filei.Path+八"+Filei.FileName)

FileName=Filei.Path++Filei.FileName

Textl.Text=[6]_______________

EndSub

五、编写程序题

1.按下述规定，编写一征收所得税程序。

(1)收入在1000元以内，不纳税；

(2)收入超过1000元以上部分，纳税20%

(3)当收入抵达5000元或超过时，5000元以上部分，纳税22%。

程序运行界面如图3所示:

图3

答案

一、单项选择题

1.D2.C3.B4.C5.C6.B7.B8.A9.B