Dim RStr(0 to 7) as a string.
Dim i，j，k，n
Private subcommand 1_Click ()
If command 1. Caption = "Go"
Command 1. Caption = "End"
Do it while doing it 1
If command 1. Caption = "Go"
Exit Do
If ... it will be over.
Multiple activities
Irregular
k = Int(Rnd * n)
Text 1。 Text = RStr(k)
Text 1。 recover one's spirit
For i = 1 to 30000
If command 1. Caption = "Start "and then quit.
Multiple activities
Next, I
ring
RStr(k)= RStr(n- 1):n = n- 1
other
Command 1. Caption = "Go "
If ... it will be over.
Display Jzdcs as an integer.
End joint
Private Sub-Form _Load ()
n = 8
RStr(0) = "Section 1 8: 00-8: 45 Subject:"
RStr( 1) = "Section II 8: 55-9: 40 Project:"
RStr(2) = "Part III 9: 55- 10: 40 Theme:"
RStr(3) = "Section IV10: 50—11:35 Theme:"
RStr(4) = "Part V13: 30—14:15 Theme:"
RStr(5) = "Section VI14: 30—15:15 Theme:"
RStr(6) = "Section VII15: 25—16:10 Theme:"
RStr(7) = "Part VIII 16: 20— 17: 05 Subject:"
End joint