VB课后习题答案汇总.docx

VB课后习题答案汇总.docx

《VB课后习题答案汇总.docx》由会员分享，可在线阅读，更多相关《VB课后习题答案汇总.docx（39页珍藏版）》请在冰豆网上搜索。

VB课后习题答案汇总

课后习题参考答案

第1章VisualBasic6.0

一、判断题

1－－5：

√×√×√6――10：

××√×√11――13：

√××

二、选择题

1――5：

ADBBB6――10：

.CACDB

三、填空题

1、图片框和框架

2、对象

3、控件屏幕

4、Load

5、LoadActivate

四、程序设计题

1、

PrivateSubCommand1_Click（）

PrintText1.Text

EndSub

PrivateSubCommand2_Click（）

End

EndSub

2、

PrivateSubCommand1_Click（）

Form1.FontSize=Form1.FontSize+3

Print"青春无悔"

EndSub

PrivateSubCommand2_Click（）

FontSize=FontSize-3

Print"青春无悔"

EndSub

PrivateSubCommand3_Click（）

Form1.FontBold=True

Print"青春无悔"

EndSub

PrivateSubCommand4_Click（）

FontBold=False

Print"青春无悔"

EndSub

3、

PrivateSubCommand1_Click（）

Text1.Visible=False

EndSub

PrivateSubCommand2_Click（）

Text1.Visible=True

Text1.FontName="楷体_gb2312"

Text1.FontSize=15

Text1.Text="我学会了创建一个应用程序了！

"

EndSub

第二章

判断题：

1~5

错错错错错

第3章顺序结构程序设计

一、思考题略

二、程序阅读题

1．A=2B=1C=2

2．12

3．BABCBACBC

4．12False

5．1-12-123-1234-

三、选择题

1.B2.D3.B4.B5.D6.C

四、程序设计题

１．

Privatesubform_click（）

Dimr!

s!

R=val（inputbox（“r=”））

S=3.14159*r*r

Print“s=”;s

Endsub

2．

Privatesubform_click（）

　Dimxassingle

X=val（inputbox（“x=”））

Printfix（x*x*1000）/1000,fix（sqr（x）*1000）/1000

Endsub

第4章选择结构程序设计

一、判断题

1.错2.错3.错4.错5.对

二、选择题

1．A2.D3.A4.B5.A6.A

三、程序阅读题

1．

X=3y=7

2.

w=4

w=13

w=135

w=31

3.

