《VB程序设计》复习题

VB程序设计》复习题

一、选择题

1-改变控件在窗体中的上下位置，应修改控件的_A属性

A.TopB.LeftC.WidthD.Right

2.将通用对话框类型，设置为字体对话框，可修改该控件的D属性

A.fontB.filenameC.filterD.action

3.标签控件最重要的属性是_A

A.captionB.textC.nameD.width

4.文本框中选定的内容，由下列C属性反映。

A.TextB.CaptionC.SeitextD.sellenght

5.选中复选框控件时，value属性的值，可以是_D

A.trueB.falseC.0D.1

6.设置列表框选中的文本用D属性

A.selectedB.captionC.textD.list

7.简单组合框的style值为B

A.0B.1C.2D.3

8.在文件列表框的实现文件的多重选择，应修改该控件的—D属性

A.filenameB.patternC.pathD.multiselect

9.语句listLremoveitem1将删除list.listindext等于_D的项目。

A.0B.2C.3D.1

10.计时器的interval属性为0时，表示A。

A.计时器失效C.相隔0毫秒

B.相隔0秒D.计时器的enable属性为false

11.以下的vb常量中非法的是（B）

a.,■GoodLuck"b.PIc.1.5E-03d.16.3412

12.要想返回文本框中输入的内容则可利用其（B）属性进行编程

a.captionb.textc.named.righttoleft

13.下列不能用commondialog控件调用的对话框是（D）

a.open/saveb.helpc.fontd.search

14.vb应用程序是分层管理的，其最高的层次为（A）

a.工程b.模块c.窗体d.过程

15.vb程序设计中的窗体在oop中称为（C）

a.屏幕b.事件c.对象d.控件

16.欲使某命令按钮失效，应修改命令按钮的（D）属性。

A.VisibleB.CaptionC.EnableD.Enabled

17.要使标签能透出窗体的背景，必须设置（A）属性。

A.BackStyleB.BorderStyleC.AppearanceD.BackColor

18.用鼠标拖动滚动条中滚动框并释放，将触发滚动条的（D）事件。

A.ScrollB.ChangeC.DragOverD.A和B

19.组合框的类型由Style属性决定，简单组合框的Style属性值应为（B）。

A.0B.1C.2D.3

20.下面哪些控件不会影响到界面设计效果。（A）

A.定时器B.文本框C.标签D.Line控件

21.Clear方法适用于（D）控件。

A.图片框B.窗体C.复选框D.组合框

22.下列哪个变量的取法是不正确的（C）

A.sTmeB.T_TempC.T12%D.T_12

23.如果要设置窗体的标题栏，应选搽以下那种属性（B）

A.NameB.CaptionC.TipsD.Text

24.如果要给字体加删除线，可以选择下列那种属性（C）

A.FontNameB.FontSizeC.FontStrikethruD.FontUnderLine

25.下列哪个变量的取法是不正确的（D）

A.TNameB.T_TempC.T32D.T32#

26.清除列表框的所有选项应选择下列哪种方法（A）

A.ClearB.CisC.ClearitemD.Removeitem

27.下面哪些控件不会影响到界面设计效果。（C）

A.LabelB.TextC.CommonDialogD.Frame

28.要使得窗体在出现之前就完成相关的程序设置可在（C）事件中进行编程

A.linkopenB.KeyPressC.loadD.click

29.要使文本框中显示密码符有效，必须首先设置（B）属性。

A.TextB.MultiLineC.LockedD.Enabled

30.要在垂直位置上移动控件，应利用控件的（C）属性。

A.LeftB.WidthC.TopD.Height

31.下列表达式中，其值为0的是（C）

A.7/9B.7mod15C.7\9D.15mod9

32.一个对象可以执行的动作和可被对象识别的动作分别称为（A）。

A、事件、方法B、方法、事件C、属性、方法D、过程、事件

33.在窗体Forml的Click事件过程中有以下语句：

LabeH.Caption="VisualBasic"

若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性

和Caption属性在执行本语句之前的值分别为（B）。

