大家好~请教一个关于 嵌套循环的问题

Question

初学VB 遇到这样一个问题，
就是用循环语名和tab()函数， 
输出这样的一个图形：
     1
    222
   33333
  4444444
 555555555
  4444444
   33333
    222
     1
请问一下~要怎么才能实现这样的效果呢！

Answer 1

Private Const N = 5
Private Sub Command1_Click()
Dim i As Integer
Dim J As Integer
For i = 1 To N
    For J = i To N
        Print Tab;
    Next
    For J = 1 To i
        Print i; Tab; Tab;
    Next
    Print
Next
End Sub
--------------
结果：
     1
    222
   33333
  4444444
 555555555
--------------------
下半部分自己写吧，不思考是不行的

Answer 2

Private Sub Form_Click()
    Dim x As Integer, y As Integer
    Cls
    For x = 1 To 9
        y = Abs(x - 5)
        Print Space(y);
        Print String(9 - y * 2, Chr(53 - y))
    Next
End Sub

Answer 3

Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, tmp As String
n = Text1.Text
For i = 1 To n
 For j = 1 To 2 * i - 1
    tmp = tmp & i
 Next j
  Print Space((2 * n - 2 * i) / 2) & tmp & Space((2 * n - 2 * i) / 2)
  tmp = ""
Next iFor i = n - 1 To 1 Step -1
 For j = 2 * i - 1 To 1 Step -1
 tmp = tmp & i
 Next j
  Print Space((2 * (n - 1) - 2 * (i - 1)) / 2) & tmp & Space((2 * (n - 1) - 2 * (i - 1)) / 2)
  tmp = ""
Next i
End Sub
我也来。