vb程序设计的几个简单例子

1OptionExplicitPrivateSubCommand1_Click()Dimi%,j%,r!i=Val(Text1.Text)j=Val(Text2.Text)Picture1.Printi;j;Callgysh(i,j)Picture1.Print"最大公约数是"&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"排序前的数组为："n=Val(InputBox("请输入一个3到100的整数"))ReDima(1Ton)RandomizeFori=1Tona(i)=Int(Rnd*100)+1Picture1.PrintTab(((i-1)Mod5)*6);a(i);NextiEndSubPrivateSubCommand2_Click()Picture1.PrintPicture1.Print"排序后的数组为："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("请输入一个整数"))RandomizeReDima(n)Fori=1Tona(i)=Int(Rnd*100)+1NextiPicture1.Print"选择法排序后的数组为："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("请输入一个整数"))RandomizeReDima(n)Fori=1Tona(i)=Int(Rnd*100)+1NextiPicture2.Print"冒泡排序法后的数组为："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("请输入一个整数"))Callfuzhi(n)Picture1.Print"选择排序法后的数组为："Callpaixu(n)Picture1.PrintReDimPreservea(n)EndSubPrivateSubCommand2_Click()m=Val(InputBox("请输入一个整数"))Callfuzhi(m)Picture1.Print"冒泡排序法后的数组为："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"合并后的数组为："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