《vb程序设计》期末复习题与答案

《vb程序设计》期末复习题及答案

一、填空题

1.创建一个VB应用程序三个主要的步骤是、和

2.当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的

窗口中，把此文本框的属性设置成空白。

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

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

4.窗体的常用方法有________、___________、___________和___________。

5.要想在代码中给名为txtshow的文本框赋予文本：GOODWORK应当编写的语句是

6.若命令按钮的名称为Cmdopen,程序要求单击该命令按钮时，打开一个窗口frml,请对

以下事件过程填空。

PrivateSubCmdopen

EndSub

7.VisualBasic6种类型的表达式是、、

、、oVisualBasic根据表

达式的来确定表达式的类型。

8.表达式93\7Mod2*2的值是»

9.已知a=3,b=4,c=5,表达式a〉bandNotc>aOrc>bAndc〈a+b的值是。

表达式c>aAndNotb<c的值是___________。

10.日期表达式#2/24/02#+2/12/02#的值为。

11.数学表达式sin2x+写成等价的VisualBasic表达式为。

12.设某个程序中要用到一个二维数组，要求数组名为A,类型为字符串类型，第一维下

标从1到5,第二维下标从-2到6,则相应的数组声明语句为

13.事件就是在对象上所发生的事情，VisualBasic中的事件如

_、等。一个对象响应的事件可以有个，用户不能建立新

的事件。事件过程是指。假设某一事件

过程如下：

PrivateSubcmdlClick()

Forml.Caption=，，VB示例”

EndSub

则响应该过程的对象名是，事件名是。

14.对象的方法用于o当方法不需要任何参数并且也没有返回值时，

调用对象的方法的格式为__________，例如，对窗体Forml使用Show方法，应写成

15.PiclureBox控件可通过设置其属性为True使之可自动调整大小；而Image

控件可通过设置其属性为True,使其加载的图片能自动调整大小以适应

Image,,

16.在VisualBasic程序中实现复制文件"c:\command.com”到d:盘根目录下的语句为

二、单项选择题

1.下列控件中没有Caption属性的是()

A、标签B、文本框C、框架D、命令按纽

2.除框架外，能对单选按纽分组的控件是()o

A、窗体B、标签C、图片框D、图像

3.下列符号不能作为VB中变量名的是().

A、ABCDEFGB、P00000C.89YWDDFD、xyz

4.下列不属于VisualBasic数据文件的是()。

A、顺序文件B、随机文件C、二进制文件D、数据库文

件

5,若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中

设置()°

A^Text属性值为*B、Cap;ion属性值为*

CPassword属性值为空D、PasswordChar属性值为*

6.表达式2*3〃2+2*8/4+3.2的值为()。

A、64B、31C、49D、42

