China Naming Network - Baby naming - Teacher lottery software
Teacher lottery software
Option explicit
Private subcommand 1_Click ()
Define an array to store names.
Dim RStr(0 to 9) as a string.
Dim i，j，k
Assign a value to the number to scroll.
The actual usage should be RStr(0)= 1