UC知道急急~~VB杨辉三角~~怎么修改能成对齐的等腰三角~~在线等
来源：百度知道 编辑：UC知道 时间：2024/06/22 20:26:28
Dim n As Integer, a(20, 20) As Integer, i As Integer, j As Integer
On Error GoTo k
n = InputBox("请输入n")
For i = 1 To n + 1: a(i, 1) = 1: a(i, i) = 1: Next i
For i = 3 To n + 1
For j = 2 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j, i
For i = 1 To n + 1
Print Tab(45 - 2 * i);
For j = 1 To i
Print Space(5 - Len(Trim(Str(a(i, j))))); Trim(Str(a(i, j)));
Next j
Print
Next i
Exit Sub
k: MsgBox "输入n值，数组下标超界。"
On Error GoTo k
n = InputBox("请输入n")
For i = 1 To n + 1: a(i, 1) = 1: a(i, i) = 1: Next i
For i = 3 To n + 1
For j = 2 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j, i
For i = 1 To n + 1
Print Tab(45 - 2 * i);
For j = 1 To i
Print Space(5 - Len(Trim(Str(a(i, j))))); Trim(Str(a(i, j)));
Next j
Next i
Exit Sub
k: MsgBox "输入n值，数组下标超界。"
Dim m As Integer, n As Integer, a(45, 45) As Integer, i As Integer, j As Integer
On Error GoTo k
n = InputBox("请输入n")
For i = 1 To n + 1: a(i, 1) = 1: a(i, i) = 1: Next i
For i = 3 To n + 1
For j = 2 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j, i
m = 6
For i = 1 To n + 1
Print String((n + 1 - i) * m / 2 + 1, " ");
For j = 1 To i
Print Trim(Str(a(i, j))); String(m - Len(Trim(Str(a(i, j)))), " ");
Next j
Print
Next i
Exit Sub
k: MsgBox "输入n值，数组下标超界。"