用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
