Private Sub Form_Click()
For i = 1 To 5
Print Tab(6 - i); String(2 * i - 1, "*"); " "; String(2 * (5 - i) + 1, "*")
Next i
End Sub
如果不支持的话,可以用下面的代码:
Private Sub Form_Click()
For i = 1 To 5
Print Tab(6 - i);
for j=1 to 2 * i - 1
print "*";
next j
print " ";
for j=1 to 2 * (5 - i) + 1
print "*";
next j
Next i
End Sub
本回答被网友采纳