Private Sub Form_Click()

Dim a%(), b%(), n%, i%, j%

n = Val(InputBox("請輸入行數", "楊輝三角"))

Print " 楊輝三角的第 " & n & " 行： "

ReDim Preserve a(1)

ReDim Preserve b(1)

a(1) = 1

b(1) = 1

If n = 1 Then

Print 1

Else

For i = 1 To n

a = b

ReDim Preserve a(i)

ReDim Preserve b(i)

If i = n Then Print b(1);

For j = 2 To i

b(j) = a(j - 1) + a(j)

If i = n Then Print b(j);

Next j

Next i

End If

End Sub

共改3個地方：

1 在第17行Print b(1); 前面加個判斷if i=n then Print b(1);

2 在第20行Print b(j); 前面加個判斷if i=n then Print b(j);

3 將第22行的Print 刪掉

好了 這樣就應該滿足你的需要了