7.表达式mid("abcdefg”,3,2)的值是()

A、abcB、cdC、bcdD、abode

8.数学表达式Sin25°写成YB表达式是()。

A、Sin25B、Sin(25)C、Sin(25°)D、Sin

(25*3.14/180)

9.Sub过程与Function过程最根本的区别是()。

A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。

风Function过程可以有参数，Sub过程不可以。

G两种过程参数的传递方式不同。

IXSub过程的过程名不能返回值，而Function过程能够通过过程名返回值。

10.选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为

()

A、T>=1.7AndW<=62.5B,T<=1.70rW>=62.5

CT>1.7AndW<62.5D.T>=1.70rW<62.5

11.下列对象不能响应Click事件的是()

A、列表框B、图片框C、窗

体D、计时器

12.在VisualBasic中，按文件的访问方式不同，可以将文件分为()

A、顺序文件、随机文件和二进制文件B、文本文件和数据文件

C、数据文件和可执行文件D、ASCH文件和二进

制文件

13.将通用对话框CommonDialog的类型设置成“颜色”对话框，可调用该对话框的

()方法。

A、ShowOpenB、ShowSaveC>ShowColorD、

ShowFont

三、指出下列句中的错误，修改或者说明原因。

1.sum和int.sum都可以作为VB的变量名。

2.变量名的长度最长可达1024个字符。

3.下列程序运行结果：3,3

OptionExplicit

PrivateSubConunandlClick()

Dima,bAsInteger

a=3.6

b=3.6

Text!.Text=a

Text2.Tcxt=b

EndSub

4.程序可以改变定长字符串的内容和长度。

5.Variant是一种特殊的数据类型，可以包含任何种类型的数据。

6.下列程序运行结果为True

PrivateSubCommandl_Click()

a=l

b=2

c=3

Text1.Text=c>a+b0rb-l>c-lAndc+a>aXorb<c-2

EndSub

7.#12/31/1999#-#12/20/1999#的运算结果是#12/11/1999#

8.可以在窗体的通用部分声明静态变量。

9.使用声明语句建立一个变量后，VisualBasic会自动对数值类型的变量赋初值0,变长

的字符串被初始化为一个零长度的字符串“，定长字符串用空格填充，Variant变量被初

始化为Empty,布尔型的变量被初始化为False。

10.事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。

11.将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。

12.当图像控件(Image)的Stretch属性为True时，Image控件能自动调整自己的尺寸

与显示的图片匹配。

四、读程序题，写出程序运行结果。

1.PrivateSubFormClick()

ForI=lTo9

Forj=lTo30-3*I

Print"”;

Nextj

Fork=lToI

Printk;

Nextk

Fork=l-lTolStcp-l

Printk;

Nextk

Print

NextI

EndSub

2.

OptionExplicit

PrivateSubConunand1Click()

StaticSAsInteger

DimiAsInteger

S=1

Fori=lTo5

S=S*i

Nexti

Prints

EndSub

3.

ForX=5TolStep-l

ForY=lTo6-X

PrintTab(Y+5)

NcxtY

Print

NextX

4.

PrivateSubForm_Activate()

Print"aa"&"bb”,-5*6,Not2<=3

Print"aa"&"bb”;-5*6;Not2<=3

Print

Print"30+60”,

Print30+60

?*

?”30+60”;30+60

EndSub

5.

X=1

DoWhileX<=10

IfXMod7=0Then

Y=X+6

Else

Z=X

EndIf

X=X+2

Loop

PrintX,YfZ

五、编程题

1.设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框l(textl)

文本框2(text2)、文本框3(text3)、文本框4(text4),和三个按钮：命令按钮1

(commandl)、命令按钮2(command2)、命令按钮3(command4)组成。程序运行后,用

户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则

给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。

2.设计程序。要求：从文本框Textl中接收输入的数据，当单击确定按钮(commandl)

时，如果该数据满足条件：除以3余2,除以5余3,除以7余4,则输出：否则将焦点定

位在文本框Textl中，选中其中的文本。

3.设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框

时，标签(Label1)中的文字(欢迎您！)的字体变成粗体，用户选中斜体复选框时，标

签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。

4.任意输入3个数，求大小排第二的那个数，写出程序代码。

《VB》期末复习参考答案

一、填空题

1.创建应用程序界面设置属性编写代码

2.属性、text

3.LabelTextBox

4.Load方法Show方法Hide方法Unload方法

5.txtshow.text=z，GOODWORK/，

6.Click。、frm1.sliow

7.算术表达式字符串表达式关系表达式布尔表达式日期表达式对象表达

式运算符

8.1

9.TrueFalse

10.12

11.Sin(x)*2+Sqr(x*2-y*2)/(2*x)

12.DimA(lTo5,-2To6)AsString

13.单击双击装载多响应某个事件后所执行的程序代

码cmdlClick

14.完成某种特定的功能对象名.方法名Forml.Show

15.AutoSizeStretch

16.Fi1eCopy'c:'command,com","d:\”

二、单项选择题

1.B2.C3.C4.D5.D6.B7,B

8.D9.DIO.Cll.D12.A13.C

三、指出下列句中的错误，修改或者说明原因。

1.Lit.sum不正确。变量名中不能包括小数点。

2.变量名的长度最长可达255个字符。

3.3.G,4

因为a不是整型变量。

4.不正确。程序不可以改变字符的长度，这是VB规定。

5.不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型

外，可以包含任何种类型的数据，这是YB规定。

6.False。逻辑表达式计算结果。

7.不正确。两个日期型数据相减，其结果是一个数值型数据。

8.不正确。静态变量为局部变量，只能在过程中声明。

9.正确。

10.正确。

11.正确。

12.不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹

配，而可以使图片自动扩展以适应控件的尺寸。

四、读程序题，写出程序运行结果。

1.程序运行后，单击窗体，输出结果为：

1

121

12321

1234321

123454321

12345654321

1234567654321

123456787654321

12345678987654321

2.程序运行后，单击按钮Command1输出结果为：120。

3.

*

**

***

****

*****

4.

aabb-30False

aabb-30False

30+6090

30+6090

5.

11139

五、编程题

1.

PrivateSubCommand1Click()

Textl.Text=**

Tcxt2.Tcxt="w

Text3.Text=""

Text4.Text=ww

EndSub

PrivateSubCommand2_Click()

a=Trim(Textl.Text)

b=Trim(Text2.Text)

c=Trim(Text3.Text)

Ifa=""0rb=""0rc:""Then

MsgBox”成绩填写不完全！”,vbCritical

Else

Text4.Text=(Val(a)+Val(b)+Val(c))/3

Endlf

EndSub

PrivateSubCommand3_Click()

LnloadMe

EndSub

2.

PrivateSubCommandlClickO

x=Val(Textl.Text)

IfxMod3=2AndxMod5=3AndxMod7-4Then

Print》：

Else

Textl.Setl'ocus

Textl.SeiStart=0

Textl.SclLcngth=Len(Textl.Text)

Endlf

EndSub

PrivateSubCheckl_Click()

IfCheckl.Value=lThcn

Label1.Font.Bold=True

Else

Label1.Font.Bold=False

Endlf

EndSub

PrivateSubCheck2Click（）

IfCheck2.Value=lThen

Label1.Font.Itaiic=True

Else

Label1.Font.Italic二False

Endlf

EndSub

PrivateSubCommandlClickO

InloadMe

EndSub

4.

a=Val（lnputBox（"输入第一个数：”））

b=Val（InputBox（"输入第二个数：”））

c=Val（lnputBox（"输入第三个数：”））

Tfa<bThent=a:a=b:b=t

1fa<cThcnt=a:a=c:c=t

Tfb<cThent=b:b=c:c=t

MsgBox（"求大小排第二的数是：〃&b）

VB期末考试试题A卷

一、填空题

1、VB程序设计的主要特点是(1)和(2)。

2、在VB中，最主要的两种对象是(3)和(4)。

3、工程是构成应用程序文件的(5)。

4、方法是VB提供的一种(6),用来完成一定的操作c

5、浮点类型数据包括单精度型和_(7)数据。

6、事件是窗体或控件对象识别的―(8)」

7、可用窗体的—(9)—方法在窗体中显示文字。

8、复选框控件Value属性指示复选框处于—(10或禁止状态(暗淡的)中的某

一种。

9、在VB中，修改窗体的(11)和(12)属性值，可改变窗体的大小。

10、双击工具箱中的控件图标，可在窗体的(13)出现一个尺寸为缺省值的控

件。

11、在MsgBox函数中，如果缺省title参数，则使用(14)作为消息框的标题。

12、设x=34.58,语句PrintFormat(x,“000.0”)的输出结果是(15)。

13、在VB中，数值型变量的初值为(16),Varanl型变量的初值为(17),

布尔型变量的初值为(18)。

14、设置窗体的(19)属性，可在窗体上显示图片。

15、程序运行工程中，清除MP图片框中的图片应使用语句(20)。

二、选择题

1、菜单控件只包括一个事件，即(1),当用鼠标单击或键盘选中后按“回车”键

时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。

A、GotFocusB、LoadC、ClickD、KeyDown

2、滚动条控件(如图所示)的Max属性所设置的是(2)二

口1*1

A、滚动框处于最右位置F寸，一个滚动条位置的Value属性最大设置值

B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量

C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量

D、滚动条控件无该属性

3、SQL语句Selecl*Fomsludent中的*表示(3)。

A、所有记录B、所有字段C、所有表D、都不对

4、以下选项中，不属于标签的属性是(1),

A、EnabledB、CaplionC、Default。、Font

5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是(5)0

A、CaptionlkNameCTextD>Label

6、设置一个单选按钮(OplionButton)所代表选项的选中状态，应当在属性窗口中改变的

属性是(6)。

A、CaptionBsNameC、TextD、Value

7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？(7)。

A、在标题项中输入&,然后打勾B、在索引项中打勾

C、在有效项中打勾D、在复选项中打勾

8、当执行以下过程时，在窗体上将显示(8)。

PrivateSubCommandl^ClickO

Printer;

Print"Hell。！”：

Print"YB"

EndSub

A、VBHello'VBB.VB

HellolVB

QVBD、VB

HellolVBHello!

VB

语句Print"Theansweris:";20/4-2的结果为(9)»

A、Theansweris20/1-2BTheansweris3

CTheansweris"20/4-2"D、非法语句

10、下列哪个控件是容器控件(10)。

A、ImageB、PictureC.ComboBoxD^FileListBox

11、若要将窗体从内存中卸载出去，其实现的方法是(11)。

A.ShowB.HideC.LoadD.UnLoad

12、以下选项中，不是Yisu下Basic控件的是(12)。

A.窗体B.定时器C.单选框D.命令按钮

13、双击窗体中的对象后，VisualBasic将显示的窗口是(13)^

A.代码窗口B.工具箱C.项目(工程)窗口D.属性窗口

14、可决定窗体的左上角是否有控制菜单的属性是(14)。

A.ControlBoxB.MinButton

C.MaxButtonD.BorderStyle

15、设有如下语句：

Strl=InputBox("输人"，**,"练习”)

从键盘上输人字符“示例”后，Strl的值是(⑸。

A.“输入"B.”"C.“练习”D.“示例”

16、窗体Forml的、ame属性是Frml,它的单击事件过程名是(16)°

A.Forml_ClickB.Form_ClickC.Frml_ClickD.Me_Click

17、窗体的hide属性的含义是(1立^

A.隐藏B.展现C.装入D.卸载

18、若要设置定时器控件的定时时间，需设置的属性是：18)，

A.EnabledB.ValueC.IntervalD.Text

19、能够改变复选框中背景颜色的属性是(19)。

A.ValueB.FontColorC.BackColorD.Font

20、窗体能响应的事件是(20)。

A./\ctiveFormB.LoadC.DriveD.Change

三、判断题(判断下列正确与否，正确的打J,错误的打X。)

I、三种方式的组合框都允许用户输入哪些不在列表框中的选项。

2、图象框中的Stretch属性为true时，其作用是图形白动调整大小以适应图象控件。

3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。

4、通过改变属性窗口中的Name属性，来改变窗体的标题。

5、创建VB应用程序的三个主要步骤是：(D创建应用程序界面⑵设置控件⑶编写代

码。

6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。

7、已知P=MsgBox("Howareyou?”,VbYesNo+VbQuestion,“Hello!”)，变量P是

Integer数据类型。

8、工程文件的扩展名是.vbg。

9、VB允许设计和使用用户自己设计的控件。

10、OptionButton控件没有DblCliek事件。

11、同一条记录中的各数据具有相同的类型。

12、使用Data控件可以直接显示数据库中的数据。

13、ImageList是一个图像容器控件，可用作工具栏的图像库。

14、当用户单击工具栏按钮时，将触发工具栏按钮的BullonClick事件。

15、在VB的工程资源管理器中，如果从工程中移除已经，呆存过的文件，该文件仍然被物

理删除(真正删除)。

16、如果列表框的ListConut的属性为10,则列表框最后一项的Listindex值为10,

17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。

18、使用数组定义语句：DimDS(10),则数组D中各元素的值为空。

19、如果在一行中输入多条语句，各语句之间用使用；分隔。

20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有

语法错误。

四、读程序题，写出程序运行结果

1、PrivateSubForm_Click()

StaticSL-MAsInteger

1=1

DoWhileI<=10

SUM=SUM+I

1=1+1

Loop

PrintSUM

EndSub

运行程序，第一次单击窗体：

第二次单击窗体：

2、PrivateSubFormClick()

Print*;Tab(6)⑵Tab(15);5

Print

ForI=15Tol6

PrintI;

Forj=2To6Step3

PrintTab(3*j);j*I;

Nextj

Print

Nextl

EndSub

程序运行结果:

五、编程题

(一)窗体中有图片框(Piclurel)和计时器(Timerl)两个控件，运行程序时，将图片加

载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右

移动lOOtwip(20分之一像素)。请填空：

PrivateSubForm_load()

(1)=1oadPicture(“cb:all.ico")

(2).1nterval=200

EndSub

PrivateSubTimerlTimer()

Staricx,yAsIrteger

x=x+100y=y+lC0

Picturel.Move(3)

EndSub______

(二)有一个单击按钮过程，其作用是产生50个60〜100的随机数，统计其中被6整除

余2的个数，并将这些数输出。请填空：

PrivateSubCommand1Click()

DimxAsInteger,N%

DimCounterAsInteger

(l)Timer

ForN^lTo50_________

X=Rnd()*(2)

If(3)=2Then

Printx___________

Counter=(4)

(5)_______

NextN________

PrintCounter

EndSub

《VB程序设计与应用》参考答案

一、填空题12345

j人人

答案可视MUxll事件驱动，由程图库(foLHl)15件集口

撅号67891

;田击m生主rtr办/冲

rrjR.TtW'JtsrrAKtnALp-rrtinnitiZy1t1rJ

题号1112131415

高度4.-r-Xnqc/c

售案JAL™(Width)ZK,11

(Height)

题号1617181920

U__LL「1•----------------------

二、选择题12345

题号67890

答案DDABI

题号1112131415

答案DAAAE

题号1617181920

答案CACCF

三、判断题1234567890

答案XX：CJXJ/V7X

1112131415167181920

答案JX、JXX.「XXJ

四、程序阅读题：

（一）（10分）

k55________

2>110

（二）、（10分）

*25

153075

163280

五、编程题（20分）

（一）］、Picturel.Picture

2、Timerl

3^x,y

（二）1、Randomize

2、Rnd（）*41+60_______________

3、xMod6_____________

4、Counter+1______________

5EndIf

一、单项选择题(共10分)

1.在代码中引用一个控件时，应使用控件的(B)属性。

A.CaptionB.NameC.TextD.Index

2.设变量x=4,y=-l,a=7,b=-8,下面表达式(A)的值为‘假'。

A.x+a<=b-yB.x>OANDy<0

C.a=bORx>yD.x+y>a+bANDN0T(y<b)

3.表达式Inl(Rnd*71)+10产生的随机整数范围是(C)。

A.(10,80)B.(10,81)C.[10,80]D.[10,81]

4.函数Sgn(3.1416)的返回值是(C)。

A.-IB.0C.ID.以上都不对

5.67890属于(D)类型数据。

A.整型B.单精度浮点数C.货币型D.长整型

6.下列变量名中正确的是(D)。

A.3SB.PrintC.SelectMyNameD.Select_l

7.下列赋值语句(A)是有效的。

A.sum=sum-sumB.x+2=x+2C.x+y=sumD.last=y/O

8.以下的控件或方法具有输入和输出双重功能的为(B).

A.PrintB.TextboxC.OptionbuttonD.Checkbox

9.若要获得列表框中被选中的列表项的内容，可以通过访问(D)属性来实现。

A.NameB.ListlndexC.ListCountD.Text

10.下列代码的运行结果为(B)。

PrivateSubcommand1clickO

Dimm(10)

Fork=lTolO

m(k)=l1-k

Nextk

x=5

Printm(2+m(x))

EndSub

A.2B.3C.4D.5

二、填空题(10分)

1.写出整数n能同时被13和17整除的Basic表达nModl3=0AndnModl7=0

式。

2.代码窗口中有两个下拉列表框：左侧是(对象)列表框，右侧是过程列表框。

3.写出在字符串"Visual3asic6.0中裁'取"Visual的'Basic表达式LEFT("VisualBasic

6.0”，6。)

4.函数Lan("ahcdaf的J舸值是⑹。

5.设a=2,b=5,c=-2,d=100,则a>b>=cANDa<b>=d的值为

False。

三、将下列数学表达式转换为VR表达式。(6分)

1.a2+2ab+b2：ac2+2*a*b+b'2

2.8exlnl0：8*exp(x)*log(10)

3.2sin(450)cos(450)：2*sin(3.1416/4)*cos(3.1416/4)

6.在VB中，用户定义常星使用Const语句，声明变量使用Dim语句。

1.在VB6.0中，扩展名为.vbp的文件称为A。

A)工程文件B)窗体文件C)类模块文件D)标准模块文件

2.在VB6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口

是&_

A)代码窗口B)窗体设计窗口

C)属性窗口D)工程资源管理器窗口

