大学VB程序设计课后习题参考答案(编码)

大学VB程序设计课后习题参考答案(编码)2-1PrivateSubForm_Click()

Cls

EndSub

PrivateSubForm_DblClick()

FontSize=40

FontName="隶书"

ForeColor=vbRed

Print"热烈庆祝"

FontSize=60

FontName="宋体"

ForeColor=vbGreen

Print"河南大学运动会召开"

EndSub

2-2

PrivateSubCommand1_Click()

Label1.MoveWidth*Rnd,Height*Rnd

EndSub

2-3

PrivateSubCommand1_Click()

Label1.Visible=True

EndSub

PrivateSubCommand2_Click()

Label1.Visible=False

EndSub

2-4

PrivateSubTimer1_Timer()

Text1.Text=Now

Caption=Text1.Text

EndSub

2-5

PrivateSubTimer1_Timer()

IfBackColor=vbRedThen

BackColor=vbYellow

Else

BackColor=vbRed

EndIf

EndSub

2-6

PrivateSubTimer1_Timer()

IfLabel1.Left<Form1.WidthThen

Label1.Left=Label1.Left+200

Else

Label1.Left=-Label1.Left

EndIf

EndSub

2-7

PrivateSubCommand1_Click()

Text1.Visible=True

EndSub

PrivateSubCommand2_Click()

Text1.Visible=False

EndSub

2-8

PrivateSubText1_Change()

Text2.Text=Text1.Text

EndSub

2-9

PrivateSubCommand1_Click()

FontSize=20

FontBold=True

Print"欢迎来到"

Print"河南大学"

EndSub

PrivateSubCommand2_Click()

Cls

EndSub

PrivateSubCommand3_Click()

End

EndSub

2-10

PrivateSubCommand1_Click()

r=Text1.Text

Text2.Text=3.14*2*r

EndSub

PrivateSubCommand2_Click()

Text1.Text=""

Text2.Text=""

Text1.SetFocus

EndSub

2-11

PrivateSubForm_Load()

Text1.Text="河南大学欢迎您！"

Text1.FontName="宋体"

Text1.FontSize=50

Text1.BackColor=vbYellow

Text1.ForeColor=vbBlue

EndSub

2-12

DimsAsString

PrivateSubCommand1_Click()

s=Text1.SelText

EndSub

PrivateSubCommand2_Click()

Text2.SelText=s

EndSub

2-13

PrivateSubTimer1_Timer()

IfLabel1.Top>-Label1.HeightThen

Label1.Top=Label1.Top-100

Else

Label1.Top=Form1.Height

EndIf

EndSub

3-2

PrivateSubForm_Click()

DimnAsInteger

Randomize

n=Int((90*Rnd)+10)

Printn

EndSub

3-3

PrivateSubTimer1_Timer()

Cls

Print"河南大学环境与规划学院"

FontSize=Int(71*Rnd+10)

EndSub

3-4

PrivateSubCommand1_Click()

n=Text1.Text

Text2.Text=Hex(Asc(Right(Text1.Text,1)))

EndSub

PrivateSubCommand2_Click()

Text1.Text=""

Text2.Text=""

Text1.SetFocus

EndSub

3-5

PrivateSubCommand1_Click()

DimmAsDate

m=Text1.Text

n=Date

Text2.Text=n-m

EndSub

PrivateSubCommand2_Click()

Text1.Text=""

Text2.Text=""

Text1.SetFocus

EndSub

3-6

DimbAsString

DimnAsString

DimmAsString

PrivateSubCommand1_Click()

m=Left(Text1,1)

n=Right(Text1,1)

b=Mid(Text1,2,1)

Text2.Text=n&b&m

EndSub

PrivateSubCommand2_Click()

Text1.Text=""

Text2.Text=""

Text1.SetFocus

EndSub

3-7

PrivateSubForm_click()

r=InputBox("请输入字符")

PrintLeft(r,1)&Mid(r,3,1)&Right(r,1)

EndSub

3-8

PrivateSubTimer1_Timer()

Label1.FontSize=Rnd*40+10

Label1.BackColor=RGB(Rnd*256,Rnd*256,Rnd*256)

Label1.ForeColor=QBColor(Int(16*Rnd))

EndSub

3-9

PrivateSubCommand1_Click()

x=Shell("notepad.exe",1)

EndSubPrivateSubCommand2_Click()

Shell"mspaint.exe",1

EndSub

3-10

PrivateSubForm_Click()

r!=InputBox("请输入您的工资:")

a=r\100

b=(r-100*a)\50

c=(r-100*a-b*50)\10

