-1

これは、これまでのWaterglenソリューションで私が持っているものです。配列を呼び出して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
4

1 に答える 1

0

分数のレースや分数の場所を持つことができないことを考えると、レースはおそらく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]
于 2013-03-25T02:05:39.677 に答える