资源描述：
《VB常见20道编程代码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、哈哈哈20道编程代码1.1000以内的所有完数PrivateSubCommand1_Click()DimnAsIntegerDimiAsIntegerDimsAsLongForn=1To1000s=1Fori=2Ton-1IfnModi=0Thens=s+iNextiIfs=nThenText1=Text1&n&""IfkMod5=0ThenText1=Text1&vbCrLfEndIfNextnEndSubPrivateSubCommand2_Click()EndEndSub2.百元买百鸡PrivateSubCommand1_Click()DimiAsInte
2、gerDimjAsIntegerFori=0To20Forj=0To33If5*i+3*j+(100-i-j)*1/3=100ThenText1=Text1&"买"&CStr(i)&"只公鸡"&CStr(j)&"只母鸡"&CStr(100-i-j)&"只小鸡"Text1=Text1&Chr(13)&Chr(10)EndIfNextjNextiEndSubPrivateSubCommand2_Click()EndEndSub3.不靠边元素和PrivateSubCommand1_Click()ClsRandomizeDima(5,5)AsInteger,s%Fori
3、=0To5Forj=0To5a(i,j)=Int(Rnd*9)Printa(i,j)&",";Sum=Sum+a(i,j)NextjPrintNextik=SumSum=0Fori=0To5Sum=Sum+a(i,0)+a(i,5)+a(0,i)+a(5,i)NextiSum=Sum-a(0,0)-a(5,0)-a(5,5)-a(0,5)Text1=k-SumEndSubPrivateSubCommand2_Click()EndEndSub4.递归函数求斐波拉契数列OptionExplicitPrivateSubCommand1_Click()Dima1,a2,
4、bAsIntegerDimi,nAsIntegern=InputBox("显示数列的前N项")a1=1Fori=1Tonb=a1+a2Text1.SelText=b&""a1=a2a2=bNextiEndSubPrivateSubCommand2_Click()EndEndSub5.各位数之和PrivateSubCommand1_Click()DimiAsStringDimj%Dims%i=Text1Forj=1ToLen(i)st=Mid(i,j,1)s=s+Val(st)NextjText2=sEndSubPrivateSubCommand2_Click()
5、EndEndSub6.回文数PrivateSubCommand1_Click()Dimx$,y$,c$,i%x=Text1Fori=1ToLen(x)c=Mid(x,i,1)y=c+yNextiIfy=xThenText2="x是回文数"ElseText2="x不是回文数"EndIfEndSubPrivateSubCommand2_Click()Text1=""Text2=""EndSubPrivateSubCommand3_Click()EndEndSub7.级数求和PrivateSubCommand1_Click()DimiAsInteger,tAsLong
6、,sAsSinglei=0:s=o:t=1Dos=s+1/ti=i+1t=t*iLoopUntil1/t<0.000001Text1=sEndSubPrivateSubCommand2_Click()EndEndSub8.矩阵的转置OptionExplicitOptionBase1DimiAsIntegerDimjAsIntegerDima()AsIntegerDimnAsIntegerPrivateSubCommand1_Click()Text3.SetFocusn=Val(Text3)ReDima(n,n)'动态数组Fori=1TonForj=1Tona(i
7、,j)=Int(10*Rnd+0)'随机数Text1=Text1&a(i,j)&""'一行NextjText1=Text1&Chr(13)&Chr(10)'多行NextiEndSubPrivateSubCommand2_Click()Dimb()AsIntegern=Val(Text3)ReDimb(n,n)Fori=1TonForj=1Tonb(i,j)=a(j,i)'转置Text2=Text2&b(i,j)&""'一行NextjText2=Text2&Chr(13)&Chr(10)'多行NextiEndSubPrivateSubCommand3_Click(
8、)Text1=""Tex
