新的杨辉三角代码[vb]
n = InputBox("")
Dim a(-1 To 500) As Integer
a(-1) = 0: a(0) = 1
For i = 1 To n
For j = 1 To i
k = k + 1
If j = 1 Then
a(k) = 1
Print a(k);
ElseIf i j Then
a(k) = a(k – i) + a(k – i + 1)
Print a(k);
Else
a(k) = 1: Print a(k);
End If
Next j
Print
Next i
duqifan 在 1:40 pm 发布| 有 3 条回复