Hey,
Ich gucke mir gerade die Arrays an und versuche, den Min. Und Max. Wert eines Arrays zu finden + deren Indexe.
Für Max.Wert stimmen die Zahlen, bei MinWert und MinWertIndex steht aber immer nur 0 da!?
Irgendwie finde ich den Fehler gerade nicht
Ich gucke mir gerade die Arrays an und versuche, den Min. Und Max. Wert eines Arrays zu finden + deren Indexe.
VB.NET-Quellcode
- Public Class Form1
- Dim T(6) As Integer
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Randomize()
- End Sub
- Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim i As Integer
- ListBox1.Items.Clear()
- For i = 0 To 6
- T(i) = Rnd() * 10 + 20
- ListBox1.Items.Add(T(i))
- Next
- End Sub
- Private Sub ButtonMaxMin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonMaxMin.Click
- Dim MaxWert, MinWert As Integer
- Dim MaxWertIndex, MinWertIndex As Integer
- Dim i As Integer
- For i = 0 To 6
- If T(i) > MaxWert Then
- MaxWert = T(i)
- MaxWertIndex = i
- End If
- If T(i) < MinWert Then
- MinWert = T(i)
- MinWertIndex = i
- End If
- Next
- LabelAusgabe.Text = "Max. Wert: " & MaxWert & ", MaxWertIndex: " & MaxWertIndex & vbCrLf & "Min. Wert: " & MinWert & ", MinWertIndex: " & MinWertIndex
- End Sub
- End Class
Für Max.Wert stimmen die Zahlen, bei MinWert und MinWertIndex steht aber immer nur 0 da!?
Irgendwie finde ich den Fehler gerade nicht