Option Explicit
Private Sub Form_Click()
Dim iTab As Integer, i As Integer, iLevel As Integer
Dim j As Integer, k As Integer, strTmp As String
iTab = 6
iLevel = 1
For i = 1 To 6
'打印星形
strTmp = ""
If iLevel <= 3 Then
strTmp = String(iLevel, "★")
Else
k = k + 1
For j = 1 To 3
strTmp = strTmp & "★" & String(k, " ")
Next
End If
Print Tab(iTab); strTmp
iTab = iTab - 1
iLevel = iLevel + 1
Next
End Sub