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