新的杨辉三角代码[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
注意 杜启帆就是我本人拉 呵呵
Comment by duqifan — May 31, 2006 @ 2:15 pm
杜启帆是你！我认识，就是那个本事很大的那一位，希望全面发展！
Comment by 阿拉上海人 — June 28, 2006 @ 7:34 am
最近有什么新的杰作！希望能经常看到你的计算机方面的新内容和新的学习作品，同时，也恳切希望学习文化知识和各个方面全面发展！
Comment by 阿拉上海人 — July 5, 2006 @ 5:36 am