2023年程序设计期末复习资料

VisualBasic程序设计期末综合练习

2023年11月

一、单项选择题

1.一个VB应用程序可以包含几个vbp文献（A.1个）。

2.启动VB后，就意味着要建立一个新（C.工程）。

3.后缀为.bas的文献表达（D.标准类模块文献）。

4.当一个工程中具有多个窗体时，其中的启动窗体是（D.在“工程属性”对话框中

指定的窗体）。

5.在文本框控件中将Text的内容所有显示为所定义的字符的属性是（B.Passw。r

dChar）。

A.PasswordB.PasswordChar

C.需要编程来实现D.以上都不是

6.VisualBasic是一种面向对象的程序设计语言，所采用的编程机制是（C.事

件驱动）。

A.从主程序开始执行B.按过程顺序执行

C.事件驱动D.按模块顺序执行

7.下列四项中合法的变量名是（B.a_bc）。

A.a-beB.abe

C.4abcD.integer

8.将调试通过的工程经“文献”菜单的“生成exe文献”编译成.exe后，将该可

执行文献拿到其它机器上不能运营的重要因素是（C.运营的机器上无VB系统）。

A.缺少.frm窗体文献B.该可执行文献有病毒

C.运营的机器上无VB系统D.以上因素都不对

9.无论何种控件，共同具有的属性是（B.Name）

A.TextB.Name

C.CaptionD.ForeColor

10.有程序代码如下：

Textl.Text="VisualBasic程序设计”

则Text1,Text，和"Visua1Basic程序设计"分别代表(C.对象，属性，

值)。

A.对象，值，属性B.对象,方法，属性

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

11.假如仅需要得到当前系统时间，使用的函数是(B.Time)

A.NowB.Time

C.YearD.Date

12.表达式16/4-2A5*8/4MOD5\2(D.4)。

A.20B.l4C.2D.4

13.以下叙述中错误的是(D、在一个窗体文献中用Private定义的通用过程能被其它

窗体调用)。

A、一个工程中可以包含多个窗体文献

B、全局变量必须在标准模块中定义

C、在设计VisualBasic程序时，窗体、标准模块、类模块等需要分别保存为不同类

型的文献

D、在一个窗体文献中用Private定义的通用过程能被其它窗体调用

14.下列赋值语句对的的是(B.c=a+b)。

A.a+b=cB.c=a+b

C.-a=bD.5=a+b

15.要在窗体Form1内显示“myfrm”，使用的语句是(C.Forml.printnmyfr

m”)

A.Form.caption=umyfrmHB.Forml.caption=Hmyfrmn

C.Forml.print,'myfrmMD.Form.printumyfrm

16.拟定一个控件在窗体上位置的属性是（D.Top和Left）

A.Width或HeightB.Width和Height

C.Top或LeftD.Top和Left

17.将数据项“China”添加到列表框（Listl中成为第一项，应使用的语句是（B.Listl.

AddItem"China",0）

A.Listl.AddItem"China",B.List1.AddItem"China",0

C.Listl.AddItem"China",lD.Listl.AddItem"l,China"

18.假如创建了命令按钮数组控件，那么Click事件的参数是（A.Index）

A.IndexB.Caption

C.TagD.没有参数

19.在设计动画时，用时钟控件来控制动画速度的属性是（B.Interval）

A.EnabledB.1nterva1

C.TimerD.Move

20.以下叙述中错误的是（C.窗体的Hide方法和Uni。ad方法的作用完全相同）。

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

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

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

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

21.使图像框Image控件中的图像自动适应控件的大小应（C.将控件的Stretche属

性设为True）。

A.将控件的AutoSize属性设为TrueB.将控件的AutoSize属性设

为Faise

C.将控件的Stretche属性设为TrueD.将控件的Stretche属性

设为Fa1se

22.若使图像框Image控件自动适应其中的图形大小，应（B.将控件的Stretch

e属性设为FaIse）。

A.将控件的Stretche属性设为TrueB.将控件的Stretche属性设为

False

C.将控件的AutoSize属性设为TrueD.将控件的AutoSize属

性设为Faise

23.在VisualBasic中，变量的默认类型是(D.Variant)

A.IntegerB.Doub1e

C.CurrencyD.Variant

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

(C.ActiveConnection)。

A.CommandTypeB.Open

C.ActiveConnectionD.Execute

25.下列控件中不能响应Click事件的是(C.Timer)。

A.FrameB.Labe1C.TimerD.Form

