Question

用VB编写一个无参数Sub过程Triangle，在窗体上输出用“*”组成的如下图所示的三角形图案。

*
* * *
* * * * *
* * * * * * *
* * * * * * * * *

Answer 1

Private Sub Command1_Click()
Call Triangle(6)
End Sub
Private Sub Triangle(N As Integer)
Dim i As Integer
Me.Cls
For i = 1 To N
Print Tab(N - i + 1); String(2 * i - 1, "*")
Next
End Sub