如何让随机抽奖中的名字动起来？(VB语言)
私有子命令1_Click()
If命令1。Caption = "开始"
定时器1。启用=真
命令1。Caption = "结束"
其他
定时器1。启用=假
命令1。Caption = "Go "
如果…就会结束
末端接头
私有子窗体_Load()
定时器1。间隔= 10
定时器1。启用=假
Text1。FontSize = 20
末端接头
私有子定时器1_Timer()
将r标注为整数
r = Int(51 * Rnd + 1)
如果r = 1那么k = "嘬噜噜"
如果r = 2，那么k =“黄德清”
如果r = 3，那么k =“王慧”
如果r = 4，那么k =“张毅”
如果r = 5，那么k =“京任人”
如果r = 6那么k =“高丽娜”
如果r = 7，那么k =“金兰兰”
如果r = 8，那么k =“孙炳喜”
如果r = 9，那么k =“毛金凤”
如果r = 10，那么k = "李小明"
如果r = 11，则k = "崔宜春"
如果r = 12那么k = "曹露露"
如果r = 13，则k =“刘”
如果r = 14，那么k =“张术平”
如果r = 15，那么k =“陈雅丽”
如果r = 16那么k = "齐苗苗"
如果r = 17，那么k =“赵明明”
如果r = 18，则k =“刘·”
如果r = 19那么k = "张斌"
如果r = 20，那么k =“刘文亨”
如果r = 21，那么k =“黄飞燕”
如果r = 22，那么k =“王良”
如果r = 23，那么k =“常洪宽”
如果r = 24，那么k =“他韦偃”
如果r = 25，那么k =“杨鹏飞”
如果r = 26，那么k =“陈登”
如果r = 27，那么k =“雕飞象”
如果r = 28，那么k =“黄”
如果r = 29，那么k =“陈永杰”
如果r = 30那么k =“刘伯温”
如果r = 31，那么k =“王梓”
如果r = 32，那么k =“张亚伟”
如果r = 33，那么k =“Xi·博帅”
如果r = 34，那么k =“李岩”
如果r = 35那么k = "李彩龙"
如果r = 36，那么k =“夏延符号”
如果r = 37，那么k =“张紫阳”
如果r = 38，那么k =“齐孟忠毅”
如果r = 39那么k =“张强”
如果r = 40，那么k =“厉豪强”
如果r = 41，那么k =“郭晓峰”
如果r = 42那么k = "王维波"
如果r = 43，那么k =“王恒”
如果r = 44，那么k =“毕夏·南”
如果r = 45，那么k =“孟”
如果r = 46，那么k =“郭”
如果r = 47那么k =“马士林”
如果r = 48，那么k =“侯彪”
如果r = 49，那么k =“朱磊”
如果r = 50，那么k =“张瑜”
如果r = 51那么k = "常小雨"
Text1。Text = k
末端接头