等腰三角
Private Sub Command1_Click()
For i = 0 To 5
Print Tab(Abs(i) + 1);
For j = 0 To 2 * (4 - Abs(i)) + 2
Print "*";
Next
Print
Next
End Sub
直角三角
Private Sub Form_Click()
For i = 0 To 5
For j = 0 To i
Print "*";
Next
Print
Next
End Sub
根据需要增加行数..
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024