Зацикливание и сохранение имени игрока, пока не будет достигнута сумма Х

Question

У меня есть десять случаев, каждое из которых основано на количестве игроков. Игры 1, 3 и 5 - одиночные игры. Игры 2, 4 и 6 - это игры для двух игроков, а игры 7, 8, 9 и 10 - игры для четырех игроков.

Я пытаюсь выяснить, как использовать цикл, чтобы предложить пользователю ввестисоответствующих игроков для выбранной игры, и цикл для отображения игроков.

Я пробовал несколько вещей, и я не совсем уверен, как сделать это X раз и отобразить его.

            Do
        If gamenum = 1 Or 3 Or 5 Then
            Console.WriteLine($"{vbCrLf}Enter player name.")
            player1 = Console.ReadLine
            Exit Do
        ElseIf gamenum = Nothing Then

            If gamenum = 2 Or 4 Or 6 Then
                Console.WriteLine($"{vbCrLf}Enter player names.")
                player1 = Console.ReadLine
                player2 = Console.ReadLine
            ElseIf gamenum = Nothing Then

                If gamenum = 7 Or 8 Or 9 Or 10 Then
                ElseIf gamenum = Nothing Then
                End If
            End If
        End If
    Loop
    Console.ReadKey()

Answer 1

Вот один из способов сделать это.
Использование списка для хранения всех имен игроков.

Dim players As New List(Of String) 'Stores all player names
Dim playerCount As Integer = 0     'Then number of players for this game

'Determine the required number of players based on gamenum
Select Case gamenum
    Case 1, 3, 5
        playerCount = 1
    Case 2, 4, 6
        playerCount = 2
    Case 7 To 10
        playerCount = 4
    Case Else
        Console.WriteLine("Invalid game choice!")
        Exit Sub
End Select

'Request players to enter their names
For i = 1 To playerCount
    Console.WriteLine($"{vbCrLf}Player {i}, enter your name")
    players.Add(Console.ReadLine)
Next

Console.WriteLine($"{vbCrLf}Total players registered: {players.Count}")

For i = 0 To players.Count - 1
    Console.WriteLine($"Welcome {players(i)}")
Next