3.设有变量定义语句Dima机则变量a的数据类型是A。

A)整型B)单精度类型C)双精度类型D)字符串类型

4.下列表达式中，值为False的是D!___

A)"AB"〈"abc"B)"ABC^UCase("abc-

C)"ABCD"<"abc"D)Mid("ABCD”,3,l)=LeftCABCD*,3)

5.函数InStr("ABCDEF","CD")的值是B。

A)2B)3C)TrueD)CDEF

6.下列程序运行后，单出窗体，输出结果是C。

PrivateSubForm_Click()

DimaAsInteger,bAsInteger

a=3

b=5

Printa+b;a&b

EndSub

A)88B)3535C)835D)358

7.下列程序运行后，单击窗体，输出结果是B。

PrivateSuhForm_Click()

a=3:b=7

a=a+b:b=a-b:a=a-b

Printa:b

EndSub

A)43B)73C)37D)107

8.下面程序段所表示的数学关系式是

If(a<b)Then

Ifd=cThenx=l

Else

x=2

EndIf

l(abJbd)

A)x旧(c

2(a9)22(a*d)

bc=[<b且=c

且12

1(abcd)、l(ab巨)

Ox且D)xcd

2(a1L2(ccd

b)d)

9.下列程序运行后，单击窗体，输出结果是c。

PrivateSubFormClick()

s=0:k=l

Do

s=s+k:k=k+l

LoopUntilk<=5

Prints

EndSub

A)15B)10C)iD)0

