다차원 배열을 정렬하려고하는데 정확한 방법인지 확실하지 않습니다. 지금까지 다차원 배열에서 다섯 자리 숫자를 얻은 다음 단일 차원 배열로 이동하고 배열 정렬을 사용했습니다. 더 나은 방법을 알고 있습니까? 또는 내 개선 방법에 대한 아이디어가 있습니까? 또한, 코드는 현재 정렬 영역에서 작동하지 않습니다, 그것은 나에게 배열 오류 인덱스를 제공합니다.다차원 배열 순서 지정
도움이 될 것입니다. 사전
Module q
Sub Main()
Randomize()
Dim Player,RandomNumber,NumberOfPlayers,Index As Integer
Dim Roll as Integer = 0
Console.Write("How many people will be playing Yahtzed?: ")
Player = convert.toint32(Console.Readline)
NumberOfPlayers = Player
Dim Game(Player,5) As Integer
Do until Player = 0
Console.Write("User")
Roll = 0
Do until Roll = 5
RandomNumber = CINT(Int((6 * Rnd()) + 1))
Game(Player,Roll) = RandomNumber
Roll += 1
Console.Write(" "&RandomNumber)
Loop
Player -= 1
Console.Writeline()
Loop
Player = NumberOfPlayers
Do until Player = 0
Dim Ordering(5) as Integer
Roll = 0
Do until Roll = 5
Ordering(Index) = Game(Player,Roll)
Roll += 1
Index += 1
Array.Sort(Ordering)
Loop
Loop
End Sub
End Module
2 차원 배열 대신 배열 배열을 원한다고 생각합니다. 또는, 더 나은, 배열의 목록. 플레이어 당 주사위 롤 목록을 정렬하는 아이디어입니까? –