作业帮 > 综合 > 作业

用VB按金字塔形状打印杨辉三角形要求打印前8行,

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/06/25 20:37:27
用VB按金字塔形状打印杨辉三角形要求打印前8行,
用VB按金字塔形状打印杨辉三角形要求打印前8行,
Private Sub Form_Load()
Me.AutoRedraw = True
Dim a(1 To 8,1 To 8) As Integer
For i = 1 To 8
a(i,i) = 1:a(1,i) = 1
Next i
For j = 3 To 8
For i = 2 To j - 1
a(i,j) = a(i - 1,j - 1) + a(i,j - 1)
Next i,j
For j = 1 To 8
For i = 1 To j
Print Tab(20 - 2 * j + 4 * i); a(i,j);
Next i
Print
Next j
End Su