随机数字摇号器 用VB做一个随机摇号器

1, 用VB做一个随机摇号器

Private Sub Command1_Click()
Cls
Dim a(1 To 10) As Integer
For i = 1 To 10
a(i) = Int(Rnd * 78 + 1)
For j = 1 To i - 1
If a(i) = a(j) Then
i = i - 1
Exit For
End If
Next j
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub

2, 随机摇号机怎么做

摇奖机原理很简单，摇奖机就是一个号码磁识别系统，和超市里的磁识别原理是一样的。摇奖机就一个识别器而已，开奖号码是由控制摇奖机的电脑产生的，开什么奖号是由电脑操作者给电脑发出指令，电脑再给摇篮奖机发出指令，把产生的开奖号码球识别出来。开奖号码就这样诞生了。
开奖号码是怎样产生的呢？可以肯定，开奖号码是由装在电脑里的摇奖系统软件产生的。大概分三种情况。
第一情况：电脑操作者控制返奖比例，开奖前运行摇奖系统软件，给电脑发出指令，设定返奖比例范围，封机后电脑自动统计奖票销售况，在返奖比例范围彩票内，由软件的随机函数随机产生开奖号码。电脑再给摇奖发出指令，摇奖机把带奖号的号码球摇出来。具体开出什么号码，电脑操作者不知道。
第二种情况：电脑里装的摇奖系统软件里有N种开奖方案，每一种方案是一个随机函数，产生的组3、组6、奇偶、和值、跨度、全顺、半顺等各种形态比例是不同的。开奖前，电脑操作者运行摇奖软件，给摇奖机发出按何种方案开奖，摇奖软件按这种方案随机产生开奖号码，再给摇奖机发出指令，摇奖机把带奖号的号码球摇出来。具体开出什么号码，电脑操作者不知道。何种方案开什么号码、 有什么特点，电脑操作者不知道。这只有摇奖机生产厂家的软件设计人员知道。这里有一点是清楚的，时间长了以后，何种方案有什么特点，操作电脑的人他一定有所了解。例如，他采用A方案开奖一段时间，用B方案开奖一段时间，通过观察比较，这两方案在号码形态上有什么特点，他就一目了然了。
第三种情况：就是用上述两种情况，混合交替使用。

名词解释

摇奖机

摇奖机是用来摇各种奖的机器。适用于法院、政府机构、企事业等需要展示公平公正的单位或者有抽奖或者选号环节的所有活动。国家彩票事业、均采用摇奖机开奖、省级以上法院、相关公示部门，均会采用摇奖机作为公平公正标志。最早的摇奖机由法国科学家研发出来。分为一代的搅拌式摇奖机和二代的吹气式摇奖机。

电脑

电脑（computer，又称计算机）是一种用于高速计算的电子计算机器，被称为“20世纪最先进的科学技术发明之一”。 电脑由硬件系统和软件系统所组成，具有进行数值计算、逻辑计算和存储记忆等多项功能。它的应用领域从最初的军事科研应用扩展到社会的各个领域，带动了全球范围的技术进步。