打印出这个形状不限程序语言（A*算法核心内容）6543210765432187654329876543从右上角开始直到左下角不再是零结束这个算法是A*的关键一步,想看看大家有没有什么好方法.望不

Question

打印出这个形状 不限程序语言（A*算法核心内容）
6 5 4 3 2 1 0
7 6 5 4 3 2 1
8 7 6 5 4 3 2
9 8 7 6 5 4 3
从右上角开始 直到左下角不再是零结束
这个算法是A*的关键一步,想看看大家有没有什么好方法.
望不吝赐教

Answer 1

用VB编写
Private Sub Command1_Click()
Dim i, j, x, y As Integer
i = Val(InputBox(“随便”))
Text1.Text = ""
y = i
For j = 1 To 100
For x = 0 To i
Text1.Text = Text1.Text & y & " "
y = y - 1
Next x

Text1.Text = Text1.Text & vbCrLf
y = i + j
If y > 9 Then Exit Sub
Next j
End Sub