Hilfe gesucht! Zahlen ordnen, tauschen.... Verfasst am: 25.05.2009, 13:41
Hallo!
Meine Quelltest sieht so aus :
Dim Zufallszahl as Integer
Private Sub Command1_Click()
For I = 1 To 20 Step 1
Zufallszahl = Rnd() * 29 + 1
List1.AddItem (Round(Zufallszahl, 2))
Next I
End Sub
Private Sub Command2_Click()
List1.Clear
List2.Clear
End Sub
_______________________
So was meine fragen sind :
- Größte zu kleinste Zahl heraussuchen(in 2 Label)
- Zahlen Aufsteigend Sortieren
- Zahlen anzeigen, die größes als 15 und kleiner als 25 sind
- 2 zahlen Tauschen
Danke schonmal für die hilfe
ps.: habe das mal probiert mit dem größer als 15 und kleiner als 25 doch es werden nur nullen angezeigt.
Private Sub Command4_Click()
For I = 1 To 20 Step 1
If Zahl(I) > 25 Or Zahl(I) < 15 Then
List2.AddItem (Str(Math.Round(Zahl(I), 2)))
End If
Next I
End Sub
Registrieren
Login
