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...
Private Sub Command1_Click()Dim a%(), i%, j%n = InputBox("请输入n")ReDim Preserve a(1 To n, 1 To n)For i = 1 To n For j = 1 To i a(i, j) = 1 a(i, 1) = 1 Next j...