Waterglen Project

Question

이것은 내가 Waterglen Solution에 대해 지금까지 가지고있는 것입니다. 배열을 호출하고 0을 사용하여 모든 것을 정의하는 방법을 잃어 버렸습니다. 그리고 1을 가진 것은 lblfirst로 간다.

다음은이 책의 문제 그림입니다. http://imgur.com/a/YTNEX

미리 도움을 주셔서 감사합니다.

Option Explicit On 
Option Strict On 
Option Infer Off 

Public Class Form1 
Private race(,) As Decimal = {{0, 1, 0, 3, 2}, {1, 0, 2, 0, 0}, {0, 3, 0, 1, 0}, {3, 2, 1, 0, 0}} 

'Private horse() As String = {"Horse1", "Horse2", "Horse3", "Horse4"} 

Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click 
    Me.Close() 
End Sub 


Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click 


End Sub 

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
    ListBox1.Items.Add("Horse1") 
    ListBox1.Items.Add("Horse2") 
    ListBox1.Items.Add("Horse3") 
    ListBox1.Items.Add("Horse4") 
End Sub 

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged 
    Dim SubScript As Integer = ListBox1.SelectedIndex 


    lblFirst.Text = race(SubScript, 0).ToString("N0") 
    lblSecond.Text = race(SubScript, 1).ToString("N0") 
    lblThird.Text = race(SubScript, 2).ToString("N0") 
    lblNoPlace.Text = race(SubScript, 3).ToString("N0") 

End Sub 
End Class 

Answer 1

경주는 분수령이나 분수령을 사용할 수 없으므로 Int16 또는 Int32 여야합니다.

Dim rowIndex As Int16 = 1 
Dim count As Int16 = 0 
Dim value As Int16 = 0 

For columnIndex = 0 to race.GetLength(rowIndex) - 1 
    If value = race(rowIndex)(columnIndex) 
    count += 1 
    End If 
Next 

' count contains how many times [value] occurs in row [rowIndex]