william5629 wrote:
...(恕刪)...
樂線九宮格
...(恕刪)...
VB6 - 樂線九宮格 - 號碼產生器
記得之前是這樣寫的 
Private Sub Command1_Click ( )
Randomize Timer
Text1 = Int((4 - 1 + 1) * Rnd) + 1
Text2 = Int((4 - 1 + 1) * Rnd) + 1 + 4
Text3 = Int((4 - 1 + 1) * Rnd) + 1 + 8
Text4 = Int((4 - 1 + 1) * Rnd) + 1 + 12
Text5 = Int((4 - 1 + 1) * Rnd) + 1 + 16
Text6 = Int((4 - 1 + 1) * Rnd) + 1 + 20
Text7 = Int((4 - 1 + 1) * Rnd) + 1 + 24
Text8 = Int((4 - 1 + 1) * Rnd) + 1 + 28
Text9 = Int((4 - 1 + 1) * Rnd) + 1 + 32
End Sub
行至水窮處,與人云亦云。〔薪水是零元,還活得下去〕。