Question

vb输出数字金字塔

1
222
33333
4444444
555555555
6666666
77777
888
9

如图输出该数字塔

Answer 1

示例代码如下：
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim s As String
For i = 1 To 5 Step 1
    s = String(i * 2 - 1, CStr(i))
    Print Spc((10 - i * 2) / 2); s
Next i
For j = 6 To 9 Step 1
    s = String(9 - 2 * (j - 5), CStr(j))
    Print Spc(j - 5); s
Next j
End Sub