Question

杨辉三角的vb输出程序是什么

急用啊，谢谢各位啦

Answer 1

Private Sub Form_click()
n= inputbox("输入整数n:")
Dim shuzuer() As Long
Dim shuzu() As Integer
Dim i As Integer

Dim j As Integer
reDim shuzuer(1 To n, 1 To n)

reDim shuzu(1 To n)
Me.Cls

i = 1

j = 1
For i = LBound(shuzuer, 1) To UBound(shuzuer, 1)
For j = LBound(shuzuer, 2) To i
If j = 1 Or j = i Then
shuzuer(i, j) = 1
Else
shuzuer(i, j) = shuzuer(i - 1, j - 1) + shuzuer(i - 1, j) '要打印的数值
End If
Print Tab(5 * (UBound(shuzuer, 1) - 1) - 5 * (i - 1) + 10 * (j - 1)); shuzuer(i, j); '打印成三角形状
Next
Print
Next
End Sub