VB程序设计教程(第3版)课后实验答案

1、A.1PrivateSubCommand1_Click()Label3=Text1EndSubA.2PrivateSubForm_Load()Timer1.Interval=0EndSubPrivateSubCommand1_Click()自动Timer1.Interval=200EndSubPrivateSubCommand2_Click()手动Timer1.Interval=0CallMyMoveEndSubPrivateSubTimer1_Timer()CallMyMoveEndSubSubMyMove()Label1.MoveLabel1.Left-50IfLabel1.Left0Th

2、enLabel1.Left=Form1.WidthEndSubA.3PrivateSubForm_Click()Text1=Val(Text1)+1EndSubPrivateSubForm_Load()Text1=0EndSubA.4PrivateSubForm_Click()Caption=单击窗体，改变图片Picture=LoadPicture(App.Path+n_015.bmp)Print”欢迎使用 VB”EndSubPrivateSubForm_DblClick()ClsCaption=双击窗体，卸去图片Picture=LoadPicture()EndSubPrivateSubFor

3、m_Load()Caption=装入窗体Picture=LoadPicture(App.Path+n_016.bmp)Print装入图EndSubPrivateSubForm_Resize()该事件的作用窗体始终与图一样大Caption=窗体大小不变Form1.Width=260*16260 是 Tongji-2.bmp 图的宽度，象素单位Form1.Height=260*16+200260 是图的高度，象素单位，200 是窗体的标题栏高度EndSubA.5SubCommand1_Click()Text1.FontName=隶书Text1.FontSize=25EndSubSubCommand

4、2_Click()Text2.Text=Text1.SelTextText2.FontName=Text1.FontNameText2.FontSize=Text1.FontSizeEndSubB.1PrivateSubCommand1_Click()Text2=Format(5/9*(Val(Textl)-32),0.00)EndSubPrivateSubCommand2_Click()Textl=Format(9/5*Val(Text2)+32,0.00)EndSub或PrivateSubCommand1_Click()Dimf!,c!声明两个变量f=Val(Textl)c=5/9*(f-

5、32)Text2=Format(c,0.00)保留两位小数EndSubPrivateSubCommand2_Click()Dimff!,cc!声明两个变量cc=Val(Text2)ff=9/5*cc+32Textl=Format(ff,0.00)保留两位小数EndSubB.2PrivateSubCommand1_Click()Label2=Format(Val(Text1)*Val(Textl)*3.14,0.00)EndSubPrivateSubCommand2_Click()Label3=Format(Val(Text1)*3.14*2,0.00)EndSubPrivateSubText1

6、_LostFocus()IfNotIsNumeric(Text1.Text)ThenMsgBox输入有非数字字符，请重新输入“一Text1.Text=Text1.SetFocusEndIfEndSub或PrivateSubCommand1_Click()Label2=Format(Val(Text1)*Val(Text1)*3.14,0.00)EndSubPrivateSubCommand2_Click()Label3=Format(Val(Text1)*3.14*2,0.00)EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAsci

7、i=13ThenIfNotIsNumeric(Text1.Text)ThenText1.Text=EndIfEndIfEndSubB.3PrivateSubCommand1_Click()n=Int(Log(2)/Log(1.008)+1)Label1=n&年后人数超过 26 亿EndSubB.4PrivateSubCommand1_Click()Dimx,dx,cdx=Text1.Textdx=UCase(x)cd=Len(x)Print大写字母为：”;dxPrint字符串长度为：”;cdEndSubPrivateSubCommand1_Click()Textl=Int(Rnd*90

8、0+100)EndSubPrivateSubCommand2_Click()Dimx%,x1%,x2%,x3%x=Val(Textl)x1=xMod10 x2=(xMod100)10 x3=x100Label1=x1*100+x2*10+x3EndSubB. 6PrivateSubForm_Click()Label1=Left(Text1,11)Label2=Mid(Text1,12,6)Label3=Right(Text1,5)EndSubC. 7PrivateSubCommand1_Click()PrintFori=1To5PrintTab(15-i*2);String(2*i-1,);S

