Question

vb编程,按金字塔形状打印n阶杨辉三角由文本框输入

Answer 1

Private Sub Form_Click()
Dim A() As Long, N As Long, I As Long, J As Long, X As Long
N = Val(Text1.Text)
If N > 16 Or N <= 0 Then
MsgBox "数值错误，重新输入行数"
Exit Sub
End If
ReDim A(N, N)
Me.Cls
    For I = 1 To N
        For J = 1 To I
            If J = 1 Or I = J Then
                A(I, J) = 1
            Else
                A(I, J) = A(I - 1, J - 1) + A(I - 1, J)
            End If
        Next J
    Next I
For I = 1 To N
Print Spc(48 - 3 * I);
    For J = 1 To I
    Print A(I, J);
    X = Len(CStr(A(I, J)))
        If X = 1 Then Print Spc(3);
        If X = 2 Then Print Spc(2);
        If X = 3 Then Print Spc(1);
    Next J
    Print
    Print
Next I
End Sub