vb程序設(shè)計(jì)的幾個(gè)簡單例子

1OptionExplicitPrivateSubCommand1_Click()Dimi%,j%,r!i=Val(Text1.Text)j=Val(Text2.Text)Picture1.Printi;j;Callgysh(i,j)Picture1.Print"最大公約數(shù)是"&ir=Val(InputBox("輸入半徑"))CallS(r)EndSubPublicFunctiongysh(mAsInteger,nAsInteger)AsIntegerDimt%Dot=mModn:m=n:n=tLoopWhilet<>0EndFunctionPublicfunctionS(r!)Constpi=3.1415926S=pi*r^2MsgBox"圓面積為："&SEndfunctionPublicFunction定積分()EndFunction2Dima()AsInteger,i%,j%,n%,t%PrivateSubCommand1_Click()Picture1.Print"排序前的數(shù)組為："n=Val(InputBox("請輸入一個(gè)3到100的整數(shù)"))ReDima(1Ton)RandomizeFori=1Tona(i)=Int(Rnd*100)+1Picture1.PrintTab(((i-1)Mod5)*6);a(i);NextiEndSubPrivateSubCommand2_Click()Picture1.PrintPicture1.Print"排序后的數(shù)組為："Fori=1Ton-1Forj=i+1TonIfa(i)>a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextNextFori=1TonPicture1.PrintTab(((i-1)Mod5)*6);a(i);NextEndSub3Dima(),i%,j%PrivateSubCommand1_Click()Dimn%n=Val(InputBox("請輸入一個(gè)整數(shù)"))RandomizeReDima(n)Fori=1Tona(i)=Int(Rnd*100)+1NextiPicture1.Print"選擇法排序后的數(shù)組為："Fori=1Ton-1Forj=i+1TonIfa(i)>a(j)Thent=a(i):a(i)=a(j):a(j)=tEndIfNextNextFori=1TonPicture1.PrintTab(((i-1)Mod5)*6);a(i);NextPicture1.PrintEndSubPrivateSubCommand2_Click()Dimn%n=Val(InputBox("請輸入一個(gè)整數(shù)"))RandomizeReDima(n)Fori=1Tona(i)=Int(Rnd*100)+1NextiPicture2.Print"冒泡排序法后的數(shù)組為："Fori=1Ton-1Forj=nToi-1Step-1Ifa(j-1)>a(j)Thent=a(j):a(j)=a(j-1):a(j-1)=tEndIfNextNextFori=1TonPicture2.PrintTab(((i-1)Mod5)*6);a(i);NextPicture2.PrintEndSub4Dima(),i%,j%,n%,m%,t%PrivateSubCommand1_Click()n=Val(InputBox("請輸入一個(gè)整數(shù)"))Callfuzhi(n)Picture1.Print"選擇排序法后的數(shù)組為："Callpaixu(n)Picture1.PrintReDimPreservea(n)EndSubPrivateSubCommand2_Click()m=Val(InputBox("請輸入一個(gè)整數(shù)"))Callfuzhi(m)Picture1.Print"冒泡排序法后的數(shù)組為："Fori=1Tom-1Forj=mToi+1Step-1Ifa(j-1)>a(j)Thent=a(j-1):a(j-1)=a(j):a(j)=tEndIfNextNextFori=1TomPicture1.PrintTab(((i-1)Mod5)*6);a(i);NextPicture1.PrintEndSubPrivateSubCommand3_Click()ReDima(t)Picture1.Print"合并后的數(shù)組為："Callpaixu(t)Picture1.PrintEndSubPublicSubfuzhi(n%)RandomizeReDima(n)Fori=1Tona(i)=Int(Rnd*100)+1NextiEndSubPublicFunctionpaixu(n%)AsIntegerFori=1Ton-1Forj=i+1TonIfa(i)>a(j)Thent=a(i):a(i)=a(j):a(j)=tEndIfNextNextFori=1TonPicture1.PrintTab(((i-1)Mod5)*6);a(i);NextEndFunction5Dimi%,j%,s%PrivateSubCommand1_Click()Picture1.ClsPicture1.Scale(0,0)-(10,10)Fori=1To9Picture1.Line(1,i)-(9,i)Picture1.Line(i,1)-(i,9)NextPicture1.FillColor=QBColor(0)Picture1.Circle(4.5,4.5),0.4Picture1.Circle(5.5,5.5),0.4Picture1.FillColor=QBColor(15)Picture1.Circle(4.5,5.5),0.4Picture1.Circle(5.5,4.5),0.4EndSubPrivateSubCommand2_Click()s=Abs(s-1)EndSubPrivateSubpicture1_mousedown(bottonAsInteger,shiftAsInteger,x!,y!)i=Fix(x)j