Проблемы с сортировкой и хранением в многомерном массиве - PullRequest
0 голосов
/ 06 июня 2019

Не могу понять почему, мое волновое число не увеличивается после того, как я нажму "отправить". Кроме того, массив предназначен для сортировки оценок каждого серфера от каждого судьи по возрастанию.

Как это: Дэвид (серфер) - Мат 7 - Фран 6.3 - Сэм 6 - Шун 5,5 - Тим 4

Это только для одной волны для этого серфера. Серфер может заниматься серфингом до 5 волн, поэтому у меня будет 5 таких для каждого серфера. В настоящее время массив смешивает все оценки волн для любого волнового числа, он не обрабатывает оценку волны от волны 1 по-разному для оценки волны от волны 2 или 3 и т. Д.

 Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
    If txtScore.Text <= 10 Then
        recnoSurfer = CInt(Val(New Text.StringBuilder((From ch In cmbSurfer.Text.ToCharArray Where IsNumeric(ch)).ToArray).ToString))
        recnoJudge = CInt(Val(New Text.StringBuilder((From ch In cmbJudge.Text.ToCharArray Where IsNumeric(ch)).ToArray).ToString))
        i = 0
        Do While wavescore(recnoJudge, recnoSurfer, i) <> 0
            i = i + 1
            wavenum = i
        Loop
        If i < 6 Then
            txtwavenum.Text = wavenum + 1
            wavescore(recnoJudge, recnoSurfer, i) = txtScore.Text
            txtScore.Text = ""
        Else
            MsgBox("Maximum amount of waves have been met.")
            txtScore.Text = ""
        End If
    Else
        MsgBox("Score submitted invalid.")
        txtScore.Text = ""
    End If

    Dim swap As Decimal
    For k = 0 To 5
        For j = 0 To 4
            If wavescore(j, recnoSurfer, wavenum) < wavescore(j + 1, recnoSurfer, wavenum) Then
                swap = wavescore(j, recnoSurfer, wavenum)
                wavescore(j, recnoSurfer, wavenum) = wavescore(j + 1, recnoSurfer, wavenum)
                wavescore(j + 1, recnoSurfer, wavenum) = swap
            End If
        Next
    Next
    Console.WriteLine("......")
    For i = 0 To 4
        Console.WriteLine(wavescore(i, recnoSurfer, wavenum))
    Next
End Sub

Любая помощь будет оценена.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...