Private Sub Form_Load()
Me.AutoRedraw = True
Dim i As Long, j As Long, n As Long
n = 10 ' 10行
For i = 1 To n
Print Space(n - i) & String(2 * i - 1, "*")
Next
End Sub
Private Sub Command1_Click()
Dim i, j, n As Integer
n = 5 '输出行数
For i = 1 To n
'打印空格
For j = 1 To n - i
Print " ";
Next
'打印*字符
For j = 1 To i * 2 - 1
Print "*";
Next
Print
Next
End Sub