UC知道vb 用*画三角形
来源：百度知道 编辑：UC知道 时间：2024/05/27 02:58:25
最后 是 这样的*
* *
* * *
* * * *
* * * * *
* * * * * *
* *
* * *
* * * *
* * * * *
* * * * * *
Private Sub Form_Click()
Cls
For i = 1 To 6
Print Tab(8 - i);
For j = 1 To i
Print "* ";
Next
Next
End Sub
Private Sub Form_Click()
Cls
For i = 1 To 6
For j = 1 To i
Print "*一个空格";
Next
Print Chr$(13)+Chr$(10)
Next
End Sub
你试一试看，出错了你在发下打出的图形给我看看，我在修改。