China Naming Network - Solar terms knowledge - How to draw lots on the computer
How to draw lots on the computer
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