10.下列程序段的输出结果是

Fork=4To2Step-2

m=k

Nextk

Printmjk;

A)22B)2002ID)00

11.用下面的语句定义数组，则数组中的元素个数是D色_

OptionBasel

Dini/\(-lTo2,5)Aslnteger

A)5B)10C)15D)20

12.下面程序段的输出结果是J

Dima(4)Aslnteger,sAsTnteger

Fork=lTo4

a(k)=2*k

Nextk

Fork=lTo4Step2

s=s+a(k)

Prints;

Nextk

A)8B)20C)28D)261220

13.设有如下的用户自定义类型

PrivateTypcStu

nameAsString*10

ageAsInteger

EndType

则以下正确引用该类型成员的代码是Bo

A)Stu.name=/，zhang，zB)DimsAsStu

s.name="zhang”

C)DimsAsTypeStuD)Dims/\sType

s.name="zhang"s.name="zhang”

14.用“B”关键字声明的变量称为全局变量。

A)PrivateB)PublicODimD)Static

15.在窗体上放置一个文本框，程序运行后，在文本框中输入abc,但显示的却是***,可

能的原因是该文本框的D属性值已经被设置为“*工

A)FontB)TextC)NameD)PasswordChar

16.在VB6.0中，Print是对象的B。

A)属性B)方法C)事件D)名称