A.”Label"、"Label”B、"LabeH\"VisualBasic"

C、"Label1"、"Label1"D、"Caption"、"Label”

34.（D）对象不具有Caption属性。

A、LabelB,OptionC、FormD、Timer

35.Interger类型的变量可存的的最大整数是（D）。

A、250B、256C、32768D、32767

36.下列数据类型中，占用内存最小的是（B）。

A、BooleanB、ByteC^IntegerD、Single

37.已知A、B、C中C最小，则判断A、B、C可否构成三角形三条边长的逻辑表达式

是（B）o

A、A>=BAndB>=CAndC>0B、A+C>BAndB+C>AAndC>0

C、（A+C）>=CAndA-C<=C）AndC>0D、A+B>CAndA-B>CAndC>0

38.下面（C）是日期型常量。

A、"12/19/99"B、12/19/99C、#12/19/99#D、｛12/19/99）

二、判断题:

1.全局变量用global或public关键字声明，且仅在通用声明处可以定义。（F）

2.如果某子程序add用publicstaticsubadd（）定义，则该子程序的变量都是局部变

量。（F）

3.move方法的一般形式是：对象名.moveA,B[,C,D],其中A指Left,C指width。

（F）

4.清除listl列表框对象的内容的语句是listl.cls。（F）

5.清除combed对象的内容是combol.clear。（T）

6.对象的可见性用enabled属性设置，可用性用visible属性设置。（F）

7.滚动条控件不可作为用户输入数据的一种方法。（F）

8.只要用拖拽的方法，将工具箱中所需的控件拖到窗体上即可完成。（F）

9.控件是对象，而窗体不是对象，它只是控件对象的窗口。（F）

10.TextBox与Label有许多共同特点，它们都能显示和输入文本。（F）

11.有的对象属性既可在属性窗口中设定又可在程序代码中设定。（T）

12.在框架控件内的几个单选按钮中，只能有一个单选按钮的Value属性为True.（T）

13.标签没有Change事件和SetFocus方法。（T）

14.事件过程与Sub过程，它们相同点都是事件驱动，而不同的只是事件过程由控件属

性决定，而Sub过程是由户自定义。（F）

15.Function函数有参数传递，并且一定有返回值。（F）

16.滚动条控件不可作为用户输入数据的方法。（T）

17.Msgbox函数建立的信息框能显示信息又能输入用户的信息。（F）

18.Dimi,jasinteger表明i和j都是整型变量。（F）

19.菜单每一菜单项都是控件，可以通过点击菜单项或通过光标选择并按回车键，以触

发Click事件。（T）

20.某一过程中的静态变量在过程结束后，静态变量及其值可以在其它过程中使用。（F）

21.目录列表框中的列表项不可以通过Additem方法进行添加。（T）

22.在表达式中，运算符两端的数据类型要求一致。（T）

23.VisualBasic程序的运行，仅能从某一窗体启动，如Form"!窗体。（F）

24.VB是一种面向对象的程序设计语言。（T）

25.在VB的工具栏中包括了所有的VB控件，我们不能再加载其他的控件。（F）

26.在VB中，文件菜单的“删除工程”的作用是将当前VB工程在硬盘中删除掉。（F）

27.有一个程序在属性窗口中设置了它的窗体字体大小为10号，而程序代码若设置了它

的窗体字体大小为20号，那么当程序运行后实际的窗体字体大小为20号。（T）

28.所有的VB的变量，都有隐含说明字符和强调声明两种方法来定义。（F）

29.所有的控件在程序运行以后都是可见的。任）

30.标签控件可以用来让用户输入数据。（F）

31.在框架控件上放置的控件可以移动到框架控件的外面。（F）

32.如果一个列表框一共有5个选项，而当选中第三项时，这时列表框的Listindex属性

为2。（T）

33.单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件任务。（F）

34.除了标准控件外，还可引入其它控件及第三方厂商研制的控件。（T）

35.TextBox与Label有许多共同特点，它们都能显示和输入文本。（F）

36.Listl.clear是清除Listl的全部列表项，所以Clear是对象的方法。（T）

