vb常用程序代碼.doc

《vb常用程序代碼.doc》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、1、求半徑為r的圓的面積，要求用戶從鍵盤輸入半r。程序代碼：PrivateSubForm_click()ConstPI=3.14Dimr%Dims!r=InputBox("請(qǐng)輸入半徑r的值：","求圓的面積")s=PI*r*rForm1.FontSize=16Print"半徑是"+Str(r)+"的圓的面積是"+Str(s)EndSub2、輸入三個(gè)整數(shù)，從小到大順序輸出。程序代碼：PrivateSubForm_click()a=InputBox("a")b=InputBox("b")c=InputBox("c")Print"排

2、序前：";a,b,cIfa>bThent=a:a=b:b=tIfa>cThent=a:a=c:c=tIfb>cThent=b:b=c:c=tPrint"排序后：";a,b,cEndSub3、輸入三個(gè)整數(shù)，從大到小順序輸出。程序代碼：PrivateSubForm_click()a=InputBox("a")b=InputBox("b")c=InputBox("c")Print"排序前：";a,b,cIfa

3、排序后：";a,b,cEndSub4、輸入x的值，輸出對(duì)應(yīng)的值。y=10+2x(00Andx<=10Theny=10+2*xMsgBox"x="&x&"y="&yElseIfx<=20Theny=50-xMsgBox"x="&x&"y="&yElseIfx<=30Theny=30Msg

4、Box"x="&x&"y="&yElseIfx<=40Theny=60-xMsgBox"x="&x&"y="&yElseMsgBox"x="&x&"不在統(tǒng)計(jì)數(shù)據(jù)的范圍內(nèi)"EndIfEndSub（二）、PrivateSubCommand1_Click()Dimx%,y%x=InputBox("x")SelectCasexCaseIs<=10y=10+2*xCaseIs<=20y=50-xCaseIs<=30y=30CaseIs<=40y=60-xCaseElseMsgBox"輸入不合法"EndSelectPrint"x=";x,

5、"y=";yEndSub5、編寫一個(gè)程序，輸出給定的某年某月的天數(shù)。程序代碼：PrivateSubCommand1_Click()DimyearAsInteger,monthAsInteger,dayAsIntegeryear=CInt(Text1.Text)month=CInt(Text2.Text)SelectCasemonthCase1,3,5,7,8,10,12day=31Case4,6,9,11day=30Case2IfyearMod4=0AndyearMod100<>0OryearMod400=0Thenday=2

6、9Elseday=28EndIfCaseElseday=0EndSelectIfday<>0ThenMsgBoxyear&"年"&month&"月有"&day&"天"ElseMsgBox"輸入的月份不符合實(shí)際！"EndIfEndSub6、求S=1+2+3+....+100的累加和。程序代碼：(一)、For….Next循環(huán)PrivateSubCommand1_Click()Dimi%,s%s=0Fori=1To100s=s+iNextiPrint"s=";sEndSub（二）、DoWhile…Loop循環(huán)PrivateSubCo

7、mmand1_Click()Dimi%,s%s=0:i=1DoWhilei<=100s=s+ii=i+1LoopPrint"s=";sEndSub（三）、DoUntil….LoopPrivateSubCommand1_Click()Dimi%,s%s=0:i=1DoUntili>100s=s+ii=i+1LoopPrint"s=";sEndSub7、接6，如果累加達(dá)到1000時(shí)馬上終止循環(huán)，同時(shí)輸出此時(shí)循環(huán)變量i的值。程序代碼：（一）、PrivateSubCommand1_Click()Dimi%,s%s=0Fori=1To1

8、00s=s+iIfs>=1000ThenExitForNextiPrint"s=";s,"i=";iEndSub（二）、PrivateSubCommand1_Click()Dimi%,s%s=0:i=0Whiles<1000i=i+1s=s+iWendPrint"s=";s,