[rank]

作者: yangchihwei

Dim I, J, h As Integer
TextBox1.Text = ""
For I = -6 To 6
For J = 0 To 6 - Math.Abs(I)
TextBox1.Text = TextBox1.Text & "★"
Next
TextBox1.Text = TextBox1.Text & vbNewLine '換行字元
Next

不好意思,小弟比較懶一點.

也是另一種思維,感覺不錯