26.假如准备读文献,打开顺序文献”text.dat”的对的语句是(C.opeFtext.dat”ForI

nputAs#1)

A.open"text.datuForwrireAs#1

B.openutext.dat'*ForBinaryAs#1

C.open"text.dat"ForInputAs#1

D・openutext.dat"ForRandomAs#1

27.用Line方法画直线后，当前坐标在(C、直线终点)。

A、(0,0)B、直线起点

C、直线终点D、容器的中心

28.不属于VB数据库引擎的是(C.BDE)

A.ODBCB.Jet引擎

C.BDED.OLEDB

29.MsgBox函数的返回值的数据类型是（D.整型）

A.字符串B.日期型

C.逻辑型D.整型

30.VB程序中通常不会产生错误提醒的是（D.逻辑错误）o

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

C.运营时错误D.逻辑错误

31.假如希望以模态方式显示窗体Form1,下列对的的语句是（C.Form1.Show

1）

A.Form1.Show0B.Form1.Show

C.Forml.Show1D.以下都不对的

32.下列关于变量的说法不对的的是（D.局部变量在声明它的过程执行完毕后就被释

放了兀

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

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

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

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

33.改变驱动器列表框的Drive属性值，将激活（C.Change）事件。

A.KeyDownB.KeyUp

C.ChangeD.Scoll

34.在下列选项中,不能将图像装入图片框和图像框的是（B.在界面设计时,手工在图像

框和图片框中绘制图形）

A.在界面设计时,通过Picture属性装入

B.在界面设计时，手工在图像框和图片框中绘制图形

C.在界面设计时，运用剪贴板把图像粘贴上

D.在程序运营期间，用LoadPicture函数把图形文献装入

35.要发送数据，通常使用Winsock控件的（A.SendData方法）。

A.SendData方法B.Listen方法

C.Accept方法D.GetDate方法

36.VB程序中设立断点的按键是(C、F9键)。

A、F5键B、F6键

C、F9键D、F10键

37,下列数组声明语句，对的的是(B.Dima(3,4)AsInteger)

A.Dima[3,4]AsIntegerB.Dima(3>4)As

Integer

C.Dima(n,n)AsIntegerD.Dima(34)AsInteger

38.当Winsock控件处在打开状态时，其State属性的值是(B.1)

A.0B.1

C.2D.6

二、填空题

1.TextBox和Label控件用来显示和输入文本，假如仅需要让应用程序在窗体中

显示文本信息，可使用控件；若允许用户输入文本，则应使用控

件。

2.在VB中，要想获得某个相关控件或语句的帮助信息，一般可一方面选中该控件或语

句,然后按键。

3.欲设立定期器的时间间隔为2秒,则属性Interval的值为________。

4.应用程序打包后，其包文献的后缀为o

5.VisualBasic程序开发有三种模式，即设计模式、模式和

模式。

6.是应用程序的对外接口,是其它控件的载体和容器。

7.表达式14/2-2八3*7MOD6的值是。

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

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

属性决定。

10.执行赋值语句a="Visua1"+"Basic"后,变量a的值是,

11.在VisualBasic语言中有三种形式的循环结构。其中，若循环的次数可以适先拟

定，可使用循环；若规定先判断循环进行的条件，可使用

循环。

12.数学关系8Wx<30表达成对的的VB表达式为。

13.在VB中，将Access称为,SQLServer称

为。

14.以窗体Forml的中心为圆心，画一个半径为500的圆的语句是

15.为了在运营时把当前程径下的图形文献picturefile.jpg装入图片框Picture

1,所使用的语句为，

16.变量的声明方法有隐式和两种，假如采用隐式声明方法，那么VB会

自动将变量声明为。

17.过程级变量是指在过程内部声明的变量，只有在该过程中的代码才干访问这个变量。

模块级或窗体级变量的作用域是，全局变量在整个应用程序中有效,

其作用域是。

18.VB提供了结构化程序设计的三种基本结构，这三种基本结构是选择结构、

19.将图片框的AutoSize属性设立成时，可使图片框根据图片调整

大小。

20.VB中的程序错误类型重要有编译错误、

等三种。

21.在VB中想获得帮助，需要按的键是；要设立断点需要按

键。

22.Winsock控件重要用来编制基于或协议的网络应用程

序。

23.定期器（Timer）控件可辨认的事件是，发生该事件的时间间隔由定期

器的属性设立。

24.在控件数组中，所有元素的属性均相同，数组中的每个元素由

______________属性指定。

25.假设ADOcn为一个Connection对象,那么在VB程序中声明并创建ADOcn的语

句是。

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

到2,第二维下标从0到3,则相应数组声明语句为o

27.在VB中，除了可以指定某个窗体作为启动对象之外，还可以指定

作为启动对象。

28.闰年的条件是：年号(Y)能被4整除，但不能被100整除；或者年号能被400整

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

29.常用的丫13网络编程控件重要有、Intemet

Transfer和

_____________________________三种。

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

向,Y轴的正向向。

三、阅读程序题

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

1.

PrivateSubForm_Click()

DimxAsInteger

StaticyAsInteger

x=x+2

y=x+3

Form].Printx=x,y=;y

