用vb编写电脑彩票程序

私人？Sub？Command1_Click()

静电？k

k？=?k？+?1

如果？k？Mod？2?=?1?然后

定时器1。区间？=?20

命令1。标题？=?“停止”

其他

定时器1。区间？=?0

命令1。标题？=?“走”

结束？如果

结束？潜水艇

私人？Sub？Form_Load()

xm？=?阵(“张三”，？“李四”？“王五”？“刘钊”？“钱起”？“孙霸”？“九周”？《武氏》？《郑屠》)

n？=?UBound(xm)？+?1

Text1。FontSize？=?16

Text1？=?""

命令1。标题？=?“走”

结束？潜水艇

私人？Sub？定时器1 _定时器()

x？=?Int(Rnd？*?n)

Text1？=?xm(x)

结束？潜水艇