Private Sub Command1_Click()
Dim r%,c%,t%
For r = 1 To 9
t = 0
Print Spc(9 - r);
For c = 1 To 2 * r - 1
If c 只编出了上半部分,没下半部分,也就是倒过来显示,请问怎么编写,谢谢Private Sub Command1_Click()Dim r%, c%, t%For r = 1 To 7t = 0If r <= 4 Then Print Spc(4 - r); Else Print Spc(r - 4);For c = 1 To IIf(r <= 4, 2 * r - 1, 2 * (8 - r) - 1)If c <= IIf(r <= 4, r, 8 - r) Then t = t + 1 Else t = t - 1Print CStr(t);Next cPrintNext rEnd Sub