Private subcommand 1_Click ()
If command 1. Caption = "Go"
Timer 1. Enabled = true
Command 1. Caption = "End"
other
Timer 1. Enabled = False
Command 1. Caption = "Go "
If ... it will be over.
End joint
Private Sub-Form _Load ()
Timer 1. Interval = 10
Timer 1. Enabled = False
Text 1。 FontSize = 20
End joint
Private sub-timer 1_Timer ()
Mark r as an integer
r = Int(5 1 * Rnd + 1)
If r = 1, then k = "lulu"
If r = 2, then k = "Huang Deqing"
If r = 3, then k = "Shine Wong"
If r = 4, then k = "Zhang Yi"
If r = 5, then k = "Beijing Ren Ren"
If r = 6, then k = "Gao Lina"
If r = 7, then k = "Cam Ranh"
If r = 8, then k = "Sun Bingxi"
If r = 9, then k = "Mao Jinfeng"
If r = 10, then k = "Li Xiaoming".
If r = 1 1, then k = "Cui Yichun"
If r = 12, then k = "Cao Lulu"
If r = 13, then k = "Liu"
If r = 14, then k = "Zhang Shuping".
If r = 15, then k = "Chen Yali".
If r = 16, then k = "Qi Miao Miao"
If r = 17, then k = "Zhao Mingming".
If r = 18, then k = "Liu"
If r = 19, then k = "Zhang Bin".
If r = 20, then k = "Liu Wenheng"
If r = 2 1, then k = "Huang Feiyan".
If r = 22, then k = "Wang Liang"
If r = 23, then k = "Chang Hongkuan"
If r = 24, then k = "He Wei Yan"
If r = 25, then k = "Yang Pengfei"
If r = 26, then k = "Chen Deng"
If r = 27, then k = "Carve an elephant"
If r = 28, then k = "yellow"
If r = 29, then k = "Chen Yongjie"
If r = 30, then k = "Liu Bowen"
If r = 3 1, then k = "Zi Wang".
If r = 32, then k = "Zhang Yawei"
If r = 33, then K = "Xi Boshuai"
If r = 34, then k = "Yan Li"
If r = 35, then k = "Li Cailong"
If r = 36, then k = "Cheyenne symbol"
If r = 37, then k = "Zhang Ziyang"
If r = 38, then k = "Qi Mengfei"
If r = 39, then k = "Zhang Qiang"
If r = 40, then k = "Li Haoqiang".
If r = 4 1, then k = "Guo Xiaofeng".
If r = 42, then k = "Wang Weibo"
If r = 43, then k = "Wang Heng".
If r = 44, then k = "Bi Xia Nan"
If r = 45, then k = "Meng"
If r = 46, then k = "Guo"
If r = 47, then k = "Ma Shilin"
If r = 48, then k = "Hou Biao"
If r = 49, then k = "Lei Zhu"
If r = 50, then k = "yu zhang".
If r = 5 1, then k = "constant light rain"
Text 1。 Text = k
End joint