EndSub

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

2.

PrivateSubForm_Click()

DimcAsInteger,jAsInteger,kAsInteger

k=0

c=1

Forj=1To6

Ifj>4Then

c=c+4

ExitFor

Else

k=k+1

EndIf

Nextj

Printc,k

EndSub

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

3.

PrivateSubCommandl_C1ick()

DimsAsDoub1e

DimiAsInteger

s=7

i=1

DoWhilei<10

i=i+2

s=s+i

Loop

Textl.Text=s

EndSub

文献框Text1的输出结果是：

4.

PrivateSubForm_C1ick()

DimcAsInteger,jAsInteger,kAsInteger

k=2

c=3

Forj=1To5

Ifj>3Then

c=c+5

ExitFor

Else

k=k+1

EndIf

Nextj

Printc,k

EndSub

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

5.

PrivateSubFormC1ick()

DimA(1To3)AsString

DimcAsInteger

DimjAsInteger

A(l)=〃4”

A(2)=〃8〃

A(3)="12〃

c=1

Forj=1To3

c=c+Vai(A(j))

Nextj

Printc

EndSub

写出程序运营时单击窗体后，窗体Forml上的结果:

6.

PrivateSubForm_Click()

DimiAsInteger,kAsInteger

k=0

Fori=1To4

Ifi>2Then

k=k+5

ExitFor

Else

k=k+2

EndIf

Nexti

Printk

EndSub

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

1.

FunctionF(aAsInteger)

DimbAsInteger

StaticcAsInteger

b=b+2

c=c+2

F=a+b+c

EndFunction

PrivateSubCommand1_C1ick()

DimaAsInteger

a=4

Fori=1To3

PrintF(a)

Nexti

EndSub

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

8.

PrivateSubForm_Click()

DimIAsInteger,jAsInteger

DimcAsInteger

0

ForI1To4

Forj=1To2

c=c+4

Nextj

Nex11

Printc

EndSub

文献框Textl的输出结果是：

9.

SubChange(xAsInteger,yAsInteger)

DimtAsInteger

t=x

x=y

y=t

Printx,y

EndSub

PrivateSubForm_C1ick()

DimaAsInteger,bAsInteger

a=50：b=40

Changea,b

Printa,b

EndSub

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

10.

PrivateSubForm_Click()

DimiAsInteger,kAsInteger,cAsInteger

Fori=1To5

IfiMod2=0Then

k=k+2

Else

c=c+2

EndIf

Nexti

Printk,c

EndSub

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

四、完善程序题

1.程序运营界面如图1所示。规定从文本框中输入课程名称,然后按“添加”按钮，将

其添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项;

当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”

按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改

后的信息送到列表框且“修改确认”按钮变为“修改”。

•列表框应用程序□0B

宣爨犍帮搬

VB程序设计Textl

SQLServer数据库应用

网站设计技术

系统开发规范与文裆编写添加

Command1

Tjstl信息系统测试

信息系统开发案例分析与首

网络实用技本荃础删除Command?

Delphi程序浚计基础

修改CnmmnndS

图1

程序如下，请补充完整。

PrivateSubForm_Load()

List1.Additem"计算机应用基础"

List1.Addltem"程序设计基础"

List1.AddItem"VB程序设计"

List1.AddItem"SQLServer数据库应用“

List1.Additem"网站设计技术"

Listl.Addltem"系统开发规范与文档编写"

List1.Additem"信息系统测试"

EndSub

PrivateSubCommand1_Click()

IfText1.Text<>""Then