d=(r-100*a-b*50-c*10)\5

e=(r-100*a-b*50-c*10-d*5)\2

f=r-100*a-b*50-c*10-d*5-e*2

Print"您的工资是:"&r

Print"100元张数："&a

Print"50元张数："&b

Print"10元张数："&c

Print"5元张数："&d

Print"2元张数："&e

Print"1元张数："&f

EndSub

4-1

PrivateSubCommand1_Click()

DimpAsSingle,rAsSingle,nAsSingle

p=Text1

r=Text2

n=Text3

s=p*(1+r)^n

MsgBox"您的本息是："&Round(s,2)

EndSub

4-2

PrivateSubForm_click()

DimmaxAsSingle,minAsSingle

a!=InputBox("请输入第一个实数")

b!=InputBox("请输入第二个实数")

Ifa>bThen

Printa,b

Else

Printb,a

EndIf

EndSub

4-3

PrivateSubForm_click()

Cls

a!=InputBox("请输入年份")

IfaMod4=0AndaMod100<>0&aMod400=0Then

Print"您刚刚输入的年份为闰年!"

Else

Print"您刚刚输入的年份不是闰年!"

EndIf

EndSub

4-4

PrivateSubForm_click()

a!=InputBox("a=")

b!=InputBox("b=")

c!=InputBox("c=")

d!=b*b-4*a*c

Ifd>=0Then

m!=(-b+Sqr(d))/(2*a)

n!=(-b-Sqr(d))/(2*a)

Print"X1=";m,",","X2=";n

Else

r=(-b)/(2*a)

i=Sqr(Abs(-d))/(2*a)

Print"X1=";r&"+"&Abs(i)&"i",",","X2=";r&"-"&Abs(i)&"i"

EndIf

EndSub

4-5

PrivateSubCommand1_Click()

Dimx!

x=Text1

Ifx<60Then

Text2="重考！"

ElseIfx<70Then

Text2="及格！"

ElseIfx<80Then

Text2="中等！"

ElseIfx<90Then

Text2="良好！"

Else

Text2="优秀！"

EndIf

EndSub

PrivateSubCommand2_Click()

Text1=""

Text2=""

EndSub

4-6

PrivateSubCommand1_Click()

Dimx!

x=Text1

SelectCasex

CaseIs<60

Text2="重考！"

CaseIs<70

Text2="及格！"

CaseIs<80

Text2="中等！"

CaseIs<90

Text2="良好！"

CaseElse

Text2="优秀！"

EndSelect

EndSub

PrivateSubCommand2_Click()

Text1=""

Text2=""

EndSub

4-7

DimsAsString

PrivateSubForm_Click()

s=InputBox("请输入年龄")

Ifs<30Then

Print"您的年龄为";s,",","请参加长跑运动"

ElseIfs<40Then

Print"您的年龄为";s,",","请参加跳绳运动"

ElseIfs<50Then

Print"您的年龄为";s,",","请参加竞走运动"

Else

Print"您的年龄为";s,",","请参加慢跑运动"

EndIf

EndSub

4-8

PrivateSubForm_Click()

Forn=2To100Step2

Printn;

IfnMod20=0ThenPrint

Nextn

EndSub

4-9

PrivateSubForm_click()

Forn=100To1000

IfnMod3=2AndnMod5=3AndnMod7=2ThenPrintn;

Nextn

Print

EndSub

4-10

PrivateSubForm_click()

m=0:n=0

Do

r%=InputBox("请输入学生成绩")

m=m+r

n=n+1

LoopUntilr=-1

Print"学生平均成绩=";(m+1)/(n-1)

EndSub

4-11

PrivateSubForm_click()

DimaAsInteger

DimsAsInteger

a=1

Do

s=s+(-1)^(a+1)*a

a=a+1

LoopUntila>100

Print"1-2+3-4+5-6+…+99-100=";s

EndSub

4-12

PrivateSubForm_Click()

DimnAsInteger

DimmAsInteger

DimsAsInteger

m%=InputBox("请输入正整数m(m>=1)","阶乘")

n%=InputBox("请输入正整数n(n>=m)","阶乘")

Form=mTon

t=1

Fori=1Tom

t=t*i

Nexti

s=s+t

Nextm

Print"m!+(m+1)!+…+n!=";s

EndSub

4-13

PrivateSubForm_click()

Dima%

Dimb%

Dimc%

Fora=1To20

Forb=1To20

Forc=1To20

Ifa*a+b*b=c*cThen

Printa,b,c

EndIf

Nextc

Nextb

Nexta

EndSub

4-14

PrivateSubForm_click()

Forn=1To500

