Question

VB输出金字塔杨辉三角，帮忙改一下

Dim i() As Integer
Dim n As Integer
Dim a As Integer, b As Integer
Private Sub Command1_Click()
n = InputBox("输入")
ReDim i(n + 1, n + 1)
For a = 1 To n + 1
i(a, a) = 1: i(a, 1) = 1
Next a
For a = 3 To n + 1
For b = 2 To n
i(a, b) = i(a - 1, b - 1) + i(a - 1, b)
Next b
Next a
For a = 1 To n + 1
For b = 1 To a
Print Space(2 * (n - a + 1)); i(a, b);
If i(a, b) < 10 Then
Print Space(a);
Else
Print Space(a - 1);
End If
Next b
Print
Next a
End Sub

让他更贴近金字塔形状

Answer 1

Dim i() As Integer
Dim n As Integer
Dim a As Integer, b As Integer
Private Sub Command1_Click()
Dim sp1%
sp1 = 2 '因n而变
n = InputBox("输入")
ReDim i(n + 1, n + 1)
For a = 1 To n + 1
i(a, a) = 1: i(a, 1) = 1
Next a
For a = 3 To n + 1
For b = 2 To n
i(a, b) = i(a - 1, b - 1) + i(a - 1, b)
Next b
Next a
For a = 1 To n + 1
Print Space(sp1 * (n - a + 1) + 2);
For b = 1 To a
Print i(a, b) & Space(2 * sp1 - Len(i(a, b) & ""));
Next b
Print
Next a
End Sub

Answer 2

Dim i() As Integer
Dim n As Integer
Dim a As Integer, b As Integer
Private Sub Command1_Click()
n = InputBox("输入")
ReDim i(n + 1, n + 1)
For a = 1 To n + 1
i(a, a) = 1: i(a, 1) = 1
Next a
For a = 3 To n + 1
For b = 2 To n
i(a, b) = i(a - 1, b - 1) + i(a - 1, b)
Next b
Next a
For a = 1 To n + 1
Print Space(2 * (n - a + 1));
For b = 1 To a
Print i(a, b);
If i(a, b) < 10 Then
Print " ";
Else
Print "";
End If
Next b
Print
Next a
End Sub