Advertisement
2_2002-2004 Complete Applications #118372

A Cool Lottery Game

A cool wat to play the lottery.

AI

AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Source Code
original-source
dim T as integer
dim random as integer
dim I as integer
Private Sub command2_Click()
 

 For I = 0 To 5
  Randomize
  Random = Int((Rnd * 51) + 1)
  lblLottery(I).Caption = Random
 Next I
End Sub
Private Sub Command1_Click()
Text1(0).SetFocus
For T = 0 To 5
Text1(T) = ""
Next T
For I = 0 To 5
lblLottery(I).Caption = ""
Next I
End Sub
Upload
Original Comments (3)
Recovered from Wayback Machine