史萊姆論壇 - 查看單個文章

yangchihwei · 2009-01-13, 06:22 PM

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

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

2009-01-13, 06:22 PM	#9 (permalink)
yangchihwei 註冊會員榮譽勳章勳章總數0 UID - 288881 在線等級: 註冊日期: 2007-12-21 文章: 33 精華: 0 現金: 47 金幣資產: 77 金幣	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 不好意思,小弟比較懶一點.

	送花文章: 116, 收花文章: 32 篇, 收花: 144 次