沃特格伦项目答案

【问题标题】：Waterglen Project沃特格伦项目
【发布时间】：2013-03-24 20:16:49
【问题描述】：

到目前为止，这就是我所拥有的 Waterglen 解决方案。我有点迷失了如何调用数组并用 0 定义所有内容去 lbl 无处可去。任何带 1 的东西都会先进入 lblfirst。

提前感谢您的帮助。

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

【问题讨论】：

是在寻求帮助，而不是让你为我做这件事......正如你在上面看到的，我有一些东西表明我正在努力，对吗？
也许我太仓促了。
我只是在寻求有关如何调用数组并在行中查找特定数字的所有内容的帮助。现在我正在调用列上的数组，这不是我需要它做的。我已经用谷歌搜索了我的眼睛并尝试了几种不同的解决方案，但无法让它发挥作用。
那么您想要计算数组中特定数字的所有出现次数吗？比如，数字 0 在数组中出现了多少次？
在 ' Private race(,) As Decimal = {{0, 1, 0, 3, 2}, {1, 0, 2, 0, 0}, {0, 3, 0, 1, 0}, {3, 2, 1, 0, 0}}' 第 1 行中 0 出现了多少次

标签： vb.net solution

【解决方案1】：

race 可能应该是 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]

【讨论】：