VB编程年会抽奖代码？

VB编程年会抽奖代码？

语言实现此程序。以下是VB编程语言的实现示例：'定义变量，存储每个奖项的人数Dim firstPrize As Integer = 3Dim secondPrize As Integer = 5Dim thirdPrize As Integer = 12Dim 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 += 1NextFor i As Integer = 1 To secondPrize'抽取二等奖，并将编号添加到二等奖名单中secondPrizeList.Add(currentNum)currentNum += 1NextFor i As Integer = 1 To thirdPrize'抽取三等奖，并将编号添加到三等奖名单中thirdPrizeList.Add(currentNum)currentNum += 1NextFor i As Integer = 1 To souvenirPrize'抽取纪念奖，并将编号添加到纪念奖名单中souvenirPrizeList.Add(currentNum)currentNum += 1Next'输出抽奖结果Console.WriteLine("一等奖名单：" & String.Join(",", firstPrizeList))Console.WriteLine("二等奖名单：" & String.Join(",", secondPrizeList))Console.WriteLine("三等奖名单：" & String.Join(",", thirdPrizeList))Console.WriteLine("纪念奖名单：" & String.Join(",", souvenirPrizeList))