37.有的对象属性既可在属性窗口中设定又可在程序代码中设定。（F）

38.在框架控件内的几个单选按钮中，可有一个或多个单选按钮的Value属性为True.（F）

39.Variant是一种特殊的数据类型，Variant类型变量可以存储除了定长字符串数据及

自定义类型外的所有系统定义类型的数据。Variant类型变量还可具有Empty.Error

和Null等特殊值。（T）

40.窗体的Enabled属性值为False时，该窗体上的按钮、文本框等控件就不会对用户

的操作做出反应。（T）

41.框架控件和形状控件都不能响应用户的鼠标的单击事件。（T）

42.在一个窗体的代码中不能使用Unload语句来卸载本窗体，即一个窗体只能由其它窗

体卸载。（F）

43.当在一个简单组合框的文本框中输入一个它的列表框中的没有的条目时，组合框会

自动反这一条目添加到它的列表框中。（F）

44.当定时器控件的interval属性值设置为0时，会连续不断地激发Timer事件。（F）

45.如果一个菜单项的Visible属性为False,则它的子菜单也不会显示。（T）

三、填空题

1.如果要指明mystring为固定15个字长的全局变量，应该在标准模块中用以下说明

语句定义：___Publicmystringasstring*15

2.设X$=uabc123456”则“a"+str$（val（right（X$,4）））的值是a3456

3.拖动滚动条中的滚动框将会产生______Scroll、_Change

4.请写出清除以下对象内容的语句：

文本框Textl.text』"'窗体—Form1.Cis，列表框_

Listl.Clear，组合框___comboll.Clear

5.变量min@表示—货币数据变量类型的变量。

6.如果：1=11：J=3：l=int（-8.6）+l\J+13/3MOD5,则I值是_-2

7.请写出满足以下条件的VB表达式：0VX<10,X>0andx<10—。X为

[0-100]之间的数，能被2整除，但不能被3整除—x>=0andx<=100andxmod

2=0andxmod3<>0。

8.下列循环语句控制的循环次数为一0_

FORK=1TO10STEP-1

9.表达式1and0的值（False）。

10.设a=2,b=3,c=4,d=5,表达式（a>bXorb<c）ORb<dEQVavc的结果为

（True）。

11.a和b中有仅只有一个为1,相应的VisualBasic逻辑表达式为

（a=1xorb=1）。

12.设占5,则由下列循环语句控制的循环次数是（6）o

Do

l=l+2

LoopWhilel<=15

13.表达式32\7MOD3A2的值是(4)。

14.PrivateSubcmdSum_Click()

staticSumasinteger

Sum=2*Sum+1

EndSub

问：第三次单击命令按钮cmdSum后，Sum的值为：(7)。

15.欲定义一个定长为10的字符串变量Mystr,可写成：(DimMystrasString

*10)。

16.下列表达式返回的值为True还是FalseTrue。

9>4+3Or5+3>10AndNot(4+2>5EQV3+5>2)

17.按照数据文件的存储方法的不同，文件可以分为三种不同的类型：―顺序文件

随机文件和二进制文件。

18.下列循环语句控制的循环次数为—0o

FORK=1TO20STEP-2

19.VB表达式9人2MOD45\2*3的值4。

20.设x=2,y=4,a=4,b=6,表达式(a>xXorb<x)ORx<yIMPyvb的结果

为(True)»

21.a和b中有仅只有一个不为1,相应的VisualBasic逻辑表达式为(av>1xor

b<>1)o

22.当x=2时，语句ifx=2thenPrintx=2的结果值是(True)。

23.声明单精度常量g(重力加速度)代表9.8可写成：(constg=9.8)。

24.VB的工作模式可分为三种：“一设计—”运行_”以及“一中断

25.由Fork=35to0step3:nextk循环语句控制的循环次数是(0)=

26.想拥有“快捷键”这项功能，必须在“菜单编辑器”中增加一些特殊的设置，也就是在字

母之前加上—&

