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)
末端接头