数列问题，在线等，请大家帮忙!谢谢
１１ ２ １
１ ２ ３ ２ １
１ ２ ３ ４ ３ ２ １
１ ２ ３ ４ ５ ４ ３ ２ １
１ ２ ３ ４ ５ ６ ５ ４ ３ ２ １
１ ２ ３ ４ ５ ６ ７ ６ ５ ４ ３ ２ １
１ ２ ３ ４ ５ ６ ７ ８ ７ ６ ５ ４ ３ ２ １
１ ２ ３ ４ ５ ６ ７ ８ ９ ８ ７ ６ ５ ４ ３ ２ １
这个数列我弄了一天也没有实现，请大家帮忙,谢谢!
Dim a(1 To 17, 1 To 9) As Integer
Dim r(1 To 9) As String
For i = 1 To 9
For v = i To 1 Step -1
a(i, 10 - v) = i - v + 1
Next v
Next i
For p = 1 To 8 Step 1
For t = 1 To 8 - p Step 1
a(p + 9, p + t + 1) = t
Next t
Next p
For s = 1 To 9
For k = 1 To 17
If a(k, s) <> 0 Then
r(s) = r(s) & Str(a(k, s))
ElseIf a(k, s) = 0 Then r(s) = r(s) + " "
End If
Next k
Print r(s)
Next s
[此贴子已经被作者于2005-8-5 16:51:17编辑过]
