Out-of-order code:
Private? Sub？ CommandButton 1_Click()
What if? Command button 1. Title? =? "Start"? then
Command button 1. Title? =? "Stop"
Text box 1. Words? =? Format (Int(Rnd? *? 99? +? 1),? "00")
other
Command button 1. Title? =? "Go"
End? if
End? submarine
Private? Sub？ TextBox 1_Change()
do
Call? Delay (0. 1)' Adjust the random speed here, now it is 0. 1 sec, and adjust it according to your own wishes.
What if? Command button 1. Title? =? "Start"? then what Quit submarine
Text box 1. Words? =? Format (Int(Rnd? *? 99? +? 1),? "00")
ring
End? submarine
Private? Sub？ Delay (t? As? Single)
Dim? T 1？ As? single
T 1？ =? timer
do
Multiple activities
Cycle? What time? Timer? -? T 1？ & lt？ T
End? submarine
Order code:
Private? Sub？ CommandButton 1_Click()
What if? Command button 1. Title? =? "Start"? then
Command button 1. Title? =? "Stop"
Text box 1. Words? =? Format (1,? "00")
other
Command button 1. Title? =? "Go"
End? if
End? submarine
Private? Sub？ TextBox 1_Change()
do
Call? Delay (0. 1)
What if? Command button 1. Title? =? "Start"? then what Quit submarine
What if? Text box 1. Words? =? 99? then
Text box 1. Words? =? Format (1,? "00")
other
Text box 1. Words? =? Format (text box 1. Words? +? 1,? "00")
End? if
ring
End? submarine
Private? Sub？ Delay (t? As? Single)
Dim? T 1？ As? single
T 1？ =? timer
do
Multiple activities
Cycle? What time? Timer? -? T 1？ & lt？ T
End? submarine