来个高手展示一下实力

Dim S As String
For i = 1 To 5
Print String(5- i, " ");
S = ""
For j = 1 To i
S = S & j
Next j
For k = i - 1 To 1 Step -1
S = S & k
Next k
Print S
Next i
For i = 5 - 1 To 1 Step -1
Print String(5 - i, " ");
S = ""
For j = 1 To i
S = S & j
Next j
For k = i - 1 To 1 Step -1
S = S & k
Next k
Print S
Next i