电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

螺旋数列多种版本VIP免费

螺旋数列多种版本_第1页
1/5
螺旋数列多种版本_第2页
2/5
螺旋数列多种版本_第3页
3/5
用VB写出螺旋数字打印的代码:代码实现在窗体上打印如下列文字的效果:01020304050607080910363738394041424344113564656667686970451234638485868788714613336283969798897247143261829500999073481531608194939291744916305980797877767550172958575655545352511828272625242322212019PrivateFunctionMin(ByValn1AsDouble,ByValn2AsDouble)AsDoubleMin=IIf(n1=X-CThen'纵向打印Ys=Ys+1ElseIfXs>C+1Then'反向横向打印Xs=Xs-1ElseIfYs>C+1Then'反向纵向打印Ys=Ys-1ElseC=C+1'每循环完一圈就加一个,成为里面一个圈开始Xs=Xs+1'每循环完一圈第一个开始的坐标加一个EndIfCurrentX=Xs*400'设置X、Y坐标CurrentY=Ys*400PrintI'打印数字'PrintFormat(I,"000")'也可以格式化再打印NextIEndSubOptionExplicitPrivateSubForm_Load()AutoRedraw=True:ForeColor=vbWhite:Width=6975:Height=4185:BorderStyle=3:Caption="LuoXuan"DimiAsLong,jAsLong,wayAsLong,mCAsLong,mIAsLong,kAsLong,pAsLong,qAsLongi=9:j=10:mC=1:k=171DomI=mI+1:k=k-1:DoEventsp=i*400-360:q=j*200-160Line(p,q)-Step(360,160),vbBlack,BFCurrentX=p+40:CurrentY=q:PrintCStr(k)Ifk=0ThenExitDoSelectCasewayCase0:j=j-1Case1:i=i-1Case2:j=j+1Case3:i=i+1EndSelectIfmI=mCThenmI=0:mC=mC+1:way=IIf(way=3,0,way+1)LoopEndSubOptionExplicitPrivateSubForm_Click()ConstPIAsSingle=3.14159265DimR()AsLong,M&,N&Dimx&,y&,i&,a#'初始化M=Val(InputBox("请输入横排个数!","请输入数字",10))'得到横向个数N=Val(InputBox("请输入纵排个数!","请输入数字",10))'得到纵向个数ReDimR(M+1,N+1)AsLongForx=0ToM+1R(x,0)=-1R(x,N+1)=-1NextFory=0ToN+1R(0,y)=-1R(M+1,y)=-1Next'小虫初始状态x=1:y=1:a=0:R(x,y)=1'小虫爬行Fori=2ToM*NIfR(x+Round(Sin(a)),y+Round(Cos(a)))=0Thenx=x+Round(Sin(a))y=y+Round(Cos(a))R(x,y)=iElsea=a+PI/2i=i-1EndIfNext'输出结果Forx=1ToMFory=1ToNPrintFormat(R(x,y),"@@@@@");NextPrintNextEndSubPrivateSubProgram1()'根据行、列计算数字,适合Print语句直接输出DimmAsInteger,nAsInteger,sAsInteger,LevelAsIntegerDimD1AsInteger,D2AsInteger,D3AsInteger,D4AsIntegerDimiAsInteger,jAsIntegerm=Val(InputBox("输入行数:",,10)):n=Val(InputBox("输入列数:",,10)):s=m+nFori=1TomForj=1TonLevel=Min(i,Min(m-i+1,Min(j,n-j+1)))D1=1+2*(2+s-2*Level)*(Level-1)D2=D1+n-2*Level+1D3=D2+m-2*Level+1D4=D3+n-2*Level+1Ifi=LevelThenPrintFormat$(D1+j-Level,"000");ElseIfj=LevelThenPrintFormat$(D4+m-Level+1-i,"000");ElseIfi=m-Level+1ThenPrintFormat$(D3+n-Level+1-j,"000");ElsePrintFormat$(D2+i-Level,"000");EndIfNextjPrintNextiEndSub

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

螺旋数列多种版本

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部