Question

VB用单循环显示有规律图形，呈三角形。 1 222 33333 4444444 怎么做？

Answer 1

Private
Sub
Command1_Click()
Dim
n
'定义一个n,可以变成自己输
n
=
5
For
i
=
1
To
n
s1$
=
i
&
i
&
i
&
i
&
i
&
i
&
i
&
i
&
i
&
i
&
i
&
i
&
i
&
i
&
i
&
i
'定义一个由i组成的字符串,长度
应该为2*n个以上
s$
=
Space(n
-
i
+
1)
&
Mid(s1,
1,
2
*
i
-
1)
&
Space(n
-
i
+
1)
'得到一个前面空格,中间取i,后面取空格的字符串
Print
s
'输出s
Next
i
End
Sub