27.若要在字符串asdgewl中取dge,则使用函数—(Mid$(asdgewl$,2,3)实现。

28.设x为大于零的实数,则大于x的最小偶数的VisualBasic表达式是(iif(int(x)mod

2=0,int(x)+2,int(x)+1))

29.设x的初值为5,则由下列循环语句控制的循环次数是(1)o

DoWhilex>=5

x=x-1

Loop

在上程序中，若x的初值为-5,则循环次数为(0)

30.sst="ABC12DE”,则Val(sst)=(0)

四、程序阅读(假如所有的变量类型都已定义)

1.程序1

FORJ=10TO5step-2

K=J+1

IfK<6thenexitfor

NEXTJ

PRINTK；J

输出的结果_74—

2.程序2

A=1：l=0

SELECTCASEA*2

CASE1

A=A+1

CASE2

A=A+2

CASEELSE

A=A+3

ENDSELECT

A的值为_3—

3.程序4

C=lnputBox(“请输入字符串：”)

p="”

ForL=Len(c)To2Step-2

P=Mid(C,L-1,2)+P

NextL

PrintP

EndSub

如果输入：ABCDEFG,则结果：BCDEFG

4.程序4

DimYAsInteger

PrivateSubCommand_Click()

DimXAsInteger

X=1

Y=1

CallAA(Y+1)

Z=BB(X)

PrintX,Y,Z

EndSub

PrivateSubAA(ByValZAsInteger)

Y=Z+X

Z=X+Y

EndSub

PrivateFunctionBB(ByRefYAsInteger)

Y=Y+1

BB=X+Y

EndFunction结果：222

5.程序5

PrivateSubCommand1_Click()

DimSAsInteger,IAsInteger

S=0

ForI=1To10

IfZS(I)Then

IfI*2<=10Then

PrintStr(l*2)

S=S+1

日se

ExitFor

EndIf

EndIf

Next1

Prirt"S="&Str(S)

EndSub

PublicFunctionZS(ByVaiXAsInteger)ASBoolean

DimJAsInteger

J=2

DoWhileJ<X

IfInt(X/J)=X/JThenExitDo

J=J+1

Loop

IfJ=XThen

ZS=True

日se

ZS=False

EndIf

EndFunction结果：610S=3

6.程序6

PrivateSubForm_Click()

Dima1AsInteger,a2AsInteger

a1=10:a2=100

wua1,a2

print"a1=”;a1,“a2=”;a2

EndSub

PrivateSubwu(b1AsInteger,Byvalb2AsInteger)

b1=b1\2:b2=b2Mod13

print"b1=”;b1,“b2=”;b2

EndSub

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

结果为：b1=5b2=9

a1=5a2=100

7.程序7

PrivateSubForm_Click()

Dimkasinteger,sasinteger,jasinteger

Forml.cis

Fork=1to5

s=0

forj=kto5

s=s+1

nextj

nextk

Print"s=”,s

EndSub

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

结果为：s=1

1.程序8

DimaAsInteger

PrivateSubCommand1_Click()

StaticsAsInteger

Ifs<5Then

s=s+a

日se

s=s*a

EndIf

a=s

EndSub

PrivateSubForm_Load()

a=5

EndSub

当连续按三次Commandl按钮后，s的值____625

2.程序9

PrivateSubForm_Click()

Fori=1To7

PrintSpc(7-i);

Ifi=1Then

Print…

Else

PrintSpc(2*(i-1)-1);

EndIf

Nexti

EndSub

以上程序的输出结果：(32)

3.程序10

PrivateSubForm_Click()

Dimstr1,str2AsString

DimsAsString

DimiAsInteger

str1="abcdefghijk”

Fori=Len(str1)To1Step-2

str2=str2&Mid(str1,i,1)

Nexti

EndSub

以上程序运行完成以后，str2的值为kigeca

4.程序11

DimYAsInteger

PrivateStubCommand_Click()

DimXAsInteger

X=1

Y=1

CallAA(Y+1)

Z=BB(X)

PrintX,Y,Z

EndSub

PrivateSubAA(ByValZAsInteger)

Y=Z+X

Z=X+Y

EndSub

PrivateFunctionBB(ByRefYAsInteger)

Y=Y+1

BB=X+Y

EndFunction结果：222

5.程序12

privatesubForm_click()

N=3

DimA(3,3)AsInteger

ForI=IToN

ForJ=IToN

A(l,J)=(J-I)*N+I

NextJ

NextI

ForI=2ToN

ForJ=1ToI-1

TEMP=A(l,J)

A(l,J)=A(J,I)

A(J,I)=TEMP

NextJ

NextI

ForX=1ToN

PrintX,A(X,N+X-I),A(X,X)

NextX

EndSub结果：104

278

6.程序13

PrivateSubCommand1_Click()

N=0:x=1:y=0

DoWhilex<20

n=n+1

y=x+y

x=X*(x+1)

Loop

Textl.Text=Hn="&Stp)

Text2.Text="x=M&Str(x)

Text3.Text=Hy="&Str(y)

EndSub

结果为：n=3x=42y=9

7.程序14

PrivateSubForm_Click()

DimaAsInteger,bAsInteger,zAsInteger

a=1

b=1

Forn=1To3

z=chg(a,b)

Forml.Printun=";n,"z=n,z

Nextn

EndSub

Functionchg(aAsInteger,bAsInteger)AsInteger

DimnAsInteger

Forn=0To2

a=a4-b

Nextn

chg=a

EndFunction

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

n=1z=4

n=2z=7

n=3z=10

1.程序15

PrivateSubForm_Click()

Dimx(5)AsInteger

x(1)=8

x(2)=3

Forj=i+1To5

Ifx(i)<x(j)Thent=x(i):x(i)=x(j):x(j)=t

Nextj,i

Fork=1To5

Forml.PrintHx(";k;”)="；x(k)

Nextk

EndSub

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

x(1)=8

x(2)=6

x(3)=4

x(4)=3

x(5)=1

五、程序填空

1.以下程序是单击命令按钮，将用户在组合框中输入的某一值，与组合框其他项进行

比较，如有相同，则将相同表项删除，其他项，则不动。

PrivateSubcommand1_click()

DimaAsString,IAsInteger

A$=Trim(Combo1.Text)

Ifao,n,Then

forl=0toCombol.ListCount-1

IfCombol.List(i)=aThenCombol.Removeitemi

NextI

EndIf

Combol.SetFocus

EndSub

2.下列程序用于对输入的x和n的值，进行计算

S=X/2!-X2/3!+x3/4!-x4/5!+.…+(-1)n-1xn/(n+1)!

PrivatefunctionFs(byvalxassingle.byvalnasinteger)assingle

Dimsumassingle

Dimremultiplyaslong

DimIasinteger

Sum=0

Remultiply=___I

1=1

Dountill>n

Remultiply=remultiply*I

Sum=sum4-remultiply

_____1=1+1_________

_loop

___Fs=sum

Endfunction

3.输入三个数，由大到小排序

DimAAsInteger

DimBAsInteger

DimCAsInteger

PrivateSubForm_Click()

DimnTempAsInteger

A=Vai(InputBox(MPleaseinputfirstinteger“，”输入正整数”))

B=Val(lnputBox("Pleaseinputsecondinteger“，”输入正整数”))

C=Vai(InputBox(MPleaseinputthirdinteger"，”输入正整数”))

IfA<=BThen

nTemp=A:A=B:B=nTemp

EndIf

IfA<=CThen

nTemp=A:A=C:C=nTemp

EndIf

IfB<=CThen

nTemp=B:B=C:C=nTemp

EndIf

Print"Theintegersinorderis";A;B;C

EndSub

1.歌德巴赫猜想:任何一个大于或等于六的偶数都可以分解成两个素数之和.

PrivateSubCommand1_Click()

DimiAsInteger,jAsInteger,kAsInteger,mAsInteger

DimnAsInteger,mlAsInteger,m2AsInteger,num

num=val(inputbox(“请输入要验证的整数范围最大值(MAX)”))

Fori=6TonumStep2

Forj=3Toi

k=(lnt(Sqr(j)))

Form=2Tok

IfjModm=0Then(ExitFor)

Nextm

Ifm>kThen

n=i-j

ml=(lnt(Sqr(n)))

Form2=2Toml

IfnModm2=0Then(Exitfor)

Nextm2

If(m2>ml)ThenPrinti;“="；j;"+“；n;,

EndIf

Nextj

Print

Nexti

EndSub

2.从计算机输入三个数，找出中间数

PrivateSubFindMidNum()

X=INPUTBOXCPLEASEINPUTTHEFIRSTNUMBER")

Y=INPUTBOX(TLEASEINPUTTHESECONDNUMBER)

Z=INPUTBOX(UPLESSEINPUTTHETHIRDNUMBER)

IF(X<Y)THEN

A=X

X=Y

Y=A

ENDIF

IF(Y>=Z)THEN

PRINTY

ELSEIF(X>=Z)THEN

PRINTZ

ELSE

PRINTX

ENDIF

EndSub

3.［程序说明］

由输入对话框输入n(设n为大于零且小于30的自然数)，计算下列表达式的值,

并在标签框Labell上显示。

［程序］

PrivateSubForm_Click()

DimnAsInteger,sumasDouble,kAsInteger

n=Val(lnputBox(“n="，”请输入自然数n(n>0且n<30)n))

Do(Whilen<=0orn>=30)

n=val(lnputBox(“n="，”请重输入”))

Loop

Sum=0

(k=0)

do

k=k+1

sum=(sum+1/(k*(k+1)))

LoopUntilk>=n

Labell.Caption=,,Sum=,,+Str(sum)

EndSub

收礼盒

分享

应用程序

公共主页

人人生活

人人小组

同名同姓

人人中学

大学百科

人人热点

缈A幅

注册

登录

帮助

给我们提建议

更多

海大临时抱佛脚

听说，你们VB考的不错，听说你们VB掐过，听说胡西川这回放水很厉害，。。。。。。。.

2012-01-08

全部人人公共主页

公共主页

资料

状态

相册

日志

分享

上一篇下一篇共36篇

[VB]VB题库选择，填空，判断2012年01月11日15:22:38

一、判断共10题（共计10分）

第1题Shape控件和Line控件可以在窗体中移动,因此它们具有Move方法.答案：N

第2题VisualBasic程序的运行可以从Main。过程启动，也可以从某个窗体启动.答案：Y

第3题图片框的属性Enabled设置为FALSE,图片框上的控件仍可响应用户操作.答案：

N

第4题若已在窗体中加入了一个通用对话框:要求在运行时，通过ShowOpen打开对话框时,

只显示扩展名为DOC的文件，则对通用对话框的Filter的属性设置应该是:"（*.DOC）|

（.DOC）".N

第5题设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字.答案：Y

第6题清除listl列表框对象的内容的语句是listl.cls.答案：N

第7题图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会

改变该图片框有关属性的值.答案：N

第8题当窗体的ScaleTop=0,ScaleLeft=0时，这个窗体Top和Left值也是0.答案：N

第9题框架控件和形状控件都不能响应用户的鼠标的单击事件.答案：Y

第10题通用对话框只能用SHOW方法进行调用.答案：N

二、单项选择共10题(共计10分)

第1题用户可以通过设置菜单项的0属性值为FALSE来使该菜单项不可见.

A:HideB:CheckedC:VisibleD:Enabled答案：C

第2题定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.

A:分B:秒C:毫秒D:微秒答案：C

第3题要在图片框P1中打印字符串"HowAreYou"，应使用语句

A:Picture1.Print-'HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")

C:P1.Print"HowAreYou"D:Print"HowAreYou"答案：C

第4题下列关于设置控件属性的叙述正确的是().

A:用户必须设置属性值B:所有的属性值都可以由用户随意设定

C:属性值不必一一重新设置D:不同控件的属性项都完全一样答案：C

第5题启动VisualBasic后,系统为用户新建的工程起一个名为()的临时名称.

A:工程1B:窗体1C:工程D:窗体答案：A

第6题设a=10,b=5,c=l,执行语句Printa>b>c后，窗体上显示的是().

A:TrueB:FalseC:1D:出错信息答案：B

第7题MSGBOX函数中有4个参数，其中必须写明的参数是0.

A:指定对话框中显示按钮的数目B:设置对话框标题C:提示信息D:所有参数都是可选的

C

第8题应用程序设计完成后，应将程序保存,保存的过程是().

A:只保存窗体文件即可B:只保存工程文件即可C:先保存工程文件，之后保存窗体文件

D:先保存窗体文件(或标准模块文件)，之后还要保存工程文件答案：D

第9题改变控件在窗体中的左右位置应修改该控件的()属性.

A:TopB:LeftC:WidthD:Right答案：B

第10题VB认为下面0组变量是同一个变量.

A:A1和alB:SUM和SUMMARYC:AVERAVERAGED:A1和A_1答案：A

三、程序填空共3题(共计30分)

第1题，【程序填空】

'功能：以下程序的功能如(图l)o

PrivateSubForm_Click（）

Dima%,b%,c%,d!

Dimxl,x2

Dimp,q,r

a=InputBox（"请输入a的值"）

b=InputBox（"请输入b的值”）

c=InputBox（"请输入c的值"）

d=b*b-4*a*c

p=-b/(2*a)

Ifd>=0Then

t**********SPACE**********

If[?]Then

r=Sqr(d)/(2*a)

xl=p+r

x2=p-r

Else

xl=p

x2=p

，**********SPACE**********

[?]

Printnxl=";xl,Hx2=n;x2

，**********SPACE**********

r>i

q=Sqr(-d)/(2*a)

Printnxl=H;p;”+”；q;”in,nx2=";p;”・“；q;”i

EndIf

EndSub

答案：1).d>0或Ovd2).EndIf3).Else

第2题'【程序填空】

，功能：完成程序，使程序输出值为15

PrivateSubCommandl_Click()

，**********Sp/^CE**********

Dimi,j,x,[?]AsInteger

Fori=1To4

x=4

Forj=1To3

x=3

，**********SPACE**********

For[?]=1To2

，**********SPACE**********

x=x+[?]

Nextk

Nextj

Nexti

Printx

EndSub

答案：l).k2).k3).6

第3题，【程序填空】

'功能：用输入对话框输入x,根据如图公式计算对应的y,

’在窗体上输出y的值。

PrivateSubCommand1_Click()

，**********SPACE**********

DimxAsSingle,[?]AsSingle

，**********Sp^cE**********

x=Val([?](”Pleaseinputx,n输入X的值”))

Ifx=10Then

**********SPACE**********

[?]

Elselfx>10Then

，**********SPACE**********

y=Sqr(x)

Else

y=2*xA3+6

EndIf

Printy

EndSub

答案：1).y2).InputBox3).y=04).+Sin(x)

