高职考VB技能提升教程003期 杨辉三角 高考信息技术必备

Private Sub Form_Load()
Show
Dim k&, p&, i&, j&
k = 8 '表示有几行
p = 2 * k - 1 '表示有几列
'声明一个二维数组
Dim n() As Long '动态数组
ReDim n(k, p) As Long '定义二维数组
'开始将杨辉三角存入二维数组
If k = 1 Then  '只有一行的处理
    Print 1
    Exit Sub
End If
'初始化第一行的中间值
n(1, Int(p / 2) + 1) = 1
For i = 2 To k Step 1
    For j = 1 To p - 1 Step 1
        n(i, j) = n(i - 1, j - 1) + n(i - 1, j + 1)
    Next j
Next i
'最后一个值直接赋值
n(k, p) = 1
'输出杨慧三角
For i = 1 To k Step 1
    For j = 1 To p Step 1
        If n(i, j) = 0 Then
            Print Spc(3);
        Else
            Print n(i, j);
        End If
    Next j
    Print '换行
Next i
End Sub