Fori=1Ton-1

IfnModi=0Thens=s+i

Nexti

Ifs=nThenPrinti;

s=0

Nextn

Print

EndSub

4-15

PrivateSubForm_click()

DimiAsInteger

DimnAsLong

n=1

t=1

DoWhilet>0.00001

e=e+t

i=i+1

n=n*i

t=1/n

Loop

Print"e的近似值是";e

EndSub

5-2

PrivateSubForm_Click()

Dimi%,s

s=Array(1,2,3,4,5,6,7,8,9,10)

Fori=0To9

Ifs(i)Mod3=0Then

Prints(i);i

Else

Print""

EndIf

Nexti

Print

EndSub

5-3

OptionBase1

PrivateSubCommand1_Click()

Dimx()

x=Array(1,2,3,4,5,6,7,8,9,10)

t=x(1)

Fori=1To9

x(i)=x(i+1)

Printx(i);

Next

x(10)=t

Printx(i)

EndSub

PrivateSubCommand2_Click()

Dimx()

x=Array(1,2,3,4,5,6,7,8,9,10)

t=x(10)

Fori=9To1Step-1

x(i+1)=x(i)

Nexti

x(1)=t

Fori=1To10

Printx(i);

Nexti

EndSub

5-4

PrivateSubForm_Click()

Dima(5,5)

Fori=1To5

Sum=0

Forj=1To5

a(i,j)=Int(Rnd*51+10)

Sum=Sum+a(i,j)

Printa(i,j);

Nextj

PrintSum

Nexti

Print

Fori=1To5

Forj=1To5

Ifi=jThenPrinta(i,j);

Nextj

Nexti

Print

EndSub

5-5

PrivateSubForm_Click()

Dima()AsInteger

DimMaxAsInteger,iMaxAsInteger,jMaxAsInteger

DimMinAsInteger,iMinAsInteger,jMinAsInteger

M=InputBox("输入M")

N=InputBox("输入N")

ReDima(M,N)

Fori=1ToM

Forj=1ToN

a(i,j)=Int(Rnd*900)+100

Nextj

Nexti

Fori=1ToM

Forj=1ToN

Printa(i,j);

Nextj

Print

Nexti

Max=a(1,1):Min=a(1,1)

Fori=1ToM

Forj=1ToN

Ifa(i,j)>MaxThenMax=a(i,j):iMax=i:jMax=j

fa(i,j)<MinThenMin=a(i,j):iMin=i:jMin=j

Nextj

Nexti

Print"Max=";Max,"iMax=";iMax,"jMax=";jMax

Print"Min=";Min,"iMin=";iMin,"jMin=";jMin

Erasea

EndSub

5-6

PrivateSubForm_Click()

n=InputBox("n")

ReDima(n,n)

Fori=1Ton

Forj=1Ton

Ifi=jThen

a(i,j)=1

Else

a(i,j)=0

EndIf

Nextj

Nexti

Fori=1Ton

Forj=1Ton

Printa(i,j);

Nextj

Print

Nexti

Erasea

EndSub

5-7

PrivateSubForm_Click()

DimxAsVariant

x=Array(1,2,3,4,5,6,7,8,9,10)

Fori=1To10

Printx(i);

Nexti

Print

Fori=1To7

x(i)=x(i+3)

Printx(i);

Nexti

Print

ReDimPreservex(i)

x=Array(1,2,3,4,5,6,7)

ori=1To7

Printx(i);

Nexti

Print

EndSub

5-8

OptionBase1

PrivateSubCommand1_Click(IndexAsInteger)

SelectCaseIndex

Case1

Text3=Val(Text1)+Val(Text2)

Case2

Text3=Text1-Text2

Case3

Text3=Text1*Text2

Case4

Text3=Text1/Text2

EndSelect

EndSub

6-1

PrivateSubForm_click()

DimxAsSingle

DimyAsSingle

DimzAsSingle

x=InputBox("请输入圆柱体的半径")

y=InputBox("请输入圆柱体的高度")

volumex,y,z

Print"圆柱体的体积为";z

EndSub

6-2

窗体模块

PrivateSubForm_click()

Dima!,b!,c!

a=InputBox("请输入圆柱体的半径")

b=InputBox("请输入圆柱体的高度")

c=volume(a,b)

Print"圆柱体的体积为";c

EndSub

标准模块

Functionvolume(rAsSingle,hAsSingle)AsSingle

volume=3.14*r*r*h

EndFunction

6-3

PrivateSubForm_Click()

Dimy%

y=InputBox("请输入一个整数")

Callweek(y)

EndSub

6-4