四、程序改错共3题(共计30分)

第1题，【程序改错】

题目:设窗体中有图片框Piel,现要求在其中绘制10个同心圆,

1然后将此图以Test.BMP作文件名存入磁盘。

OptionExplicit

PrivateSubCommandl_Click()

DimXAsInteger

DimYAsInteger

DimIAsInteger

Dimrad(9)AsInteger

X=Picl.ScaleWidth/2

Y=Picl.ScaleHeight/2

，**********FOUND**********

ForI=1To9

rad(I)=500*Rnd

NextI

1=9

，*******************

DoUntilI<1

Piel.Circle(X,Y),rad(I),RGB(256*Rnd,256*Rnd,256*Rnd)

，**********FOUND**********

1=1+1

Loop

SavePicturePiel.Image,MTest.BMP"

EndSub

答案：1).fbri=0to9或fori=0to9step1

2).DoUntilI<0dountil0>i

3).I=I-1或i=-l+i

第2题，【程序改错】

题目：从计算机输入三个数，找出中间数

OptionExplicit

PrivateSubFindMidNum()

DimxAsInteger,yAsInteger,zAsInteger,AAsInteger

x=InputBox(nPLEASEINPUTTHEFIRSTNUMBER")

y=InputBox(nPLEASEINPUTTHESECONDNUMBER11)

z=InputBox(uPLESSEINPUTTHETHIRDNUMBER”)

,**********FOUJSQD**********

Ifx>yThen

A=x

x=y

y=A

EndIf

，**********FOU^JD**********

Ify=zThen

Printy

i**********FOUND**********

Elselfx=zThen

Printz

Else

Printx

EndIf

EndSub

PrivateSubForm_Click()

FindMidNum

EndSub

答案：1).Ifx<yThen或Ify>xThen