9、pc(18-4*(i-1);String(2*i-1,)NextiEndSubPrivateSubCommand2_Click()ClsEndSub进一步要求：PrivateSubCommand1_Click()PrintFori=1To5,分离出的个位数分离出的十位数分离出的百位数PrintTab(15-i*2);String(2*i-1,);String(10-(2*i-1),);String(2*i-1,)NextiEndSubPrivateSubCommand2_Click()ClsEndSubB.8PrivateSubForm_Click()x=Val(InputBox(输入一正实数

10、，计算,0)pf=Format(x*x,0.000)pfg=Format(Sqr(x),0.000)If=Format(x*x*x,0.000)Ifg=Format(xA(1/3),0.000)Print平方为：;pf;Space(5);平方根为：;pfg;Space(5);立方为：;lf;Space(5);立方根为:ifgEndSubC.1PrivateSubForm_Click()Dimx!,y!x=Val(InputBox(输入 x 的值)Ifx1000Theny=xElselfx2000Theny=0.9*xElselfx3000Theny=0.8*xElsey=0.7*xEndIfP

11、rintyEndSubC.2PrivateSubForm_Click()Dimx!,y!x=Val(InputBox(输入上网时间)Ifx10Theny=30ElseIfx150Theny=150EndIfPrintyEndSubC.3PrivateSubCommand1_Click()Dimx!,y!,z!x=InputBox(inputx)y=InputBox(inputy)z=InputBox(inputz)PrintxyzPrint排序前;x;y;zIfxyThent=x:x=y:y=tIfxzThent=x:x=z:z=tIfyzThent=y:y=z:z=tPrint排序后&

12、;x&y&EndSubPrivateSubCommand2_Click()Dimx!,y!,z!x=InputBox(inputx)y=InputBox(inputy)z=InputBox(inputz)PrintxyzPrint排序前;x;y;zIfxyThent=x:x=y:y=tIfyzThent=y:y=z:z=tIfxa(i+1)Thenz=a(i+1)a(i+1)=a(i)a(i)=zEndIfNextiPicture2.Printa(0)Picture2.Printa(1)Picture2.Printa(2)EndSubD. 5PrivateSubText2_Lo

13、stFocus()Dimm%,n%,y%m=Val(Text1)n=Val(Text2)IfnMod20ThenMsgBox(脚数必定为偶数)Text2=Text2.SetFocusElsey=n/2-mIfy0ThenText4=Format(-b+Sqr(de)/t,0.00)Text5=Format(-b-Sqr(de)/t,0.00)ElseText4=Format(-b/t,0.00)&+&Format(Sqr(Abs(de)/t,0.00)&iText5=Format(-b/t,0.00)&-&Format(Sqr(Abs(de)/t,0.0

14、0)&iEndIfEndSubPrivateSubCommand2_Click()Text1=Text2=Text3=Text4=Text5=EndSubC.7PrivateSubText3_LostFocus()SelectCaseTrim(Text3)Case+Text4=Val(Text1)+Val(Text2)Case-Text4=Val(Text1)-Val(Text2)Case*Text4=Val(Text1)*Val(Text2)Case/IfVal(Text2)=0ThenMsgBox分母为零，重新输入Text2=Text2.SetFocusElseText4=Val(

15、Textl)/Val(Text2)EndIfEndSelectEndSubC.8PrivateSubText1_LostFocus()SelectCaseTrim(Text1)Case 1Text2=MondayCase 2Text2=TuesdayCase 3Text2=WednesdayCase 4Text2=ThursdayCase 5Text2=FridayCase 6Text2=SaturdayCase 7Text2=SundayCaseIs7,Is7OrText11ThenMsgBox数字为 17,重新输入Text1=Text1.SetFocusElseText2=Choose(T

16、ext1,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday)EndIfEndSubD.1PrivateSubForm_Click()Fori=1To9PrintTab(10-i);String(2*i-1,Trim(Str(i)NextiEndSubD.2PrivateSubForm_Click()Fori=1To10Step1PrintTab(i);String(20-2*i),Chr(64+i)NextiEndSubD.3PrivateSubCommand1_Click()Dims!,t!,i&s=1t=1Fori=1

17、To100000t=t+is=s+1/tIf1/t0,00001ThenExitForNextiPrintFor 结构”;s,i;项EndSubD.4PrivateSubCommand1_Click()Dimn&,pi#,i&n=InputBox(输入 n 值)pi=2Fori=1Tonpi=pi*(2*i)/(2*i-1)*(2*i)/(2*i+1)NextiPrint当 n=&n&时，pi=;piEndSubD.5PrivateSubForm_Click()Dims!,t!,i!,a%,n%a=Int(Rnd*9+1)n=Int(Rnd*6+5)t=0:s=

18、0Printa=;a,n=;nFori=1Tont=t*10+as=s+tPrintt;NextiPrintPrints=;sEndSubD.6PrivateSubCommand1_Click()DimsAsIntegers=0Fori=1To9Forj=0To9Fork=0To9s=i*100+j*10+kIfs=iA3+jA3+kA3ThenPrintsEndIfNextkNextjNextiEndSubPrivateSubCommand3_Click()formd6.Hidemain.ShowEndSubD.7PrivateSubCommand1_Click()Dima!,x0!,x1!a=27x0=2i=0Do1 =i+1x1=2*x0/3+a/(3*x0*x0)IfAbs(x1-x0)MaxThenMax=a(i)Ifa(i)MinThenMin=a(i)Avg=Avg+a(i)NextiAvg=Avg/10PrintPrintMax=;Max;Min