[VB6 ] 一個產生滿天星星的vb程式

[tang1019 (燢)]

我不會寫詩
但喜歡寫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