3 Zahlen aufsteigerd sortieren

  • Access

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von BiedermannS.

    3 Zahlen aufsteigerd sortieren

    Hallo Leute,
    ich bin neu hier und wollte euch mal was Fragen. ICh muss ein Programm programmieren das ich 3 beliebige Zahlen eingeben und das Programm automatisch sortieren muss. Man muss auch klarstellen das ich ein riesen Anfänger dabei bin, jedoch muss ich dazu noch sagen das ich keine Profi Wörter verstehen nur ( if ,string ,integer usw). Mein Quelltext:
    FInde leider keinen Fehler und trotzdem funktioniert es nicht :(

    Visual Basic-Quellcode

    1. Public Function a()
    2. Dim zahl1 As Integer
    3. Dim zahl2 As Integer
    4. Dim zahl3 As Integer
    6. zahl1 = InputBox("Zahl1 eingeben")
    7. zahl2 = InputBox("Zahl1 eingeben")
    8. zahl3 = InputBox("Zahl1 eingeben")
    10. If zahl1 > zahl2 Then
    12. If zahl1 > zahl3 Then
    13. If zahl2 > zahl3 Then
    14. MsgBox("hhh " & zahl1 & zahl2 & zahl3)
    15. Else
    17. If zahl1 < zahl3 Then
    18. If zahl3 > zahl2 Then
    19. If zahl1 < zahl2 Then
    20. MsgBox("Zahl " & zahl3 & zahl2 & zahl1)
    21. Else
    23. If zahl2 > zahl1 Then
    24. If zahl1 > zahl3 Then
    25. If zahl2 > zahl3 Then
    27. MsgBox("Zahl " & zahl2 & zahl1 & zahl3)
    28. Else
    29. If zahl3 > zahl2 Then
    30. If zahl2 < zahl1 Then
    31. If zahl1 > zahl3 Then
    32. MsgBox("Zahl " & zahl1 & zahl3 & zahl2)
    34. End If
    35. End If
    36. End If
    37. End If
    38. End If
    39. End If
    40. End If
    41. End If
    42. End If
    43. End If
    44. End If
    45. End If
    46. End Function


    Edit by Manschula Für Code-Ausschnitte bitte den entsprechenden Tag verwenden! --> VB-Tag eingefügt!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Manschula“ ()

    Willkommen im Forum. :thumbup:
    Probier es mal so:
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Sub xxx()
    2. Dim zahl1 As Integer
    3. Dim zahl2 As Integer
    4. Dim zahl3 As Integer
    6. zahl1 = InputBox("Zahl1 eingeben")
    7. zahl2 = InputBox("Zahl1 eingeben")
    8. zahl3 = InputBox("Zahl1 eingeben")
    10. If zahl1 > zahl2 Then
    11. Swap(zahl1, zahl2)
    12. End If
    14. If zahl2 > zahl3 Then
    15. Swap(zahl2, zahl3)
    16. End If
    18. If zahl1 > zahl2 Then
    19. Swap(zahl1, zahl2)
    20. End If
    21. End Sub
    23. Sub Swap(ByRef i1 As Integer, ByRef i2 As Integer)
    24. Dim ii As Integer = i1
    25. i1 = i2
    26. i2 = ii
    27. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Geht schöner ;)

    Visual Basic-Quellcode

    1. Dim zahlen As New List(Of Integer)
    3. zahlen.Add(CInt(InputBox("Zahl1 eingeben"))) 'Beliebig viele Elemente hinzufügen
    4. zahlen.Add(CInt(InputBox("Zahl2 eingeben")))
    5. zahlen.Add(CInt(InputBox("Zahl3 eingeben")))
    7. zahlen.Sort() 'Sortieren
    9. MessageBox.Show("Zahlen: " & zahlen(0) & " " & zahlen(1) & " " & zahlen(2)) 'Ausgeben


    Und fertig. Geht für unendlich viele Zahlen :)

    noBlubb schrieb:

    Geht schöner ;)
    Und wo hast Du gelesen, dass @Anfaenger189: unter .NET programmiert? :D
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Anfaenger189 schrieb:

    ich benutze Visual Basic von Access 2007
    Meinst Du Visual Basic for Applications VBA ?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dann biste hiwer im falschen Thread gelandet.
    [Umleitung Request]
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Verwende einfach ein Array und lass dir das sortieren. SortierAlgorithmen gibts im Netz genug.

    Hier mal aus dem Kopf:
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Sub test2()
    2. 'Ein Array erstellen
    3. Dim arr(2) As Integer
    5. 'Das Array befüllen
    6. arr(0) = 152
    7. arr(1) = 36
    8. arr(2) = 8
    10. 'Sortieralgorithmus aufrufen
    11. Call SortArray(arr)
    13. 'Ausgabe
    14. MsgBox ("Sortiert:" & vbCrLf & arr(0) & vbTab & arr(1) & vbTab & arr(2))
    15. End Sub
    16. Sub SortArray(ByRef arr() As Integer)
    17. Dim i As Integer
    18. Dim y As Integer
    19. Dim again As Boolean
    20. Dim tmp As Integer
    21. again = True
    22. Do While again
    23. For i = 0 To UBound(arr)
    24. For y = UBound(arr) To i Step -1
    25. If arr(i) > arr(y) Then
    26. tmp = arr(y)
    27. arr(y) = arr(i)
    28. arr(i) = tmp
    29. again = True
    30. Exit For
    31. Else
    32. again = False
    33. End If
    34. Next
    35. If again Then Exit For
    36. Next
    37. Loop
    38. End Sub


    Nur solltest du lieber einen anderen Algorithmus implementieren, da dieser hier nur was selbstgeschriebenes ist und nicht optimiert wurde. Ist aber ein ähnliches Prinzip wie BubbleSort.
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

Facebook
Telefonspende