VB 怎样打出这种数字三角

来源：百度知道 编辑：UC知道 时间：2024/05/25 02:25:37
我的代码 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
这种形式

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

呵呵

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

        *
       ***
      *****
     *******
    *********

Print Tab; String(2 * i - 1, CStr(i)) 这句改为
Print Tab; string(i," ") & String(2 * i - 1, CStr(i))

Private Sub Command1_Click()
Dim