VB中杨辉三角

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/01 07:46:28
VB中杨辉三角
xuQKj0Ժ 8^2ń$t[X6RrldUOJOTy7-z8}ՍJ)kSycQ&9YEV;I)},Y$AUMls}.BU 

VB中杨辉三角
VB中杨辉三角

VB中杨辉三角
Private Sub Form_Click()
N = InputBox("", "", 5)
ReDim a(N + 1, N + 1), b(N + 1, N + 1)
Cls
k = 8
For I = 1 To N
Print String((N - I) * k / 2 + 1, " ");
For J = 1 To I
a(I, 1) = 1
a(I, I) = 1
a(I + 1, J + 1) = a(I, J) + a(I, J + 1)
b(I, J) = Trim(Str(a(I, J)))
Print b(I, J); String(k - Len(b(I, J)), " ");
Next J
Print
Next I
End Sub