Question

VB 怎样打出这种数字三角

我的代码 For i = 1 To 9
For m = 1 To 2 * i - 1

Next m
Print Tab; String(2 * i - 1, CStr(i))
Next i

结果是
1
222
33333
44444
.......................

要求是
1
222
33333
........
就是没有居中 谁会弄？
百度没有空格 啊 就是说 要居中 成三角行
1 1
1 222
1 33333
这种形式

Answer 1

呵呵厅培

Private Sub Form_Click()
Cls
Dim i%, j%
For i = 1 To InputBox("输入行数")
    For j = 1 To 2 * i - 1
        Print Tab(10 - i + j); "宏伏镇*";
    Next j
    Print
Next i
End Sub

        *
       蔽粗***
      *****
     *******
    *********

Answer 2

Dim i As Integer
For i = 1 To 4
Print Space(4 - i) + String(2 * i - 1, CStr(i))
Next i

Answer 3

Private Sub Command1_Click()
Dim i As Integer
Dim n As Integer
n = 9
For i = 1 To n
Print Space$(n - i); String(2 * i - 1, CStr(i))
Next i

End Sub

Answer 4

Print Tab; String(2 * i - 1, CStr(i)) 这句弊指举逗弊改为租碧
Print Tab; string(i," ") & String(2 * i - 1, CStr(i))