17.在VB6.0中，要判断复选框是否为选中状态，使用的属性是D。

A)CaptionB)CheckedC)SelectedD)Value

18.设列表框Listl中共有3个列表项，如右图所示0则下列语句・.FOFBI

中，能够删除最后一个列表项的是k

列表框

A)Listl.RemoveItem2

B)Listl.RemoveItem"项目C"

OListl.RemoveltemListl.Listcount

D)Listl.RcmovcltemListl.Listindex

19.组合框分为下拉式组合框、简单组合框和下拉式列表框，在

“属性”窗口中这三种类型是由AJ1性设置的。

A)StyleB)Fi1IStyleC)BackStyleD)BordersLyle

20.用户单击滚动条的空白处(滑块与两端滚动舷间做时Value属性所增加

或减少的值，是恫性决定的。

A)MinB)MaxC)SmallChangeD)LargeChango

21.将图片文件“b.jpg”作为背景图片，装入当前窗体，正确的语效D。

A)Me.Picture=b.jpgB)Me.Picture=LoadPicture(b.jpg)

C)Me.Picture=，zb.jpg"D)Me.Picture=LoadPicture(/，b.jpg*)

22.要将两个单选按钮放置在同一个框架内，使它们成为一组，正确的操是A。_

A)先放置一个框架，然后在框架中放置两个单选按钮

