¿Código de lotería anual de programación VB?

El siguiente es un ejemplo en el lenguaje de programación VB:

Defina variables para almacenar el número de personas en cada recompensa.

Segundo premio atenuado como entero = 3

Segundo premio atenuado como entero = 5

Tercer premio atenuado como entero = 12

El premio de recuerdo atenuado es un número entero = 10

Defina una variable y almacene el resultado de la lotería.

Atenuar primera lista de premios como nueva lista (entero)

Atenuar segunda lista de premios como nueva lista (entero)

Atenuar tercera lista de prioridad como nueva lista (entero)

Atenuar souvenirPrizeList como nueva lista (entero)

Defina una variable para almacenar el número inicial del número rodante.

Dim currentNum As Integer = 1

Recoge varios premios en un bucle.

Porque I es un número entero = 1 es el primer premio

Dibuja el primer premio y suma el número a la lista del primer premio.

Primer premio. Sumar (valor actual)

NumActual += 1

Luego

Porque I siendo un número entero = 1 es el segundo premio

Sorteo dos Para el segundo premio, agregue el número a la lista del segundo premio.

segundaLista de Premios. Sumar (valor actual)

currentNum += 1

Luego

For i As Integer = 1 para el tercer premio

extracción For tercer premio, agregue el número a la lista del tercer premio.

Tercera lista de prioridades. Sumar (valor actual)

currentNum += 1

Luego

For i As Integer = 1 para representar

Sortea un premio conmemorativo , agregue el número a la lista de premios conmemorativos.

Lista de premios de recuerdos. Sumar (valor actual)

currentNum += 1

Luego

generar el resultado de la lotería.

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

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

Consola. WriteLine("Lista del tercer premio:" & String.Join(",",thirdPrizeList))

Consola. WriteLine("Lista de premios conmemorativos:" & String.

Unirse(",",souvenirPrizeList))