vb常用程序代码.doc

《vb常用程序代码.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1、求半径为r的圆的面积，要求用户从键盘输入半r。程序代码：PrivateSubForm_click()ConstPI=3.14Dimr%Dims!r=InputBox("请输入半径r的值：","求圆的面积")s=PI*r*rForm1.FontSize=16Print"半径是"+Str(r)+"的圆的面积是"+Str(s)EndSub2、输入三个整数，从小到大顺序输出。程序代码：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、输入三个整数，从大到小顺序输出。程序代码：PrivateSubForm_click()a=InputBox("a")b=InputBox("b")c=InputBox("c")Print"排序前：";a,b,cIfa

3、排序后：";a,b,cEndSub4、输入x的值，输出对应的值。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&"不在统计数据的范围内"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、编写一个程序，输出给定的某年某月的天数。程序代码：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"输入的月份不符合实际！"EndIfEndSub6、求S=1+2+3+....+100的累加和。程序代码：(一)、For….Next循环PrivateSubCommand1_Click()Dimi%,s%s=0Fori=1To100s=s+iNextiPrint"s=";sEndSub（二）、DoWhile…Loop循环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，如果累加达到1000时马上终止循环，同时输出此时循环变量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,