窗体模块

PrivateSubForm_click()

DimaAsInteger,bAsString

a=InputBox("请输入一个整数")

b=week(a)

Printb

标准模块

Functionweek(sAsInteger)AsString

SelectCases

Case0

week="星期日"

Case1

week="星期一"

Case2

week="星期二"

Case3

week="星期三"

Case4

week="星期四"

Case5

week="星期五"

Case6

week="星期六"

CaseElse

MsgBox"数据无效"

EndSelect

EndFunction

6-5

窗体模块

PrivateSubForm_click()

DimnAsSingle,wAsString

n=InputBox("请输入一个正整数")

SelectCasew

Casejudge=0

Print"此数为偶数"

CaseElse

Print"此数为奇数"

Printw

EndSelect

EndSub

标准模块

Functionw(nAsSingle)AsString

w=n\2

SelectCasew

Casew=0

Print"此数为偶数"

CaseElse

Print"此数为奇数"

EndFunction

6-7

SublenUL(ByValsAsString,U%,L%)

DimiAsInteger

Fori=1ToLen(s)

SelectCaseMid(s,i,1)

Case"A"To"Z"

U=U+1

Case"a"To"z"

L=L+1

EndSelect

Nexti

EndSub

PrivateSubCommand1_Click()

DimU%,L%

CalllenUL(Text1,U,L)

Text2=U

Text3=L

EndSub

PrivateSubCommand2_Click()

Text1=""

Text2=""

Text3=""

Text1.SetFocus

EndSub

7-1

PrivateSubCommand1_Click()

Image1.Picture=LoadPicture("c:\图片\picture5.JPG")

EndSub

PrivateSubCommand2_Click()

Image1.Picture=LoadPicture("c:\图片\picture3.JPG")

EndSub

PrivateSubCommand3_Click()

Image1.Picture=LoadPicture("c:\图片\picture4.JPG")

EndSub

7-2

PrivateSubCommand1_Click()

StaticaAsInteger

a=a+1

IfaMod2<>0Then

Image1.Picture=LoadPicture("c:\图片\p2.JPG")

Image2.Picture=LoadPicture("c:\图片\p1.JPG")

Else

Image1.Picture=LoadPicture("c:\图片\p1.JPG")

Image2.Picture=LoadPicture("c:\图片\p2.JPG")

EndIf

EndSub

PrivateSubForm_Load()

Image1.Picture=LoadPicture("c:\图片\p1.JPG")

Image2.Picture=LoadPicture("c:\图片\p2.JPG")

EndSub

7-3

PrivateSubTimer1_Timer()

Form1.Picture=Image3.Picture

Image3.Picture=Image2.Picture

Image2.Picture=Image1.Picture

Image1.Picture=Form1.Picture

EndSub

7-4

PrivateSubForm_Load()

Timer1.Enabled=False

EndSub

PrivateSubTimer1_Timer()

IfImage2.Top>=-Image2.HeightThen

Image2.Top=Image2.Top-100

Else

Image2.Top=-Image2.Height

EndIf

EndSub

7-5

PrivateSubForm_Load()

HScroll1.Min=0

HScroll1.Max=Image1.Width

Image1.Width=0

EndSub

PrivateSubHScroll1_Scroll()

Image1.Width=HScroll1

Label1="当前图片宽度："&HScroll1.Value

EndSub

7-6

PrivateSubCommand1_Click()

Fori=ProgressBar1.MinToProgressBar1.Max

ProgressBar1.Value=i

(Forj=1To20000

Nextj)（延时）

Nexti

EndSub

7-7

PrivateSubCommand1_Click()

a=IIf(Option1,"男","女")

b=IIf(Option3,"硕士","博士")

c=IIf(Check1,"音乐","")

d=IIf(Check2,"演讲","")

e=IIf(Check3,"体育","")

f=IIf(Check4,"集邮","")

Text2="姓名:"&Text1.Text&","&"性别:"&a&","&"学历:"&b&","&"特长:"&c&","&d&","&e&","&f

EndSub

PrivateSubCommand2_Click()

Text1=""

Text2=""

Text1.SetFocus

EndSub

7-8

PrivateSubForm_Load()

Combo1.AddItem"河南省"

Combo1.AddItem"开封市"

Combo1.AddItem"河南大学"

Combo1.AddItem"金明校区"

Combo1.AddItem"环境与规划学院"

Combo1.AddItem"09级"

Combo1.AddItem"地理科学专业"

Combo1.AddItem"刘彬"

Combo1.AddItem"毕业于"

Combo1.AddItem"湖南省"

Combo1.AddItem"衡山县"