B)先放置两个单选按钮，再放置一个框架，放置框架时想费单选按钮上

C)先放置两个单选按钮，再放置一个框架，然后将两个单选按钮抽桐架内

D)以上三种方法都正确

23.计时器控件能够响应的事件是D。

A)LoadB)ClickC)ChangeD)Tinter

24.要使命令按钮处于无效状态，可以设置按钮的B属性值为False。

A)CaptionB)EnabledC)StyleD)Visible

25.如果在一个工程中有多个窗体和模块，如默认的启动跳

A)第一个标准模块B)最后一个被添加的窗体

C)设计时的第一个窗体D)最后一个被添加的标准模块

26.在窗体上放置一个图像框，名狗Imaged程序运行时，要保持图像框大小不变使

框中的图片能够自动适应图像框的大小，可以掠语阿

A)Imagel.AutoSize=TrueB)Imagel.Stretch=True

C)Imagel.AutoSize=FalseD)Imagel.Stretch=False

27.使用“菜单编辑器”建立菜单项之间的分隔线时，在菜单项的“标题中输的符号

是应___

A)减号-B)下划线_C)&D)#

28.要将窗体Forml从内存中卸载，正确的语角D。

A)Forml.ShowB)LoadForml

C)Forml.HideD)UnLoadForml