2).Ify>=zThen或Ifzv=yThen

3).Elselfx>=zThen或Elselfz<=xThen

第3题，【程序改错】

题目：输出40以内能够被3整除的数，要求输出结果为5

1个数一行。

OptionExplicit

PrivateSubForm_Click()

Cis

DimxAsInteger

DimiAsInteger

，**********FOUND**********

i=1

Forx=1To40

If(x/3)=(x\3)Then

Printx

i=i+1

EndIf

，**********FOUND**********

IfiMod3=0Then

Print

EndIf

Nextx

EndSub

答案：1）.i=02）.Printx;3）.ifimod5=0then

五、程序设计共2题（共计20分）

第1题'【程序设计】

，题目：编写函数fun其功能是：根据整型形参m,计算如下公式的

值:y=l/5+l/6+l/7+l/8+l/9+l/10...+l/（m+5）例如：若m=9,则应输出：1.168229'要求：函数中

用到的中间变量必须声明为Single类型。

答案：-------------

DimyAsDouble

DimiAsInteger

Fori=0Tom

y=y+1/(i+5)

Next

Fun=y

第2题（10.0分）题号:488

U程序设计】

'题目：（事件）单击窗体。（响应）己知sum=l/2!-l/4!+1/6!-l/8!+l/10!,请将sum结果值输出到