Combo1.AddItem"第二中学"

Combo1.AddItem"218班"

EndSub

PrivateSubCombo1_Click()

List1.AddItemCombo1.Text

EndSub

PrivateSubList1_DblClick()

List1.RemoveItemList1.ListIndex

EndSub

8-1

DimxAsSingle,yAsSingle

PrivateSubPt1_Click()

Pt1.Scale(0,100)-(100,0)

Pt1.DrawWidth=2

Forx=0To100Step0.02

Pt1.PSet(x,2),vbRed

Nextx

Fory=0To100Step0.02

Pt1.PSet(2,y),vbRed

Nexty

Pt1.CurrentX=2

Pt1.CurrentY=5

Pt1.Print"(0,0)"

EndSub

8-2

PrivateSubP1_Click()

P1.Scale(0,100)-(100,0)

P1.FillStyle=7

P1.DrawWidth=5

P1.FillColor=vbGreen

P1.Line(10,90)-(90,10),vbRed,B

EndSub

8-3

PrivateSubForm_click()

Scale(-100,100)-(100,-100)

Line(-100,0)-(100,0)

Line(0,-100)-(0,100)

CurrentX=2

CurrentY=6

Print"(0,0)"

EndSub

8-4

PrivateSubForm_click()

Scale(-100,100)-(100,-100)

Line(-100,0)-(100,0)

Line(0,-100)-(0,100)

Forx=-100To100Step0.02

y=10*Sin(x)-10*Cos(2*x)

PSet(x,y),vbRed

Nextx

EndSub

8-7

PrivateSubForm_Click()

Timer1.Enabled=True

EndSub

PrivateSubTimer1_Timer()

Randomize

Scale(-120,120)-(120,-120)

DrawWidth=2

Ifr<100Then

r=r+2

Forr=0To100

Circle(0,0),r,RGB(255*Rnd,255*Rnd,255*Rnd)

Nextr

EndIf

EndSub

9-1

PrivateSubText1_KeyPress(KAsInteger)

K=K+3

EndSub

9-2

PrivateSubText1_KeyPress(KAsInteger)

SelectCaseK

Case48To57

K=K

CaseElse

K=0

EndSelect

EndSub

9-6

PrivateSubCommand1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

MousePointer=5

EndSub

PrivateSubText1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

MousePointer=11

EndSub

PrivateSubPicture1_Click()

MouseIcon=Picture1.MouseIcon

Picture1.MouseIcon=Image1.MouseIcon

Image1.MouseIcon=Form1.MouseIcon

EndSub

9-7

SubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

IfShift=vbCtrlMaskAndButton=vbLeftButtonThenPrint"Ctrl+左键+移动"

IfShift=vbAltMaskAndButton=vbRightButtonThenPrint"Alt+右键+移动"

EndSub

SubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

Cls

EndSub

9-8

SubPicture1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=vbLeftButtonThenPicture1.PrintStr(X)+","+Str(Y)

BackColor=RGB(Rnd*256,Rnd*256,Rnd*256)

EndSub

10-1

PrivateSubCommand1_Click()

Open"d:\data1.txt"ForOutputAs#1

Write#1,"601","杨大昌";"4550"

Write#1,"603","李文圣";"3886"

Write#1,"605","张燕";"2235"

Close#1

EndSub

PrivateSubCommand2_Click()

Open"d:\data1.txt"ForInputAs#2

DoWhileNotEOF(2)

Input#2,X1,X2,x3

PrintX1,X2,x3

Loop

Close

EndSub

10-2

PrivateSubCommand1_Click()

Open"d:\data1.txt"ForAppendAs#3

Write#3,Text1,Text2,Text3

Text1=""

Text2=""

Text3=""

Close

EndSub

PrivateSubCommand2_Click()

Close

End

EndSub

10-5

PrivateSubForm_Click()

DimsumAsLong

Forn=1To100Step2

sum=sum+n

Nextn

Printsum

EndSub

PrivateSubForm_Load()

Open"d:\data5.txt"ForOutputAs#1

Forn=1To100Step1

Print#1,n;

Nextn

Close

EndSub

10-6

PrivateSubForm_Click()

DimsumAsInteger

Forn=10To100Step10

sum=sum+n

Next

Printsum

EndSub

PrivateSubForm_Load()

Open"d:\data6.dat"ForRandomAs#1

Forn=1To100

Put#1,,n

Next

EndSub

11-1

PrivateSubCommand1_Click()

CommonDialog1.Action=3

Text1.BackColor=CommonDialog1.Color

EndSub

PrivateSubCommand2_Click()