用label标签做金字塔，网上查的基本都有print，学不太会|ﾟДﾟ)))
这道题我能出三角形的形状，但每个字符中间加不了空格，而且字符不是那种递增形式，希望大佬们能给个思路或者程序。

Private Sub Button1_Click()
Dim N As Integer, i As Integer, j As Integer, S As String
Do
N = Int(InputBox(""))
Loop Until N > 0 And N < 10
For i = 1 To N
S = String(2 * (N - i) + 1, " ")
For j = 1 To i
S = S & j & " "
Next
For k = i - 1 To 1 Step -1
S = S & k & " "
Next
Print S
Next
End Sub

Private Sub Button1_Click()
Dim N As Integer, i As Integer, j As Integer, S As String
Label1.Caption = ""
Do
N = Int(InputBox(""))
Loop Until N > 0 And N < 10
For i = 1 To N
S = String(2 * (N - i) + 1, " ")
For j = 1 To i
S = S & j & " "
Next
For k = i - 1 To 1 Step -1
S = S & k & " "
Next
Label1.Caption = Label1.Caption & S & vbCrLf
Next
End Sub

@初音
七奈：大佬帮我看看，为什么5楼这个程序labe1第一行对不齐