VB彩票程序代码

Dim数组()

模糊计数

私有子窗体1_Load(sender作为对象,e作为EventArgs)处理MyBase。负荷

Array = { "李欢","巩俐","谭贤亮","王涛","许","刘烨","郑全亨","廖伟","郭为","李健" }

计数=数组。数数

末端接头

private Sub Button1 _ Click(sender As Object,e As EventArgs)处理button 1。点击

Dim random = New Random()。下一个(数组。计数)

If数组(随机)< >”“那么

计数-= 1

我。text = array(random)&;数数

数组(随机)= " "

出口Do

其他

Random = New Random()。下一个(数组。计数)

如果…就会结束

循环While(count >;1)

末端接头