Mein Problem ist wir sollten in der Schule zufällige Zahlen mit Bubblesort sortieren.
Das ist keine Hausaufgabe aber mich interessiert VB sehr daher habe ich mich entschlossen das schon zu bearbeiten, allerdings komme ich nicht voran und bitte hier um Hilfe.
Folgendes Problem ist = Mein Lehrer meint das sind nicht viele Zeilen, vielleicht ein paar mehr als bei mir.
Bevor mir jemand kommt mit "Google doch und Kopier es einfach" 1. Ich werde dann ja nicht schlau daraus, 2. habe ich das schon in der Schule, doch es gibt meist nur welche mit "InputBox("")" und wir sollen mit zufällig generierten Zahlen "rechnen"
Danke im Voraus für die Helfe, hoffe jemand hilft mir dann
Das ist keine Hausaufgabe aber mich interessiert VB sehr daher habe ich mich entschlossen das schon zu bearbeiten, allerdings komme ich nicht voran und bitte hier um Hilfe.
Folgendes Problem ist = Mein Lehrer meint das sind nicht viele Zeilen, vielleicht ein paar mehr als bei mir.
Bevor mir jemand kommt mit "Google doch und Kopier es einfach" 1. Ich werde dann ja nicht schlau daraus, 2. habe ich das schon in der Schule, doch es gibt meist nur welche mit "InputBox("")" und wir sollen mit zufällig generierten Zahlen "rechnen"
Quellcode
- Public Class Form1Private Sub btnRechnen_Click(sender As System.Object, e As System.EventArgs) Handles btnRechnen.Click
- Dim Zufallszahl As New System.Random
- Dim Zahl(20) As Integer
- Dim Merkzahl As Integer
- Zahl(20) = Zufallszahl.Next(1, 101)
- For j = UBound(Zahl) - 1 To LBound(Zahl) Step -1
- For i = LBound(Zahl) To j
- If Zahl(i) > Zahl(i + 1) Then
- Merkzahl = Zahl(i)
- Zahl(i) = Zahl(i + 1)
- Zahl(i + 1) = Merkzahl
- End If
- Next i
- Next j
- libAusgabe.Items.Add(Zahl)
- End Sub
- End Class
Danke im Voraus für die Helfe, hoffe jemand hilft mir dann