Listl.[11Tex11.Text将文本框中的内容添加到

列表框中

Text1.Text=

Else

MsgBox”请在文本框中输入信息!”

EndIf

EndSub

PrivateSubCommand2_C1ick()

List1.Removeitem[21，删

除选定的项目

EndSub

PrivaleSubCommand3_Click()

IfCommand3,Caption="修改"Then

Textl.Text=[31____________________________

Textl.SetFocus

Command1.Enabled=False

Command2.Enabled=Faise

Command3.Caption=H[41'*

EIse

「51-Textl.Text

Command1.Enabled=True

Command2.Enabled=True

Text1.Text=156

Command3.Caption=H[71"

EndIf

EndSub

2.

已知存在一名为“学生”的SQLServer数据库，其中的"students"数据表用来存

储学生的基本情况信息，涉及学号、姓名、籍贯、性别。请编写一个简朴的应用程序，向student

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

当点击“增长”按钮时，一方面查询学号是否反复，假如不反复则向students表中添加学生记

录。其运营界面如图2所示。

图2

程序如下,请补充完整。

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

PrivateAD0cnAsConnection

PrivateSubForm_Load()

'连接SQLServer数据库

DimstrDBAsString

strDB=nProvider=SQLOLEDB;LSF;UserID=sa;Password=；Databas

e=_UJ____________"

IfADOcnIsNothingThen

SetADOcn=[21

ADOcn.0penstrDB

EndIf

EndSub

PrivateSubCommand1_C1ick()

'增长学生记录

DimstrSQLAsString

DimADOrs_J3]__________________

ADOrs.|4]=ADOcn

ADOrs.Opent4Se1ect学号FromStudentsWhere学号="+”…+

Text1

IfNot[5]Then

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

EIse

StrSQL=,,InsertIntostudents(学号，姓名,，籍贯，性别)

StrSQL=strSQL+Values(“+”'textl+“'J"+text2+”'"+te

xt3+”「+text4+'-)”

ADOcn.Execute[6]_____________________

MsgBox”添加成功，请继续!”

EndIf

PrivateSubCommand2_Click()

[71

EndSub

3.在窗体上建立一个驱动器列表框、目录列表框、文献列表框、图片框、文本框。规

定程序运营后，驱动器列表框Drivel的默认驱动器设立为D盘，选择Filel中所列的图片文

献(夫.bmp,*.gif和*.jpg),则相应的图片显示在图片框Pielurel中,文献的途径显示在文

本框中。程序运营结果如图3所示。

ii.Foral-Inlx|

|三a［本地磁盘］二J

|Qd:\

白照片

■洛阳

DSC00072.JPG

DSC00073.JPG

DSC00074.JPG

DSC00075.JPG

DSC00076.JPG

DSC00077.JPG

DSC00078.JPG—*1

DSC00079.JPG

DSC00082.JPG

DSC00084.JPG

DSC00085.JPG;J

d:'照片"洛阳USC00077.JPG

图3

程序代码如下，请补充完整

PrivateSubForm_Load()

Drivel.Drive=111

File1.Pattern=bmp；*.gif；*.jpg”

EndSub

PrivateSubDrivel_change()

Dir1.Path=_[2]______________________

Tex11.Text=Drivel.Drive

EndSub

PrivateSubDirl_Change()

[3]

|4|

EndSub

PrivateSubFi1e1—click()

Picture1.⑸=LoadPicture(File1.Path+H\n+File

1.FileName)

FileName=Filel.Path++File1.FileName

Textl.Text=FileName

EndSub

五、编写程序题

1.编写一工资调整程序。若基本工资大于等于800元，增长工资20%,若小于800元

大于600元,则增长工资15%；若小于600元则增长工资10%。规定在文本框Textl中输

入某职工的基本工资,单击“计算”按钮,在标签框Labe11中输出增长后的工资。程序运营

界面如图4所示。

图程序运营效果

2.购物优惠程序。某商场为了加速促成商品流通,采用购物打折的优惠办法，每位顾

客一次购物（1）在500元以上者，按9.5折优惠；（2）在800元以上者，按9折优惠;（3）1000

元以上者，按8折优惠；（4）1500元以上者按7折优惠。在窗体上添加两个文本框和一个命令

按钮,规定在Textl中输入购物商品总金额，单击命令按钮，在Text2中输出优惠后的价格。

程序运营结果如图5所示。

图程序运营效果

3.请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下：

(1)收入在1200元以内，扣税3%；

(2)收入在1200—4000元内，1000元以上部分扣税15%,

(3)收入在4000—5000元内,4000元以内按(2)的方法扣税，4000元以上部分,

扣税20%,

(4)当收入达成5000元以上，扣税25%o

程序运营界面如图所示

综合练习题答案

一、单项选择题

1.A2.C3.D4.D5.B6,C7.B8.C9.B10.C

11.B12.D13.D14.B15.C16.D17.B18.A19.B20.C

21.C22.B23.D24.C25.C26.C27.C28.C29.D30.1)3l.C

32.D33.C34.B35.A36.C37.B38.B

二、填空题

1.Labe1TextBox

2.Fl

3.2023

4..cab

5.中断执行

6.窗体

7.5

8,启动窗体

9.NameIndex

10.VisualBasic

11.For…Next循环Do•••Loop循环

12.8<=xANDx<30

13.本地数据库远程数据库

14.Circle(ScaleWidth/2,ScaleHeight/2),500

15.Picture1.Picture=LoadPrcture(〃picturefile.jpg〃)

16.显示,变体型（或写成Variant型）

17.整个模块或窗体整个应用程序（或工程中所有的模块和所有的过程）

18.循环结构顺序结构

19.True

20.实时错误逻辑错误

21.FlF9

22.TCP/IPUDP

23.TimerInterva1

24.Name1ndex

25.DimADOcnAsNewConnection

26.DimA(-lTo2,OTo3)AsInteger

27.Main子过程

28.YMOD4