. Assembly? Window Assembly _ Start Window
. Subroutine? _ button 1_ was clicked.
Clock 1. Clock period? =? 0
Information box? ("The automatic lottery has stopped!" ,? 0,? ,? )
. Subroutine? Shake it? Text type
Set a random number seed? ()
Return? (Zhiwen? (Take a random number? (0,? 9)))
. Subroutine? _ Button 2_ has been clicked.
Information box? ("The automatic lottery begins!" ,? 0,? ,? )
Clock 1. Clock period? =? Convert to an integer? (Edit box 1. Content)? ×? 1000
. Subroutine? _ Clock 1_ periodic event
Label 1. Title? =? Shake it? ()
Label 2. Title? =? Shake it? ()
Label 3. Title? =? Shake it? ()
Label 4. Title? =? Shake it? ()
Label 5. Title? =? Shake it? ()
Label 6. Title? =? Shake it? ()
. Subroutine? _ _ Start Window _ will be destroyed.
Clock 1. Clock period? =? 0
_ Start the window. Destroy? ()
This is all the source code.
Screenshot of the effect, because there is no place to upload source code. Just post it directly, and it can be executed without any module.