求助vb代码打出下面的数字塔 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1

千问 · 2011-3-13 03:41:23

<pre id=\"best-answer-content\" class=\"reply-text mb10\">Private Sub Command1_Click()
x = InputBox(\"请输入所要打印的最大数字：\")
For i = 1 To x
Print Space$(3 * x 6 - 3 * i);
For j = 1 To i

Print j;
Next j
For j = 1 To i - 1

Print i - j;
Next j
Print
Next i
End Sub

求助vb代码 打出下面的数字塔 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1

求助vb代码打出下面的数字塔 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1