VB课后习题答案汇总

课后习题参考答案

第1章VisualBasic6.0

一、判断题

1——5：VXVXV6——10：XXJXJ11——13：VXX

二、选择题

1——5：ADBBB6——10：.CACDB

三、填空题

1、图片框和框架

2、对象

3、控件屏幕

4、Load

5、LoadActivate

四、程序设计题

1、

PrivateSubCommandl_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()

Forml.FontBold=True

Print"青春无悔”

EndSub

PrivateSubCommand4_Click()

FontBold=False

Print"青春无悔”

EndSub

3、

PrivateSubCommandl_Click()

Text1.Visible=False

EndSub

PrivateSubCommand2_Click()

Text1.Visible=True

Textl.FontName二"楷体_gb2312”

Text1.FontSize=15

Textl.Text="我学会了创建•个应用程序了！”

EndSub

第二章

判断题：1〜5

错错错错错

第3章顺序结构程序设计

一、思考题略

二、程序阅读题

1.A=2B=1C=2

2.12

3.BABCBACBC

4.12False

5.1-12-123-1234-

三、选择题

LB2,D3.B4.B5.D6.C

四、程序设计题

1.

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.

XJal2Uvw&

4.

129

四、程序填空题

1.

(1)chr(keyascii)(2)chr(keyascii)=,,)M(3)countl=countl-1(4)countl=0

(5)countl>0

2.

(1)max(2)min(3)c>max(4)c<min

3.

(1)xmod3=2andxmod5=3andxmod7=4then

(2)text1.setfocus(3)textl.selstrat=O(4)text1.sellength=len(text1.text)

五、

1.

PrivateSubCommandI_Click()

DimyAsInteger

