Question

VB 打印菱形金字塔

Private Sub Form_Click()
For i = 1 To 9

If i < 6 Then
Print Tab(6 - i);
For j = 1 To i * 2 - 1
Print CStr(i);
Next j
Else
Print Tab(i - 5);
For j = 1 To (-2 * i + 9)
Print CStr(i);
Next j

End If

Next i

End Sub

我这么打有什么错吗？
1
222
33333
4444444
555555555
6666666
77777
888
9

Answer 1

不懂？给你个地址，也是这种问题，我在那里有详细的代码支持
http://z.baidu.com/question/122566684.html
Private Sub Form_Click()
For i = 1 To 9

If i < 6 Then
Print Tab(6 - i);
For j = 1 To i * 2 - 1
Print CStr(i);
Next j
Else
Print Tab(i - 4);
For j = 1 To 2 * (10 - i) - 1
Print CStr(10 - i);
Next j

End If

Next i

End Sub
改过之后的代码
你看一下就会明白了
你的下半部分，也就是一旦超过5之后的循环代码出现了错误，这是因为你没有观察好递增对于图形输出的制约。自己再看看吧

Answer 2

两个地方
一个是 Print Tab(i - 5);这句，当i=6时前面只tab一格，而当i=5时Print Tab(6 - i);也是1格，不合题意，应改为Print Tab(i - 4);

另一个是For j = 1 To (-2 * i + 9) 自己演算一下吧，应改为For j = 1 To (2 * (10 - i) - 1)