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