《VB程序设计》期末考试试卷(A)附答案

******学院

2009-2010学年第二学期

《VB程序设计》期末考试试卷(A)附答案

一、选择题(2分/题，共60分)

(1)要设置窗体上各控件的属性，可以在中进行。

A“窗体布局”窗口B“工程资源管理器”窗口

C“属性”窗口D“对象”窗口

(2)下面程序段能够正确实现目的：如果x<y,则a=15,否则a=T5。

AIfx<yThena=15

a=-15

Printa

Bifx<yThena=15:Printa

a=-15:Printa

CIfx<yThen

a=15:Printa

Else

A=-15:Printa

Endif

DIfx<yThena=15

a=-15

Printa

Endif

(3)VB窗体设计器的主要功能是o

A建立用户界面B编写源程序代码

C画图D显示文字

(4)文本框控件的值是属性。

ACaptionBValue

CIndexDText

(5)双击窗体中的对象后，VB将显示的窗口是o

A工具箱B“工程”窗口

C“代码”窗口D“属性”窗口

(6)下列程序段的执行结果是o

X=int(Rnd()+4)

Selectcasex

Case5

Print“优秀”

Case4

Print“良好”

Case3

Printv通过”

Caseelse

Print"不通过"

Endselect

A优秀B良好

C通过D不通过

(7)下列哪个不是窗体的属性o

ACaptionBText

CControlBoxDBorderStyle

(8)设组合框Combol中有3个项目，则以下能删除最后一项的语句是

ACombol.RemoveItemTextBCombol.Removeitem2

CCombol.Removeltem3DCombol.Remove11emCombo1.Listcount

(9)窗体BorderStyle属性的功能是。

A设置窗体的边框大小

B设置窗体的边框样式，是否显示标题栏，是否可以调整大小等

C决定是否显示窗体的控制菜单图标与状态控制按钮

D决定窗体的最大化或最小化按钮是否有效

(10)下列可作为VB的变量名的是o

Ac*DelBAlpha

C4aDprint

(11)要把一个命令按钮设置成无效，应设置其哪一属性值—。

A)VisibleB)EnabledC)DefaultD)Cancel

(12)下列不能作为VB所允许的常量是—o

A&0148B“china”

C3E2D&H2a

(13)是指控件本身所具有的、反映该控件功能的内部函数或过程。

A方法B事件

C属性D控件

(14)表达式33Mod17\3*2的值是

A10B1

C2D3

(15)表达式int(123.4567*100+0.5)/100的值是

A123.47B123.45

C123.461D123

(16)不属于VB6集成开发环境工作状态的是o

A“设计”状态B编写代码状态

C“运行状态”D“中断状态”

(17)工程文件的扩展名是____________O

AfrmBvbp

CbasDfrx

(18)提供控件的窗口是一___o

A”对象”窗口B“立即”窗口

C工具箱D工具栏

(19)变量x=1234.5678,要保留两位小数四舍五入输出，如输出结果为

1235.57,正确的方法是______o

APrintFormat(x,w#####.##")BPrintFormat(w#####.##",x)

CPrintFormat(x,00000.00v)DPrintFormat00000.00”,x)

(20)要显示一个对话框，提示用户输入一个数据，并且对话框中要显示的提

示信息位”请输入一个整数”，正确的是

