Private Sub Form_Load()
Dim n As Integer
Dim i As Integer, j As Integer
n = 8
For i = 0 To n - 1
yang(i, i) = 1
yang(i, 0) = 1
Next i
For i = 2 To n - 1
For j = 1 To i
yang(i, j) = yang(i - 1, j - 1) + yang(i - 1, j)
Next j
Next i
Form1.AutoRedraw = True '输出
For i = 0 To n - 1
For j = 1 To (8 - i) * 2
Print " ";
Next j
For j = 0 To i
Print yang(i, j) & " ";
Next j
Print vbNewLine
Next i
End Sub
Private Sub Form_Load()
Dim n As Integer
Dim i As Integer, j As Integer
n = 8 '输出的行数
For i = 0 To n - 1 '第1列和对角线上的元素置1
yang(i, i) = 1
yang(i, 0) = 1
Next i
For i = 2 To n - 1 '给杨辉三角形其它元素置数
For j = 1 To i
yang(i, j) = yang(i - 1, j - 1) + yang(i - 1, j)
Next j
Next i
Form1.AutoRedraw = True '输出
For i = 0 To n - 1
For j = 0 To i
Print yang(i, j);
Next j
Print vbNewLine
Next i
End Sub