29.在窗体上单击时，会触瞄相加加useDo需n,其事件过程的一般格式如下：

PrivateSubFormMouseDown(ButtonAsInteger,ShiftAsInteger,XAs

Single,YAsSingle)

EndSub

此时，如果单击的是树蝴tton参数的值是B。

A)1B)2C)3D)4

30.获取文件的长度(字节数)，可以使用的函数是B。

A)LEN()B)LOF()C)EOF()D)LOG()

1.数学表达式渔工改写为VB表达式，形式是【1】。答案sqr(3*y)/(x+y)

x+y

2.在VB6.0中，InpulBox函数返回值的数据类型是【2】,答案：字符串类型或

String

3.语句PrintTab(5);"ABC”的功能是【3】^

答案：从第5列开始输出字符串“ABC”

4.下面程序段的功能是：在文本框Textl中输入一个数值x,如果满足5<x<10,那么输出

“Yes”,否则输出“No”。请填空。

x=Val(Text1.Text)答案5<xAndx<10

If[4]ThenPrint"Yes"ElsePrint"No"

5.设a=l,b=2,c=3,语句Printa<bOrb<cAndc<a的输出结果是

【5】。答案:True

6.在窗体上放置一个标签：名称为Labcll,使用语句【6】可以把标签的前景色

设置为蓝色。Label1.ForeColor=vbBlue或RGB(O,0,255)或QBColor(9)

7.在窗体上放置一个图像相，名称为Imagel,要使该图像框向下移动10个默认单位

(twip),正确的语句是Image1.Top=[7]答案：Imagel.Top+

10

8.使用“菜单编辑器”建立了一个主菜单，名称为mcnul。要把它作为窗体Forml的快捷

菜单(也称为弹出式菜单)弹出，使用的语句是：答案：Popupmenu

Forml.【8】menul

9.在窗体上放置一个通用对话框控件，名称为CommonDialogl。使用该控件建立“打开”

文件对话框时，要求只能显示文本文件(即扩展名为“.txt”的文件)，则正确的设置语

句是CommonDialogl.19]="文本文件(*.txt)*.txt",答案：Filter

10.设磁盘上已存在顺序文件“a.txt”，为了从文件中顺序读取数据而打开该文件，正确

的语句是0per)"a.txt'For【10】答案:Input

