[VB6 ] 一個產生滿天星星的vb程式
我不會寫詩
但喜歡寫vb程式
form1含
text1
command1
command2
command3
Private Sub Command1_Click()
star = " ★ ☆ " + " "
s = Len(star)
Randomize Time
For i = 1 To 20
For j = 1 To 10
k = Int(Rnd * s) + 1
kstr = Mid(star, k, 4) + " "
Text1.Text = Text1.Text + Left(kstr, 4)
Next
Text1.Text = Text1.Text + vbNewLine
Next
End Sub
Private Sub Command2_Click()
star = "☆°．﹒‧°∴°﹒°．﹒‧°∴°﹒°．﹒‧°∵"
s = Len(star)
Randomize Time
For i = 1 To 50
k = Int(Rnd * s) + 1
Text1.Text = Text1.Text + Left(star, k)
Next
End Sub
Private Sub Command3_Click()
Text1.Text = ""
End Sub
--
子曰：「群居終日，言不及義，好行小慧，難矣哉！」(論語衛靈公篇)
子曰：「飽食終日，無所用心，難矣哉！不有博弈者乎？為之猶賢乎已！」(論語陽貨篇)
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.126.56.218