用vb程序代码“*”围成的一个空心三角形,谢谢噢!
发布网友
发布时间：45分钟前
共1个回答
热心网友
时间：8分钟前
Private Sub Form_Load()
Me.AutoRedraw = True
Print Tab(9); "*"
For i = 1 To 6
Print Tab(9 - i); "*"; Spc(2 * i - 1); "*"
Next i
Print Tab(2); String(2 * i + 1, "*")
End Sub