1.下列面程序运行后，单击窗体，输出结果是[1】。答案:139

PrivateSubEormClickO

8=0

Forn=lTo3

P=1

Fork=lTon

p=p*k

Nextk

s=s+p

Prints;

Ncxtn

EndSub

2.下列程序运行后，单击窗体，输出结果是[2】。答案:7

PrivateSubFormClick()

m=0

Eork=lTo4

SelectCasek

Casel,2

m=m+l

Casels>3

m=m+2

CaselTo4

m=m+3

EndSelect

Nextk

Printm

EndSub

3.在窗体上放置一个文本框，名称为Textl。下列程序运行后，单击窗体，Text」中显

示的内容是［3］。答案:ade

PrivateSubForm_Click()

Text1.Tex

s="aBdl2Re”

Fork=lToLen(s)

ch=Mid(s,k,1)

Ifch>="a"Andch〈="z"Then

Textl.Text=Textl.Text+ch

Endlf

Nextk

EndSub

4.下列程序运行后，单击窗体，输出结果是［4］。答案：1124

OptionBasel

PrivateSubFormClick()

x二Array(3,5,4,8,2,6,11,9,7,4)

p=x(l):s=0

Fork=2TolIBound(x)

Ifx(k)>pThen

P=x(k)

s=s+p

EndTf

Nextk

Primp;s

EndSub

5.下列程序运行后，单击窗体，输出结果是［5］。答案：151

PrivateSubFormClick()

Dima(lTo3,1TO3)

Fori=lTo3

Fork=lTo3

Ifk=10ri=kThen

a(i,k)=l

Else

a(i,k)=i+k

Endlf

Nextk

Nexti

Printad,l);a(2,3);a(3,3)

EndSub

6.在窗体上放置一个命令按钮，名称为Command2并编写如下代码。

PrivateSubCommand2Click()

DimmAsInteger,nAsInteger,g/\sInteger

m=18:n=12:g=0

CalIsubl(m,n,g)

Printm;n;g

EndSub

Pub1ieSubsub1(ByVa1aAsInteger,ByValbAsInteger,cAslnteger)

Ifa<bThent=a:a=b:b=t

DoWhilebOO

r=aModb

a=b

b=r

Loop

c=a

EndSub

程序运行后，单击命令按钮，则输出结果是［6］。答案：18126

7.在窗体上放置一个命令按钮，名称为Conunand3并编写如下代码。

PrivateSubCommand3_Click()

DimkAslntcger

k=l

Printfunl(k);

Printfunl(k);

Printfunl(k);

EndSub

Functionfunl(aAsIntcger)Aslntegcr

StaticcAsInteger

DimbAsInteger

a=a+2:b=b+2:c=c+2

funl=a+b+c

EndFunction

程序运行后，单击命令按钮，则输出结果是［7］。答案：71115

8.在窗体上放置一个文本框，其名称为Textl,并编写如下代码。

DimsAsString

PrivateSubTextlKeyPress(KeyAsciiAslnteger)

s=s+Chr(KeyAscii)

Prints;

EndSub

程序运行后，在文本框中输入abc,则窗体上输出的内容是［8］。答案：aababc

1.在窗体上放置一个计时器和一个标签，计时器名称为Hmerl,标签名称为Label1。下

列程序的功能是：

(1)在窗体加载事件中设置计时器每秒钟能够触发5次Timer事件：

(2)每触发一次Timer事件能够将标签上的字号加大2,当字号超过当前窗体的宽度

时，将字号恢复为8。

程序中有一.处.错误，请更正。说明错误时可以使用每条语句前的编号。

(l)PrivateSubForm_Load()

(2)Timer1.Interval=5答案：200

(3)Timerl.Enabled二True

(4)EndSub

(5)PrivateSubTimerlTimer()

(6)Label1.FontSize=Labell.FontSize+2

(7)IfLabell.FontSize>Me.WidthThen

(8)Label1.FontSize=8

(9)EndIf

(10)EndSub

2.下列程序的功能是计算l+3+5+“+99的和s。程序中有一处.错误。请更正谢第时

可以使用每条语句前的编号

(l)s=0

(2)k=l

(3)DoWhilek<=9