窗体上。使用dowhile...loop语句完成程序

答案：---------------

DimiAsInteger

DimnAsInteger

i=1

P=1

DoWhilei<=10

P=P*i

IfiMod2=0Then

n=n+1

sum=sum+(-1)A(n-1)/p

EndIf

i=i+1

Loop

Printsum

一、判断共10题(共计10分)

第1题所有的对象都有caption属性.答案：N

第2题事件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用.答案：N

第3题当定时器控件的interval属性值设置为0时，会连续不断地激发Timer事件.答案：N

第4题当需要在同一窗体中建立几组相互独立的单选钮时，就要用框架将每一组单选钮框起

来.答案：Y

第5题在窗体模块的声明部分中用Private声明的变量的有效范围是其所在的工程.答案：

N

第6题VisualBasic程序的运行可以从Main。过程启动，也可以从某个窗体启动.答案：Y

第7题VB允许设计和使用用户自己设计的控件.答案：Y

第8题在VB中，可以将在Picture控件中绘制的图形以文件的形式保存在磁盘上.答案：Y

第9题Function函数有参数传递,并且一定有返回值.答案：N

第10题在VB的工具栏中包括了所有的VB控件，我们不能再加载其他的控件.答案：N

置顶

二、单项选择共10题(共计10分)

第1题代数式*1-间+皿0+5出仪2+2”)/««(570)对应的丫1$皿e25元表达式是0.

A:Xl-Abs(A)+Log(l0)+Sin(X2+2*3.14)/Cos(57*3.14/l80)

B:X1-Abs(A)+Log(l0)+Sin(X2+2*^)/Cos(57*3.14/180)

C:Xl-Abs(A)+Log(l0)+Sin(X2+2*3.14)/Cos(57)

D:X1-Abs(A)+Log(10)+Sin(X2+2*^)/Cos(57)答案：A

第2题设计动画通常使用时钟控件()来控制动画速度.

A:EnabledB:IntervalC:TimerD:Move答案：B

第3