X_`a12Uvw&

4.

129

四、程序填空题

1．

（1）chr（keyascii）

（2）chr（keyascii）=”）”（3）count1=count1-1（4）count1=0

（5）count1>0

2．

（1）max

（2）min（3）c>max（4）c

3.

（1）xmod3=2andxmod5=3andxmod7=4then

（2）text1.setfocus（3）text1.selstrat=0（4）text1.sellength=len（text1.text）

五、

1.

PrivateSubCommand1_Click（）

DimyAsInteger

y=Val（InputBox（"y="））

If（yMod4=0AndyMod100<>0）Or（yMod400=0）Then

Print"是闰年"

Else

Print"不是闰年"

EndIf

EndSub

PrivateSubCommand1_Click（）

DimyAsInteger,y1asstring

y=Val（InputBox（"y="））

If（yMod4=0AndyMod100<>0）Or（yMod400=0）Then

Y1="是闰年"

Else

Y1="不是闰年"

EndIf

?

y,y1

EndSub

PrivateSubCommand1_Click（）

DimyAsInteger,y1asstring

y=Val（InputBox（"y="））

Y1="不是闰年"

If（yMod4=0AndyMod100<>0）Or（yMod400=0）Then

Y1="是闰年"

EndIf

?

y,y1

EndSub

2.

PrivateSubCommand1_Click（）

Dima%,b%,c%,x!

s!

a=Val（InputBox（"a="））

b=Val（InputBox（"b="））

c=Val（InputBox（"c="））

Ifa+b>cAnda+c>bAndb+c>aThen

x=（a+b+c）/2

s=Sqr（x*（x-a）*（x-b）*（x-c））

Print"s=";s

Else

Print"不是三角形,重输a,b,c"

EndIf

EndSub

PrivateSubCommand1_Click（）

Dima%,b%,c%,x!

s!

t%

a=Val（InputBox（"a="））

b=Val（InputBox（"b="））

c=Val（InputBox（"c="））‘a,b,c=3,4,5

t=0

Ifa+b>cAnda+c>bAndb+c>aThen

x=（a+b+c）/2

s=Sqr（x*（x-a）*（x-b）*（x-c））

t=1

EndIf

Ift=0then

?

“不是“

endif

EndSub

3.

PrivateSubCommand1_Click（）

Dimx!

y!

x=Val（InputBox（"x="））

y=x*x-x–x

Ifx<0Andx<>-3Then

y=x*x+x-6

ElseIf0<=xAndx<10Andx<>2Andx<>3Then

y=x*x-5*x+6

EndIf

Print"x=";x,"y=";y

EndSub

PrivateSubCommand1_Click（）

Dimx!

y!

x=Val（InputBox（"x="））

Ifx<0Andx<>-3Then

y=x*x+x–6

elseIf0<=xAndx<10Andx<>2Andx<>3Then

y=x*x-5*x+6

else

y=x^2-x-1

EndIf

Print"x=";x,"y=";y

EndSub

Privatesubform_click（）

Dimy%,z%,dj%,p!

t!

Y=val（inputbox（“月”））

Z=val（inputbox（“订票数”））

Dj=val（inputbox（“票价”））

Selectcasey

case7,8,9

Ifz>=20thenp=0.15elsep=0.05

case1to5,10,11

Ifz>20thenp=0.3elsep=0.2

Caseelse

P=0.2

Endselect

T=z*dj*p

?

t

endsub

5.

privatesubform_click（）

dimm1%,m2%,m3%,dj$

m1=val（inputbox（“m1=”））:

m2=val（inputbox（“m2=”））:

m3=val（inputbox（“m3=”））

if（m1+m2+m3）/3>=95or（a=100andb=100andc>=80）or（a=100andc=100andb>=80）or（c=100andb=100anda>=80）then

dj=”一等”

elseif（m1+m2+m3）/3>=90or（a=100andb>=75andc>=75）or（b=100anda>=75andc>=75）or（c=100andb>=75anda>=75）then

dj=”二等”

elseifa>=75andb>=75andc>=75then

dj=”三等”

else

dj=”没有”

endif

?

“dj=”;dj

endsub

第5章循环结构程序设计

1．判断题

×√√√××√×

2．选择题

BBBBCC

3.填空题

（1）7

（2）Do/LoopFor/NextWhile/Wend

（3）-36

4.程序阅读题

1234

Sum=10

88

6886

（1）

（2）

######

#####

####

###

##

#

（3）4（4）

5．程序填空题

（1）①sign=1②Fori=2to19

（2）①Len（str1）②length-1③Mid（str1,i,2）④Sum=0

（3）①Imod7=5andiMod5=3AndiMod3=2②i<1000

（4）①last_one=last_two②last_two=this_one③i=i+1④i-2

（5）①I>int（sqr（m））②Int（Sqr（n-m））

6．编程题

（1）

PrivateSubForm_Click（）

DimiAsInteger,jAsInteger

DimsAsDouble,SumAsDouble

s=1

Sum=0

Fori=1To11Step2

Forj=1Toi

s=s*j

Nextj

Sum=Sum+s

Nexti

PrintSum

EndSub

（2）

PrivateSubForm_Click（）

Dimm%,n%,mn%,r%,t%

m=Val（InputBox（"m="））

n=Val（InputBox（"n="））

Ifn<=0Orm<=0Then

MsgBox"数据有误"

End

EndIf

mn=m*n

Ifm

t=m:

m=n:

n=t

EndIf

DoWhile（n<>0）

r=mModn:

m=n:

n=r

Loop

Form1.Print"最大公约数=";m

Form1.Print"最小公倍数=";mn/m

EndSub

（3）

PrivateSubForm_Click（）

Dimi%,j%

Fori=1To5

PrintSpc（20-i）;

Forj=1To2*i-1

PrintTrim（Str（i））;

Nextj

Print

Nexti

Fori=4To1Step-1

PrintSpc（20-i）;

Forj=1To2*i-1

PrintTrim（Str（10-i））;

Nextj

Print

Nexti

EndSub

（4）

PrivateSubForm_Click（）

DimxAsInteger

DimyAsInteger

DimzAsInteger

Forx=0To100

Fory=0To100-x

z=100-x-y

If5*x+3*y+z/3=100ThenPrintx,y,z

Nexty

Nextx

EndSub

（5）

PrivateSubForm_Click（）

DimxAsSingle,yAsSingle,aAsSingle,iAsInteger

x=Val（InputBox（"输入x:

"））

a=1:

y=a:

i=0

Whilea>=0.00001

i=i+1:

a=a*x/i:

y=y+a

Wend

Print"y=";y

EndSub

第六章答案

一、判断题

1．错

2．错

3．错

4．错（可以为小数，不过仍然是当作整数来处理）

5．错

6．错

二、选择题

1．C

2．C

3．A

4．D

三、程序填空

1．

（1）N-1

（2）T=A（J）:

A（J）=A（J+1）:

A（J+1）=T（3）PrintA（I）

2．

（1）a（i,j）=1

（2）Print

四、程序阅读

1．5

2．

1234

1234

1234

1234

1111

2222

3333

4444

3．（前面空4个空格）

1121110

213169

314158

4567

第7章过程

判断题：

1、对2、错3、错4、错5、对6、对7、错

选择题：

1．B2、D3、D4、C5、A

程序阅读题：

1、y=5a=52、n=1z=4

y=15a=10n=2z=7

y=30a=15n=3z=10

3、32644、222

1664

864

464

5、A1=10B1=20

A2=20B2=10

程序填空题：

1、

（1）hwstring（str）

（2）""（3）AsBoolean

（4）n=len（strtxt）（5）True（6）False

2．

（1）Xsch（Nman,Nkcen）

（2）n

（3）sum=sum+x（i,j）（4）tt/n（5）x（i,m+1）<1.2*verandx（i,m+1）>=1.1*ver

3．

（1）number（i）

（2）ByvalnasInteger（3）number=number+7*10^（i-1）

4．

（1）temp=1

（2）temp（3）nFactor（i）（4）sum

程序设计题：

1、具体程序为：

FunctionMaxnum（ByRefa（）AsInteger,ByValnAsInteger）AsInteger

DimiAsInteger

Maxnum=a

（1）

Fori=2Ton

Ifa（i）>MaxnumThenMaxnum=a（i）

Nexti

EndFunction

FunctionAvenu（ByRefa（）AsInteger,ByValnAsInteger）AsSingle

DimiAsInteger,sumAsInteger

Fori=1Ton

sum=sum+a（i）

Nexti

Avenu=sum/n

EndFunction

SubSortrnum（ByRefa（）AsInteger,ByValnAsInteger）

DimiAsInteger,jAsInteger,kAsInteger

DimtempAsInteger

Fori=1Ton

k=i

Forj=i+1Ton

Ifa（k）>a（j）Thenk=j

Nextj

Ifi<>kThen

temp=a（i）

a（i）=a（k）

a（k）=temp

EndIf

Nexti

EndSub

PrivateSubForm_Click（）

Dimb（10）AsInteger,iAsInteger

Fori=1To10

b（i）=InputBox（"请输入整数","输入"）

Nexti

CallSortrnum（b（）,10）

Print"从小到大排序为：

"

Fori=1To10

Printb（i）;

Next

Print

Print"最大数为：

";Maxnum（b（）,10）

Print"平均数为：

";Avenu（b（）,10）

EndSub

2、具体程序为：

Functionfe（n%,x!

）AsSingle

DimtempAsSingle,iAsInteger

fe=1

temp=1

Fori=1Ton

temp=temp*x/i

fe=fe+temp

Nexti

EndFunction

PrivateSubForm_Click（）

DimnAsInteger,xAsSingle

n=Val（InputBox（"请输入n","输入"））

x=Val（InputBox（"请输入x","输入"））

Print"e的值为：

";fe（n,x）

EndSub

3、具体程序为：

Subsort（a（）AsSingle,nAsInteger）

DimiAsInteger,jAsInteger,kAsInteger

DimtempAsSingle

Fori=1Ton

k=i

Forj=i+1Ton

Ifa（k）

Nextj

Ifi<>kThen

temp=a（i）

a（i）=a（k）

a（k）=temp

EndIf

Nexti

EndSub

PrivateSubForm_Click（）

Dima（10）AsSingle,iAsInteger

Fori=1To10

a（i）=Val（InputBox（"请输入数据","输入"））

Nexti

Callsort（a（）,10）

Print"从大到小为：

"

Fori=1To10

Printa（i）;

IfiMod5=0ThenPrint

Nexti

EndSub

第8章常用控件

参考答案：

一、判断题

1、×2、×3、√4、√5、×6、×7、×8、×9、×10、×

11、×12、√13、×14、√15、√

二、单选题

1、A2、B3、A4、C5、B6、D7、A8、B9、C10、C

11、A12、A13、C14、B15、A

三、填空题

1、AutosizeWordWrap2、EnabledVisible3、文本框和列表框

4、拖动滚动框5、Change6、Command1.Setfocus7、Timer

8、MaxLength9、AddItem10、定时器屏蔽

四、程序阅读题

w=4

w=13

w=135

w=31

1、2、

23451

34512

李子

苹果

橘子

葡萄

柚子

香蕉

3、4、

6

15

28

45

5.

五、程序填空题

1、

（1）Label1.left

（2）–Label1.Width

2、

（1）List1.ListIndex<0（或者List1.ListIndex=-1）

（2）List1.RemoveItemList1.ListIndex

（3）Text1.Text=””（4）List1.AddItemText1.Text

3、

（1）1to2*I-1

（2）Command2.Enabled=True

（3）Command2.Enabled=False

4、

（1）ndec<>0

（2）ndecmod16（3）ai=ndec

（4）end（5）ai&shex（6）shex

5、

（1）Timer1.Enabled=True

（2）x\3600（3）（x-h*3600）\60

（4）x=x+1

6、

（1）m

（2）mid（str1,m+1,1）（3）mid（str1,len（str1）-m,1）

六、程序设计题

1、PrivateSubCommand1_Click（）

IfText1.Text=""Then

MsgBox"请先输入添加项"

Else

List1.AddItemText1.Text

EndIf

EndSub

PrivateSubCommand2_Click（）

IfList1.ListIndex<0Then‘或者iflist1.listindex=-1then

MsgBox"请选择一删除项"

Else

List1.RemoveItemList1.ListIndex

EndIf

EndSub

PrivateSubCommand3_Click（）

IfList1.ListIndex<0Then

MsgBox"请选择一修改项"

Else

Text1.Text=List1.Text

EndIf

Command4.Enabled=True

EndSub

PrivateSubCommand4_Cli