VB程序设计教程课后答案解析.docx
- 文档编号:25826919
- 上传时间:2023-06-15
- 格式:DOCX
- 页数:35
- 大小:22.70KB
VB程序设计教程课后答案解析.docx
《VB程序设计教程课后答案解析.docx》由会员分享,可在线阅读,更多相关《VB程序设计教程课后答案解析.docx(35页珍藏版)》请在冰豆网上搜索。
VB程序设计教程课后答案解析
A.1
PrivateSubCommand1_Click(
Label3=Textl
EndSub
A.2
PrivateSubForm_Load(
Timer1.Interval=0
EndSub
PrivateSubCommand1_Click(自动
Timer1.Interval=200
EndSub
PrivateSubCommand2_Click(手动
Timer1.Interval=0
CallMyMove
EndSub
PrivateSubTimer1_Timer(
CallMyMove
EndSub
SubMyMove(
Labell.MoveLabell.Left-50
IfLabell丄eft<0ThenLabell丄eft=Forml.WidthEndSub
A.3
PrivateSubForm_Click(
Text1=Val(Text1+1
EndSub
PrivateSubForm_Load(
Textl=0
EndSub
A.4
PrivateSubForm_Click(
Caption="单击窗体,改变图片"
Picture=LoadPicture(App.Path+"\n_015.bmp"
Print"欢迎使用VB"
EndSub
PrivateSubForm_DblClick(
Cls
Caption="双击窗体,卸去图片"
Picture=LoadPicture("”
EndSub
PrivateSubForm_Load(
Caption="装入窗体"
Picture=LoadPicture(App.Path+"\n_016.bmp"
Print"装入图"
EndSub
PrivateSubForm_Resize(该事件的作用窗体始终与图一样大
'Caption="窗体大小不变"
'Form1.Width=260*16'260是Tongji-2.bmp图的宽度,象素单位
'Forml.Height=260*16+200'260是图的高度,象素单位,200是窗体的标题栏高度EndSub
A.5
SubCommand1_Click(
Textl.FontName="隶书”
Textl.FontSize=25
EndSub
SubCommand2_Click(
Text2.Text=Textl.SelText
Text2.FontName=Textl.FontName
Text2.FontSize=Textl.FontSize
EndSub
B.1
PrivateSubCommand1_Click(
Text2=Format(5/9*(Val(Text1-32,"0.00"
EndSub
PrivateSubCommand2_Click(
Text1=Format(9/5*Val(Text2+32,"0.00"
EndSub
或
PrivateSubCommand1_Click(
Dimf!
c!
'声明两个变量
f=Val(Text1
c=5/9*(f-32
Text2=Format(c,"0.00"'保留两位小数
EndSub
PrivateSubCommand2_Click(
Dimff!
cc!
'声明两个变量
cc=Val(Text2
ff=9/5*cc+32
Textl=Format(ff,"0.00"'保留两位小数
EndSub
B.2
Label2=Format(Val(Text1*Val(Text1*3.14,"0.00"EndSub
PrivateSubCommand2_Click(
Label3=Format(Val(Text1*3.14*2,"0.00"
EndSub
PrivateSubText1_LostFocus(
IfNotlsNumeric(Text1.TextThen
MsgBox"输入有非数字字符,请重新输入",,"警告"
Textl.Text=""
Textl.SetFocus
EndIf
EndSub
或
PrivateSubCommand1_Click(
Label2=Format(Val(Text1*Val(Text1*3.14,"0.00"EndSub
PrivateSubCommand2_Click(
Label3=Format(Val(Text1*3.14*2,"0.00"
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger
IfKeyAscii=13Then
IfNotlsNumeric(Text1.TextThen
Text1.Text=""
EndIf
EndIf
EndSub
B.3
PrivateSubCommand1_Click(
n=Int(Log(2/Log(1.008+1
Label1=n&"年后人数超过26亿"
EndSub
B.4
PrivateSubCommand1_Click(
Dimx,dx,cd
x=Text1.Text
dx=UCase(x
cd=Len(x
Print"大写字母为:
";dx
Print"字符串长度为:
";cd
EndSub
B.5
Textl=Int(Rnd*900+100
EndSub
PrivateSubCommand2_Click(
Dimx%,x1%,x2%,x3%
x=Val(Text1
x1=xMod10'分离出的个位数
x2=(xMod100\10'分离出的十位数
x3=x\100'分离出的百位数
Label1=x1*100+x2*10+x3
EndSub
B.6
PrivateSubForm_Click(
Label1=Left(Text1,11
Label2=Mid(Text1,12,6
Label3=Right(Text1,5
EndSub
B.7
PrivateSubCommand1_Click(
Fori=1To5
PrintTab(15-i*2;String(2*i-1,"★";Spc(18-4*(i-1;String(2*i-1,"★"
Nexti
EndSub
PrivateSubCommand2_Click(
Cis
EndSub
进一步要求:
PrivateSubCommand1_Click(
Fori=1To5
PrintTab(15-i*2;String(2*i-1,"★";String(10-(2*i-1,"☆";String(2*i-1,
"★"
Nexti
EndSub
privateSubCommand2IC=ck(
c_s
EndSub
B.8
privateSubFo「mlc=ck(
XH
_fgHFolmafx>(1、3=0.000=
Prinf=:
=pf八space(5八UHR:
=pfg八space(5八2二f八space©诺R2二fg
EndSub
0--
privateSubFo「mlc=ck(
XH
一fxA-000Then
Elselfx<2000Theny=0.9*x
Elselfx<3000Theny=0.8*x
Elsey=0.7*x
EndIf
Printy
EndSub
C.2
PrivateSubForm_Click(
Dimx!
y!
x=Val(lnputBox("输入上网时间"
Ifx<10Theny=30
Elselfx<50Theny=30+2.5*(x-10
Else
y=30+2.5*40+2*(x-50
EndIf
Ify>150Then
y=150
EndIf
Printy
EndSub
C.3
PrivateSubCommand1_Click(
Dimx!
y!
z!
x=InputBox("inputx"
y=InputBox("inputy"
z=InputBox("inputz"
Print"xyz"
Print"排序前";x;"";y;"";z
Ifx x=y: y=t Ifx x=z: z=t Ify y=z: z=t Print"排序后"&x&""&y&""&zEndSub PrivateSubCommand2_Click( Dimx! y! z! x=InputBox("inputx" y=InputBox("inputy" z=InputBox("inputz" Print"xyz" Print"排序前";x;"";y;"";z Ifx x=y: y=t Ify t=y: y=z: z=t Ifx t=x: x=y: y=t EndIf EndIf Print"排序后"&x&""&y&""&zEndSub C.4 Dima(3AsInteger PrivateSubCommand1_Click( Picturel.CIs Fori=0To2a(i=Int(Rnd*100+200 Picturel.Printa(i Nexti EndSub PrivateSubCommand2_Click( Picture2.Cls DimzAsInteger Fori=0To1 Ifa(i>a(i+1Then z=a(i+1 a(i+1=a(i a(i=z Nexti Picture2.Printa(0 Picture2.Printa(1 Picture2.Printa(2 EndSub C.5 PrivateSubText2_LostFocus( Dimm%,n%,y% m=Val(Text1 n=Val(Text2 IfnMod2<>0Then MsgBox("脚数必定为偶数" Text2="" Text2.SetFocus Else y=n/2-m Ify<0Then MsgBox("脚数必须倍的头数,请重新输入 Text2="" Text2.SetFocus Else x=n/2-m Label2=y Label3=m-y EndIf EndIf EndSub C.6 PrivateSubCommand1_Click( Dima! b! c! x1! x2! de! a=Text1 b=Text2 c=Text3 de=b*b-4*a*c t=2*a Ifde=0Then Text4=Format(-b/t,"0.00" Text5=Format(-b/t,"0.00" Elselfde>0Then Text4=Format((-b+Sqr(de/t,"0.00" Text5=Format((-b-Sqr(de/t,"0.00" Text4=Format(-b/t,"0.00"&"+"&Format(Sqr(Abs(de/t,"0.00"&"i"Text5= Format(-b/t,"0.00"&"-"&Format(Sqr(Abs(de/t,"0.00"&"i"EndIf EndSub PrivateSubCommand2_Click( Textl="" Text2="" Text3="" Text4="" Text5="" EndSub C.7 PrivateSubText3_LostFocus( SelectCaseTrim(Text3 Case"+" Text4=Val(Text1+Val(Text2 Case"-" Text4=Val(Text1-Val(Text2 Case"*" Text4=Val(Text1*Val(Text2 Case"/" IfVal(Text2=0Then MsgBox"分母为零,重新输入" Text2="" Text2.SetFocus Else Text4=Val(Text1/Val(Text2 EndIf EndSelect EndSub C.8 PrivateSubText1_LostFocus( SelectCaseTrim(Text1 Case1 Text2="Monday" Case2 Text2="Tuesday" Case3 Text2="Wednesday" Case4 Case5 Text2="Friday" Case6 Text2="Saturday" Case7 Text2="Sunday" CaseIs>7,Is<1 MsgBox"数字为1~7,重新输入" Textl="" Text1.SetFocus EndSelect EndSub 或者 PrivateSubText1_LostFocus( IfText1>7OrTextl<1Then MsgBox"数字为1~7,重新输入" Textl="" Textl.SetFocus Else Text2=Choose(Text1,"Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday" EndIf EndSub D.1 PrivateSubForm_Click( Fori=1To9 PrintTab(10-i;String(2*i-1,Trim(Str(i Nexti EndSub D.2 PrivateSubForm_Click( Fori=1To10Step1 PrintTab(i;String((20-2*i,Chr(64+i Nexti EndSub D.3 PrivateSubCommand1_Click( Dims! t! i& t=1 Fori=1To100000 t=t+i s=s+1/t If1/t<0.00001ThenExitFor Nexti Print"For结构";s,i;"项" EndSub D.4 PrivateSubCommand1_Click( Dimn&,pi#,i& n=InputBox("输入n值" pi=2 Fori=1Ton pi=pi*(2*i/(2*i-1*(2*i/(2*i+1Nexti Print"当n="&n&”时,pi=";pi EndSub D.5 PrivateSubForm_Click( Dims! t! i! a%,n% a=Int(Rnd*9+1 n=Int(Rnd*6+5 t=0: s=0 Print"a=";a,"n二";n Fori=1Ton t=t*10+a s=s+t Printt; Nexti Print Print"s=";s EndSub D.6 PrivateSubCommand1_Click( DimsAsInteger s=0 Fori=1To9 Forj=0To9 Fork=0To9 s=i*100+j*10+k Ifs=iA3+jA3+kA3Then Prints EndIf Nextk Nextj Nexti EndSub PrivateSubCommand3_Click(formd6.Hide main.Show EndSub D.7 PrivateSubCommand1_Click( Dima! xO! x1! Do i=i+1 x1=2*x0/3+a/(3*x0*x0 IfAbs(x1-x0<0.00001ThenExitDox0=x1 Loop Printx1,i EndSub D.8 PrivateSubCommand1_Click( s=0 x0=0.01 Fori=1To30 s=s+x0 x0=x0*2 Nexti EndSub D.9 PrivateSubCommand4_Click( Picturel.CIs Picture1.Print"x课安排在";"y课安排在";"z课安排在"Picturel.Print"" Forz=5To6 Forx=1Toz-2 ForY=x+1Toz-1 X1=Choose(Weekday(x,'周一","周二","周三","周四","周五","周六","周日" Y1=Choose(Weekday(Y,'周一","周二","周三","周四","周五","周六","周日"z1=Choose(Weekday(z,周一","周二","周三","周四","周五","周六","周日"Picturel.Print"";X1;"";Y1;"";z1 NextY Nextx Nextz EndSub E.1 PrivateSubForm_Click( Dima(1To10AsInteger Fori=1To10 a(i=Int(Rnd*71+30 Printa(i;""; Nexti Max=a(1 Min=a(1 Avg=a(1 Fori=2To10 Ifa(i>MaxThenMax=a(i Ifa(i Avg=Avg+a(i Nexti Avg=Avg/10 Print Print"Max=";Max;"Min=";Min;"Avg=";Avg EndSub E.2 PrivateSubForm_Click( Dima a=Array(56,78,98,88,76,78 Fori=0To5 PrintString(a(i\5,"♦";a(i Print Nexti EndSub E.3 Dima%(19 PrivateSubCommand1_Click( Picturel.CIs Fori=0To19 a(i=Int(Rnd*101 Picturel.Printa(i;""; If(i+1Mod4=0ThenPicturel.Print Nexti EndSub PrivateSubCommand2_Click( Picture2.CIs Dims(5To9 Fori=0To19 SelectCasek Case0To5 s(5=s(5+1 Case9To10'90~10(分的人数 s(9=s(9+1 Case6To8'存放其他三个分数段的下标有规律,根据K获得s(k=s(k+1 EndSelect Nexti Fori=5To9 Ifs(i<>0ThenPicture2.Print"s(";i;"的人数有";Format(s(i,"0";"个"Nexti EndSub E.4 PrivateSubCommand1_Click( Picture1.Cls Dimd%(1To10 Fori3=1To10 Randomize d(i3=Int(Rnd*91+10 Fori=1To10 Forj=1To10-i Ifd(j t=d(j: d(j=d(j+1: d(j+1=t EndIf Nextj Nexti Fori=1To10: Picture1.Printd(i; IfiMod5=0ThenPicture1.Print
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 教程 课后 答案 解析