編程抽獎編號

㈠ 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))