VB課后答案三四章-朱國華主編.doc

《VB課后答案三四章-朱國華主編.doc》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、第3章1.PrivateSubCommand1_Click()DimaAsIntegera=Text1.TextText2.Text=-aText3.Text=a^2Text4.Text=Sqr(Abs(a))Text5.Text=a^3Text6.Text=Abs(a)^(1/3)EndSub2.PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=Text1.Texty=Text2.TextText1.Text=yText2.Text=xEndSub3.Priv

2、ateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimx1AsSingle,x2AsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)'a*x^2+b*x+c=0x1=(-b+Sqr(b^2-4*a*c))/(2*a)x2=(-b-Sqr(b^2-4*a*c))/(2*a)Text4.Text=x1Text5.Text=x2EndSubPrivateSubCommand2_Click()

3、EndEndSub第4章1.PrivateSubCommand1_Click()DimxAsSinglex=Val(Text1.Text)Ifx>=0ThenText2.Text=Sqr(x)ElseMsgBox"該數(shù)不能開平方"EndIfEndSub2.PrivateSubCommand1_Click()DimaAsInteger,bAsBooleana=Text1.TextIfaMod5=0AndaMod7=0Thenb=TrueLabel1.Caption="該數(shù)能同時(shí)被5和7整除"Elseb=FalseLa

4、bel1.Caption="該數(shù)不能同時(shí)被5和7整除"EndIfEndSub3.PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox("請輸入一個(gè)百分制成績"))SelectCasexCaseIs>90Print"A"CaseIs>=80Print"B"CaseIs>=70Print"C"CaseIs>=60Print"D"CaseElsePrint"E"EndSelectEndSub4.PrivateSubCommand1_Click()DimnAsInteg

5、er,tAsLong,sAsLongs=0:t=1Forn=1To9t=t*nIfnMod2<>0Thens=s+tNextnPrintsEndSub5.PrivateSubCommand1_Click()DimiAsInteger,sAsDouble,nAsIntegern=Val(InputBox("請輸入一個(gè)正整數(shù)"))s=0Fori=1Tons=s+((-1)^(i+1))/iNextiPrintsEndSubPrivateSubCommand2_Click()DimiAsInteger,sAsLong,n

6、AsInteger,tAsIntegern=Val(InputBox("請輸入一個(gè)正整數(shù)"))s=0Fori=1Tont=t+is=s+tNextiPrintsEndSubPrivateSubCommand3_Click()DimiAsInteger,sAsDouble,nAsInteger,tasintegern=Val(InputBox("請輸入一個(gè)正整數(shù)"))Fori=1Tont=i^2s=s+tNextiPrintsEndSubPrivateSubCommand4_Click()DimiAsInteger,

7、sAsDouble,nAsInteger,tAsIntegern=Val(InputBox("請輸入一個(gè)正整數(shù)"))s=0Fori=1Tont=(-1)^(i-1)*i*(i+1)s=s+tNextiPrintsEndSubPrivateSubCommand5_Click()DimiAsInteger,sAsDouble,nAsInteger,tAsIntegern=Val(InputBox("請輸入一個(gè)正整數(shù)"))Fori=1Tont=t+is=s+1/tNextiPrintsEndSub6.PrivateSub

8、Command1_Click()DimiAsInteger,countAsIntegerFori=1To1000IfiMod2<>0AndiMod13=0Thencount=count+1List1.AddItemiEndIfText1.Text=countNextiEndSub7.PrivateSubCommand1_Click()DimiAsIntege