AWord=MsgBox(“请输入一个整数："，"输入")

BWord=MsgBox(w输入"，"请输入一个整数：”)

CWord=InputBox(“请输入一个整数："，"输入")

DWord=InputgBox(,)输入"，"请输入一个整数：”)

(21)用于字符串连接的运算符是

A&B+

CAndDA、B都可以

(22)以下拥有Print方法的对象是

A窗体B图片框

C打印机D以上都有

(23)设a=2,b=3,c=4,d=5,下列表达式的值是

NOTa<=cOR4*c=b"2ANDb<>a+c

A-1B1

CTrueDFalse

(24)代码Print“test"&"="，3*6显示的结果为

Atest=18Btest=18

Ctest=18Dtest=18

(25)在VB中，通过改变列表框属性的值，可以为列表框添加项目。

AListB(名称)

CCaptionDText

(26)在VB中，复选框(Check)的Value值有3种，分别是

A-1,0,1B0,1,2

C1,2,3DTrue,False,0

(27)下列程序段的执行结果是o

X=5

Y=-20

Ifnotx>0thenx=y-3elsey=x+3

Printx-y;y-x

A-33B5-8

C3-3D25-25

(28)要把Print方法输出的文字显示为粗体字，应该设置属性

AFontBoldBFontName

CFontSizeDFontltalic

(29)设a=2,b=3,c=4,d=5,下列表达式的值是

3>2*bORa=cANDb<>a+c

A1BTrue

CFalseD-1

(30))如果要在代码窗口内将表单Forml的Caption属性设置为“时钟”，正

确的书写形式是0

AForm.Caption"时钟"BForm.Caption="时钟"

C.Caption="时钟"DForm.Caption("时钟")

二、判断题(1分/题，共10分，对用T表示，错用F表示)

()1、设置属性的语句格式为：“对象名.属性名=属性值

()2、在窗体或模块文件中声明为Private的过程，只能被本窗体或模块

中的过程所调用。

()3、VB的赋值语句只能给变量赋值。

()4、在VB中，字符型常量应使用"#"号将其括起来。

()5、窗体大小只能通过鼠标拖动窗体边框来设置。

()6、VB的Double类型数据，可以精确表示其数值范围内的所有实数。

()7、若用户在键盘上按下一个键，则会产生一个Click事件。

()8、罗马数制是进位计数制。

()9、事件过程可以由用户事件触发执行，也可以由其他过程所调用。

()10>DoWhile条件....Loop和DOUntilNot条件....Loop两条循

环语句，实现循环控制是等效的。

三、读程序并填空题(每空2分，共10分)

1.

jl=io

j2=30

Ifjl<j2ThenPrintj2;jl

运行上程序段后，现实的结果是,_

A10B30

C1030D3010

2.

下列程序段的执行结果是,

X=5

Y=-20

Ifnotx>0thenx=y-3elsey=x+3

Printx-y;y-x

3.

PrivateSubFormClick()

DimAasinteger

A=200

IfA<=100Then

A=A*10

IfA>1000Then

A=A-10

Else

A=A+10

Endif

Else

A=A/10

IfA=10Then

A=A-10

Else

A=A+10

Endif

Endif

MsgboxStr(A)

EndSub运行程序，单击窗体Forml,消息框中显示：

4.

FunctionF(aAsInteger)

DimbAsInteger

StaticcAsInteger

b=b+2

c=c+2

F=a+b+c

EndFunction

PrivateSubCommand1Click()

DimaAsInteger

a=4

Fori=1To3

PrintF(a)

Nexti

EndSub

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

5.

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的值分别是：

四、编写程序（每题10分，共20分）

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

每位顾客一次购物（1）在200元以上者，按9.5折优惠；（2）在300元以上者,

按9折优惠；（3）400元以上者，按8折优惠；（4）600元以上者按7折优惠。

在窗体上添加两个文本框和一个命令按钮，要求在Textl中输入购物商品总金

额，单击命令按钮，在Text2中输出优惠后的价格。程序运行结果如图1所示。

图1程序运行效果

2.

实现课对所选择课程进行统计现实，下如图2所示:

图2程序运行效果

答案

一、选择题（每题2分，共60分）

12345678910

CCADCBBBBB

11121314151617181920

BABBAABCAB

21222324252627282930

DADADBAABC

二、判断题（1分/题，共10分）

12345678910

TTTFFTFFTT

三、读程序并填空题（每空1分，共10分）

1.3010

2.-33

3.30

4.81012

5.54

四、编写程序（每题10分，共20分）

1.PrivateSubCommand1_Click（）（1分）

DimxAsSingle,yAsSingle

x=Val（Textl.Text）（1分）

Ifx<200Then（2分）

y=x

Else

Ifx<3OOThen（2分）

y=9.5*x

Else

Ifx<400