编程抽奖编号

㈠ VB中福利彩票的编程代码怎么写啊

在command1_click里写

dim a(1 to 6)
randomize
do
for i=1 to 6
a(i)=fix(rnd*(33)) +1
next i
loop while a(1)>a(2)>a(3)>a(4)>a(5)>a(6)

纯亩这是双色球慧御红球的抽奖方式，最后输出数组a就行了做碧森，其他的彩票同理。

㈡ 想要一个简单抽奖程序 0.1┊可以象电视上举行的活动那样进行抽奖的程序

1：抽奖软件的Visual C++6.0实现
开发工具：Visual C++6.0
软件功能：
要求用Visual C++6.0实现一个精美的抽奖程序。
具体功能如下：
（1）：参加抽奖的人员存入ACCESS数据库中。包括抽奖人的身份证号码，姓名，性别，电话号码，所在城市等信息。
（2）：可以抽取一等奖，二等奖，三等奖和鼓励奖若干名，各类奖项的数量可以预先在对话框里设定。
（3）：操作员按任意键后开始抽奖，此时看到屏幕上有身份怔号码（或电话号码）在飞快的变动，若操作员再次按下任意键则显示中奖人的姓名，所在城市和电话号码。
（4）：界面美观，操作可靠。

2：编程提示：
可以采用ADO技术读取ACCESS数据库中的抽奖人员信息。在程序中定义一个结构体数组用于保存读入的抽奖人信息。可以通过菜单中的“设置”选项来设定一等奖，二等奖，三等奖和鼓励奖的人数。在菜单中有一个“开始抽奖”选项，选定后，屏幕进入全屏幕状态，开始循环的，随机的显示抽奖人的号码，这个号码必须很大，以便观看。若停止键按下后，立即用大字显示中奖人的信息，然后继续抽奖，直至全部抽完所有奖项。

㈢ VB编程年会抽奖代码

语言实现此程序。
以下是VB编程语言的实现示例：
'定义变量，存储每个奖项的人数
Dim firstPrize As Integer = 3
Dim secondPrize As Integer = 5
Dim thirdPrize As Integer = 12
Dim souvenirPrize As Integer = 10
'定义变量，存储抽奖结果
Dim firstPrizeList As New List(Of Integer)
Dim secondPrizeList As New List(Of Integer)
Dim thirdPrizeList As New List(Of Integer)
Dim souvenirPrizeList As New List(Of Integer)
'定义变量，存储编号滚动的起始编号
Dim currentNum As Integer = 1
'循环抽取各种奖项
For i As Integer = 1 To firstPrize
'抽取一等奖，并将编号添加到一等奖名单中
firstPrizeList.Add(currentNum)
currentNum += 1
Next
For i As Integer = 1 To secondPrize
'抽取二等奖，并将编号添加到二等奖名单中
secondPrizeList.Add(currentNum)
currentNum += 1
Next
For i As Integer = 1 To thirdPrize
'抽取三等奖，并将编号添加到三等奖名单中
thirdPrizeList.Add(currentNum)
currentNum += 1
Next
For i As Integer = 1 To souvenirPrize
'抽取纪念奖，并将编号添加到纪念奖名单中
souvenirPrizeList.Add(currentNum)
currentNum += 1
Next
'输出抽奖结果
Console.WriteLine("一等奖名单：" & String.Join(",", firstPrizeList))
Console.WriteLine("二等奖名单：" & String.Join(",", secondPrizeList))
Console.WriteLine("三等奖名单：" & String.Join(",", thirdPrizeList))
Console.WriteLine("纪念奖名单：" & String.Join(",", souvenirPrizeList))