作者tang1019 (燢)
看板Visual_Basic
标题[VB6 ] 一个产生满天星星的vb程式
时间Mon Jun 11 11:50:06 2007
我不会写诗
但喜欢写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