y=Val(InputBox(ny="))

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，yi

EndSub

PrivateSubCommandl_Click()

DimyAsInteger,ylasstring

y=Val(InputBox(ny=H))

Yl二"不是闰年”

If(yMod4=0AndyMod100<>0)Or(yMod400=0)Then

Yl二”是闰年”

EndIf

?y，yi

EndSub

PrivateSubCommandl_Click()

Dima%,b%»c%,x!,s!

a=Val(InputBox(na=H))

b=Val(InputBox(nb="))

c=Val(InputBox(nc=n))

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

x=(a+b+c)/2

s=Sqr(x*(x-a)*(x-b)*(x-c))

Print"s=H;s

Else

Prim”不是三角形，重输a,b,cH

EndIf

EndSub

PrivateSubCommand1_Click()

Dima%,b%,c%,x!,s!,t%

a=Val(InputBox(Ha=u))

b=Val(InputBox(ub=n))

c=Val(InputBox("c="))4a,b,c=3,4,5

t=0

Ila+b>cAnda+c>bAndb+c>aThen

x=(a+b+c)/2

s=Sqr(x*(x-a)*(x-b)*(x-c))

t=l

EndIf

Ift=0then

?”不是“

endif

EndSub

PrivateSubCommandl_Click()

Dimx!,y!

x=Val(InputBox(,,x=n))

y=x*x-x-x

Ifx<0Andx<>-3Then

y=x*x+x-6

Elself0<=xAndx<10Andx<>2Andxo3Then

y=x*x-5*x+6

EndIf

Print"x="；x,"y=n;y

EndSub

PrivateSubCommandl_Click()

Dimx!,y!

x=Val(InputBox(Hx=n))

Ifx<0Andx<>-3Then

y=x*x+x-6

elself0<=xAndx<10Andxo2Andx<>3Then

y=x*x-5*x+6

else

y=xA2-x-l

EndIf

Print"x=";x,ny=n;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("ml=n)):m2=val(inputbox("m2=")):m3=val(inputbox(um3=,))

if(m1+m2+m3)/3>=95or(a=100andb=100andc>=80)or(a=100andc=100andb>=80)or(c=100

andb=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

可二，，没有，，

endif

?“dj，dj

endsub

第5章循环结构程序设计

1.判断题

XVVVXXVX

2.选择题

BBBBCC

3.填空题

(1)7

(2)Do/LoopFor/NextWhile/Wend

(3)-36

4.程序阅读题

(1)88⑵1234

6886Sum=10

468864

24688642

(3)4######

#####

####

###

##

#

5.程序填空题

(1)①sign=l②Fori=2to19

(2)①Len(strl)②length-1③Mid(strl,i,2)(4)Sum=0

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

(4)®last_one=last_two(2)last_two=this_one@i=i+l@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=IToi

s=s*j

Nextj

Sum=Sum+s

Nexti

PrintSum

EndSub

(2)

PrivateSubForm_Click()

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

m=Val(InputBox("m=u))

n=Val(InputBox(nn=n))

Ifn<=0Orm<=0Then

MsgBox”数据有误”

End

EndIf

mn=m*n

Ifm<nThen

t=m:m=n:n=t

EndIf

DoWhile(no0)

r=mModn:m=n:n=r

Loop

Forml.Print”最大公约数二”;m

Forml.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+l:a=a*x/i:y=y+a

Wend

Printuy=u;y

EndSub

第六章答案

一、判断题

1.错

2.错

3.错

4.错(可以为小数，不过仍然是当作整数来处理)

5.错

6.错

二、选择题

1.C

2.C

3.A

4.D

三、程序填空

1.(1)N4(2)T=A(J):A(J)=A(J+1):A(J+A=T(3)PrintA⑴

2.(1)a(i,i)=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、Al=10Bl=20

A2=20B2=10

程序填空题：

1>(1)hwstring(str)(2),,n(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)v1.2*venandx(i,m+1)>=LI*ver

3.(1)number(i)(2)ByvalnasInlcgcr(3)number=number+7*10八(i-1)

4.(1)temp=l(2)4mp(3)nFactoKi)(4)sum

程序设计题：

1、具体程序为：

FunctionMaxnum(ByRefa()AsInteger,ByVainAsInteger)AsInteger

DimiAsInteger

Maxnum=a(l)

Fori=2Ton

Ifa(i)>MaxnumThenMaxnum=a(i)

Nexti

EndFunction

FunctionAvenu(ByRefa()AsInteger,ByVainAsInteger)AsSingle

DimiAsInteger,sumAsInteger

Fori=1Ton

sum=sum+a(i)

Nexti

Avenu=sum/n

EndFunction

SubSortrnum(ByRefa()AsInteger,ByVainAsInteger)

DimiAsInteger,jAsInteger,kAsInteger

DimtempAsInteger

Fori=1Ton

k=i

Forj=i+1Ton

Ifa(k)>a(j)Thenk=j

Nextj

IfiokThen

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("请输入输入”))

Print”e的值为：H;fe(n,x)

EndSub

3、具体程序为：

Subsort(a()AsSingle,nAsInteger)

DimiAsInteger,jAsInteger,kAsInteger

DimtempAsSingle

Fori=1Ton

k=i

Forj=i+1Ton

Ifa(k)<a(j)Thenk=j

Nextj

IfiokThen

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、X2、X3、J4、J5、X6、X7、X8、义9、X10、X

11、X12、V13、X14、V15、V

二、单选题

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

IkA12、A13、C14、B15、A

三、填空题

1>AutosizeWordwrap2、EnabledVisible3、文本框和列表框

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

8、MaxLength9>Addltem10、定时器屏蔽

四、程序阅读题

1、w=42、463789

w=13

w=135

w=31

3、李r4、23451

苹果34512

橘子

葡萄

柚子

香焦

5.——

6

15

28

45

五、程序填空题

1、⑴Label1.left(2)-Label1.Width

2、(1)Listl.ListIndex<0(或者List1.Listindex=-1)(2)List1.RemoveitemList1.Listindex

(3)Text1.Text="”(4)List1.AddltemText1.Text

3、(1)1to2*1-1(2)Command2.Enabled=True

(3)Command2.Enabled=False

4、(1)ndecoO(2)ndecmod16(3)ai=ndec

(4)end(5)ai&shex(6)shex

5>(1)Timerl.Enabled=True(2)x\3600(3)(x-h*3600)\60

(4)x=x+1

6、(1)m<len(strl)/2(2)mid(strl,m+1,1)(3)mid(strl,len(str

六、程序设计题

1、PrivateSubCommandl_Click()

IfTextl.Text=nnThen

MsgBox"请先输入添加项"

Else

Listl.AdditemTextl.Text

EndIf

EndSub

PrivateSubCommand2_Click()

IfListl.Listlndex<0Then'或者iflistl.listindex=-lthen

MsgBox"请选择一删除项"

Else

Listl.RemoveitemListl.ListIndex

EndIf

EndSub

PrivateSubCommand3_Click()

IfListl.Listindex<0Then

MsgBox"请选择一修改项”

Else

Textl.Text=Listl.Text

EndIf

Command4.Enabled=True

EndSub

PrivateSubCommanci4_Click()

DimaAsInteger

IfListl.Text=Textl.TextThen

MsgBox”请先修改此项,，

Else

a=Listl.Listlndex

Listl.RemoveItemListl.Listindex

Listl.AdditemTextl.Textza

EndIf

EndSub

PrivateSubForm_Load()

Command4.Enabled=False

EndSub

2>DimaAsInteger

PrivateSubCommandl_Click()

a=Int(Rnd*100)+1

EndSub

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

StaticiAsInteger

IfKeyAscii=13Then

IfVai(Text1.Text)>aThen

Labell.Caption=”太大了，请重输”

i=i+1

ElselfVai(Textl.Text)=aThen

Labell.Caption="恭喜你，你答对了！”

i=0

Commandl_Click

Else

Labell.Caption="太小了，请重输！”

i=i+1

EndIf

Ifi>10Then

MsgBox”你失败了！”

End

EndIf

EndIf

EndSub

3、

PrivateSubCommandl_Click()

DimnAsInteger:n=Len(Textl.Text)

Dims(1To1000)AsString,iAsInteger,jAsInteger,tAsString,

aAsString

Fori=1Ton

s(i)=Mid(Trim(Text1.Text),i,1)

Nexti

Fori=1Ton-1

Forj=i+1Ton

Ifs(i)>s(j)Then

t=s(i):s(i)=s(j):s(j)=t

EndIf

Nextj,i

Fori=1Ton:a=a+s(i):Nexti

Printa

Commandl.Enabled=False:Command2.Enabled=True

EndSub

PrivateSubCommand2_Click():End:EndSub

PrivateSubForm_Load()

Textl.MaxLength=200

Command2.Enabled=False:Commandl.Enabled=True

EndSub

Dima(1To1000)AsString,b(1To1000)AsString,c(1To1000)AsDouble,

d(1To1000)AsDouble

PrivateSubCombol_click()

Textl.Text=a(Combol.Listindex+1)

Text2.Text=b(Combol.Listindex+1)

Text3.Text=c(Combol.Listindex+1)

Text4.Text=d(Combol.Listlndex+1)

EndSub

PrivateSubCommandl_Click()

Combol.AdditemTextl.Text

a(Combol.ListCount)=Textl.Text

b(Combol.ListCount)=Text2.Text

c(Combol.ListCount)=Vai(Text3.Text)

d(Combol.ListCount)=Vai(Text4.Text)

EndSub

PrivateSubCommand2_Click()

Fori=Combol.ListIndex+1ToCombol.ListCount-1

a(i)=a(i+1)

b(i)=b(i+1)

c(i)=c(i+1)

d(i)=d(i+1)

Nexti

a(i)=nn

b(i)=nn

c(i)=0

d(i)=0

Combol.RemoveitemCombol.ListIndex

Textl.Text=

Text2.Text=

Text3.Text=

Text4.Text=

EndSub

PrivateSubForm_Load()

DimiAsInteger

Combol.Addltem"张三"

Combol.Addltem"李四”

Combol.Addltem“王五”

a(1)="张三”：a(2)="李四”：a(3)=”王五”

b(l)=”浙江林学院“：b(2)="浙江工业大学”：b(3)="浙江大学”

c(l)=311300:c(2)=310027:c(3)=310014

d(l)=63742212:d(2)=88394277:d(3)=88326531

EndSub

PrivateSubCheckl_Click()

IfCheckl.Value=1Then

Labell.FontBold=True

Else

Labell.FontBold=False

EndIf

EndSub

PrivateSubCheck2_Click()

IfCheckl.Value=1Then

Labell.Fontltalic=True

Else

Labell.Fontltalic=False

EndIf

EndSub

PrivateSubOptionl_Click()

Labell.FontName="宋体”

EndSub

PrivateSubOption2_Click()

Labell.FontName="楷体_gb2312”

EndSub

PrivateSubCommandl_Click()

DimaAsString,iAsInteger,nAsInteger

DimsAsInteger,qAsInteger,1AsInteger

n=Len(Text1.Text)

Fori=1Ton

a=Mid(Textl.Text,i,1)

Ifa>="a”Anda<="znThen

s=s+1'大写个数

Elselfa>="A"Anda<=nZ"Then

q=q+11小写个数

Elselfa>="0"Anda<="9"Then

1=1+1

EndIf

Nexti

Text2.Text=s

Text3.Text=q

Text4.Text=1

EndSub

PrivateSubForm_Load()

Text1,SetFocus

EndSub

PrivateSubForm_Click()

DimiAsInteger,jAsInteger,tAsInteger

Fori=0ToListl.ListCount-1

List3.AdditemListl.List(i)

Nexti

Listl.Clear

DoWhileList2.ListCount

List3.AdditemList2.List(0)

List2.Removeitem0

Loop

Fori=0ToList3.ListCount-2

Forj=i+1ToList3.ListCount-1

IfList3.List(i)>List3.List(j)Then

t=List3.List(i):List3.List(i)=List3.List(j):List3.List(j)

=t

EndIf

Nextjti

EndSub

PrivateSubForm_Load()

DimiAsIntegerfnAsInteger

n=InputBox(nn)

Fori=1Ton

Listl.AdditemInt(Rnd*90)+10

List2.AdditemInt(Rnd*90)+10

Nexti

EndSub

第9章对话框和菜单

1.判断题：xJJ（题中应把flag改为flags）JJ

xxVVxxxVxx

2.选择题：DDCCDBDCCB

3.填空题

1.-

2.一级子菜单

3.将顶级菜单设置为不可见

4.popupmenupmenu,0,x,y

5.showfont

6.工程、部件

7.click

8.代码窗口，click

9.下拉式，弹出式

打开/另存为、颜色，字体、打印、帮助

4.程序阅读题

打开对话框

2、*.txt

3、allfiles

*.exe

*.txt

*.doc

4、Checking,NoFileSelectd,重试(R),取消

5.程序填空题

“c:\winnt”

commondialog1.showopen,

loadpicture(commondialogl.filename)

6.程序设计题

1、界面如图:

代码如下：

PrivateSubCommand1_Click()

CommonDialog1.FileName=""

CommonDialog1.Flags=4096

CommonDialogl.Action=1

IfCommonDialogl.FileName=',nThen

MsgBox"NoFileSelectd",5+vbExcla

Else

List1.AdditemCommonDialog1.FileName

EndIf

EndSub

2、

代码如下：

PrivateSuba_Click()

CommonDialog1.ShowColor

Text1.ForeColor=CommonDialog1.Color

EndSub

PrivateSubb_Click()

CommonDialogl.Flags=1

CommonDialog1.ShowFont

Text1.FontSize=CommonDialogl.FontSize

EndSub

PrivateSubc_Click()

CommonDialogl.Flags=1

CommonDialogl.ShowFont

Textl.FontName=CommonDialog1.FontName

EndSub

PrivateSubd_Click()

End

EndSub

第10章图形操作和图形控件

一、判断题

XVXXXVXVXX

二、选择题

BAADACAA

三、填空题

(1)pic1.Circle(picl.ScaleLeft+picl.ScaleWidth/2,picl.ScaleTop+picl.ScaleHeight/2),700

(2)在图片框picturel中，以(800,1000)为圆心画一个半径为500的圆

(3)Forml.Scale(-200,250)-(300,-100)

(4)Autosizestretch

四、程序阅读题

1、窗体宽和高的1/4为起点，画一个边长为1000的正方形，并画出其正向对角线

2、在图片框中交替画出实心和空心的矩形，空心矩形是黄色边框。实心矩形是黄色边框，黑色填

充。

五、程序填空题

1、

(1)Screen.Width

(2)Screen.Height

⑶X

(4)Y

2、

(5)Picture1.ForeColor=CommonDialog1.Color

(6)Picture!.CurrentX=X

(7)Picture1.CurrentY=Y

(8)Picture1.Line-(x,y)

六、程序设计题

(1)

PrivateSubForm_Click()

ConstPi=3.1415926

DimiAsSingle

Form1.Scale(0,1)-(2*Pi,-1)

Form1.Line(0,0)-(2*Pi,0)

Form1.Line(0,-1)-(0,1)

Fori=0To2*PiStep0.0001

Forml.PSet(i,Sin(i))

Nexti

EndSub

(2)

PrivateSubForm_Click()

DimrAsSingle,xAsSingle,yAsSingle

x=Form1.ScaleWidth/2

y=Forml.ScaleHeight/2

r=x

Ifr>yThenr=y

Forml.Circle(Forml.ScaleLeft+Form1.ScaleWidth/2,Forml.ScaleTop+Forml.ScaleHeight/2),r,

vbBlue,-2*3.14,-3.14

EndSub

PrivateSubForm_Load()

Forml.DrawWidth=22磅，题目不对，起码为1磅以上的整数

Forml.FillStyle=0，接上，堤的刻度在宽度中一般不用

Form1.FillColor=vbRed

EndSub

(3)

PrivateSubPicturel_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

Picture1.FillStyle=0

Picture1.FillColor=vbGreen

Picture1.Line(XI,yl)-(X,Y),vbRed,B

EndSub

第11章文件

一、判断题

1------5：XJJJX6------10：VVXXX

二、选择题

1------5：ABBAD6------10：DCAAD

三、程序阅读题

］、------------------------------4、

结果：

结果：

print:

5

ABC

10

1234567,abcdefg

15

nwrite:"

20

"A'V'B"V'C"

25

“1234567,abcdefg”

30

35

2、40

结果：45

y=5a=550

y=15a=1055

y=30a=1560

65

70

75

80

3、85

窗体