vb課后(vb after class)

vb課后(vb after class)

ID:19621552

大?。?5.85 KB

頁數(shù):37頁

時間:2018-10-04

vb課后(vb after class)_第1頁
vb課后(vb after class)_第2頁
vb課后(vb after class)_第3頁
vb課后(vb after class)_第4頁
vb課后(vb after class)_第5頁
資源描述:

《vb課后(vb after class)》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、vb課后(VBafterclass)Thirdchapters1,theinputladdertoplength,lowerlengthandheight,calculatethetrapezoidalareaandoutput,requiretheuseofInputBoxfunctioninput,usingprintmethodoutput.PrivateSubCommand1_Click()DimaAsSingle,BAsSingle,HAsSingleDimsAsSingleA=Val(InputBox("pleaseinputtheladd

2、eronside"))B=Val(InputBox("pleaseinputtheladderundertheside"))H=Val(InputBox,"entertheladderheight")S=(a+b)*H/2Print"trapezoidarea";sEndSub2,inputhours,minutes,seconds,convertedthemtoseconds,andthenoutput,PrivateSubCommand1_Click()DimaAsSingle,BAsSingle,CAsSingleA=Val(Text1)B=Va

3、l(Text2)C=Val(Text3)S=a*3600+b*60+CLabel4.Caption="thenumberofsecondscorrespondingtotheinputtime:"&SEndSub3,calculatetheperimeterandareaofthehypotenuseofarighttrianglePrivateSubCommand1_Click()DimaAsInteger,BAsIntegerDimCAsSingle,lAsSingle,sAsSingleA=Val(InputBox("pleaseenterthe

4、firstsideofarighttriangle"))B=Val(InputBox("pleaseinputtherighttrianglesecondside"))Print"tworightanglesidesofarighttriangleis:"a,B;C=Sqr(a*a+b*b)L=a+B+CS=a*B/2Print"hypotenuselength:C;Printtheperimeterofrighttriangleis:"L"Printtheareaofrighttriangleis:"s"EndSub4,calculatingtota

5、lscoreandaveragescorePrivateSubCommand1_Click()DimA1AsInteger,A2AsInteger,A3AsInteger,A4AsIntegerDimsumAsInteger,AVGAsSingleA1=Val(InputBox"inputdata")A2=Val(InputBox"inputdata")A3=Val(InputBox"inputdata")A4=Val(InputBox"inputdata")Sum=a1+A2+a3+A4AVG=sum/4Theoverallresults:"MsgB

6、ox&sum&vbCrLf&"average"&AVGEndSub5,absolutevalue,PrivateSubCommand1_Click()DimaAsIntegerA=Val(Text1)Ifa>0ThenText2=aElseIfa=0ThenText2=0ElseText2=-aEndIfEndSub6.CalculatethevalueofthepiecewisefunctionPrivateSubCommand1_Click()DimxAsSingle,yAsSingleX=Text1Ifx>0ThenY=2*x-1ElseIfx<

7、0ThenY=3*x+2ElseY=0EndIfText2.Text=yEndSub7.CalculationbonusPrivateSubCommand1_Click()DimQAsDouble,sAsDoubleQ=Text1.TextSelectCaseQCaseIs<5000S=Q*0.01CaseIs<10000S=(Q-5000)*0.15+50CaseIs<20000S=(Q-10000)*0.2+75+50CaseIs<50000S=(Q-20000)*0.25+200+75+50CaseIs<100000S=(Q-50000)*0.3

8、+750+200+75+50CaseElseS=(Q-100000)*0.35+1500+75

當前文檔最多預覽五頁,下載文檔查看全文

此文檔下載收益歸作者所有

當前文檔最多預覽五頁,下載文檔查看全文
溫馨提示:
1. 部分包含數(shù)學公式或PPT動畫的文件,查看預覽時可能會顯示錯亂或異常,文件下載后無此問題,請放心下載。
2. 本文檔由用戶上傳,版權(quán)歸屬用戶,天天文庫負責整理代發(fā)布。如果您對本文檔版權(quán)有爭議請及時聯(lián)系客服。
3. 下載前請仔細閱讀文檔內(nèi)容,確認文檔內(nèi)容符合您的需求后進行下載,若出現(xiàn)內(nèi)容與標題不符可向本站投訴處理。
4. 下載文檔時可能由于網(wǎng)絡波動等原因無法下載或下載錯誤,付費完成后未能成功下載的用戶請聯(lián)系客服處理。