¿Código del sorteo de la conferencia anual de programación de VB?

Language implementa este programa.

El siguiente es un ejemplo de implementación del lenguaje de programación VB:

'Definir variables para almacenar el número de personas para cada premio

Dim firstPrize As Integer = 3

Atenuar el segundo premio como entero = 5

Atenuar el tercer premio como entero = 12

Atenuar el premio de recuerdo como entero = 10

'Definir variables para almacenar los resultados de la lotería

Atenuar la primera lista de premios como nueva lista (de enteros)

Atenuar la segunda lista de premios como nueva lista (de enteros)

Atenuar la tercera lista de premios como nueva lista (de Integer)

Dim souvenirPrizeList As New List(Of Integer)

'Definir variables para almacenar el número inicial del número rodante

Dim currentNum As Integer = 1

'Recorre varios premios

For i As Integer = 1 To firstPrize

'Dibuja el primer premio y agrega el número a la lista del primer premio

firstPrizeList.Add(currentNum)

currentNum = 1

Siguiente

Para i como entero = 1 para segundoPremio

'Extrae el segundo premio y añade el número a la lista del segundo premio

segundoPremioList.Add(currentNum)

currentNum = 1

Siguiente

Para i como entero = 1 para tercerPremio

'Dibuja el tercer premio y agrega el número a la lista del tercer premio

thirdPrizeList.Add(currentNum)

currentNum = 1

Siguiente

Para i Como entero = 1 Para souvenirPrize

'Sortea un premio conmemorativo y agrega el número a la lista de premios conmemorativos

souvenirPrizeList.Add(currentNum)

currentNum = 1

Siguiente

'Resultados de lotería de salida

Consola .WriteLine( "Lista del primer premio:" amp; String.Join(",", firstPrizeList))

Console.WriteLine("Lista del segundo premio: " amp; String.Join("," , secondPrizeList))

Console.WriteLine("Lista del tercer premio:" amp; String.Join(",", ThirdPrizeList))

Console.WriteLine("Lista de premios conmemorativos: "amp; String. Unirse(",", souvenirPrizeList))