Private subcommand 1_Click ()
Open the application. Path and path. "\ 1.txt" as # 1
Do While Not EOF( 1)
Enter # 1, sj.
Combo 1。 AddItem sj
ring
Combo 1。 Text = Combo 1。 List (0)
Close # 1
End joint
Private subcommand 2_Click ()
Randomization (timer)
k = Int(Rnd * Combo 1。 List count)
For i = 1 to 1000.
For j = 0 to Combo 1. List count
Multiple activities
Combo 1。 Text = Combo 1。 List (j)
If i = 1000 and j = k, then go to KK.
Next J.
Next, I
KK:
MsgBox "Congratulations"&; Combo 1。 List (k) and "winning!"
Combo 1。 Remove item k
End joint