VB编程年度抽奖代码？

下面是一个VB编程语言的例子:

定义变量以存储每个奖励中的人数。

将一等奖设为整数= 3

Dim secondPrize为整数= 5

dim third prize As Integer = 12

Dim souvenirPrize为整数= 10

定义变量并存储彩票结果。

Dim firstPrizeList作为新列表(整数)

Dim secondPrizeList作为新列表(整数)

将第三优先级列表作为新列表变暗(整数)

Dim souvenirPrizeList作为新列表(整数)

定义一个变量来存储数字滚动的起始数。

Dim currentNum As Integer = 1

循环抽取各种奖项。

对于I为整数= 1为一等奖

抽取一等奖，并将号码添加到一等奖列表中。

一等奖。添加(当前值)

currentNum += 1

然后

对于I为整数= 1为二等奖

抽取二等奖，将号码加入二等奖名单。

secondPrizeList。添加(当前值)

currentNum += 1

然后

For i As Integer = 1进行第三次Prize

抽取三等奖，将号码加入三等奖名单。

第三优先列表。添加(当前值)

currentNum += 1

然后

For i As Integer = 1来表示

抽一个纪念奖，把号码加到纪念奖列表里。

souvenirPrizeList。添加(当前值)

currentNum += 1

然后

输出抽奖结果。

控制台。WriteLine("一等奖名单:" &；字符串。Join("，"，firstPrizeList))

控制台。WriteLine("二等奖名单:" &；字符串。Join("，"，secondPrizeList))

控制台。WriteLine("三等奖名单:" &；字符串。Join("，"，thirdPrizeList))

控制台。WriteLine("纪念奖名单:" &；字符串。Join("，"，souvenirPrizeList))