dim i as integer,j as integer,n as integer
dim s as string
n=5 ‘行数
for i=1 to n
s=""
for j=1 to i
s=s & string(j,cstr(j))
next j
debug.print s
next i
dim i as integer,j as integer,n as integer
dim s as string
n=5 ‘行数
for i=1 to n
s=""
for j=1 to i
s=s & string(j,cstr(j))
next j
debug.print s
next i