Hallo ich versuche mich gerade an einer Programmierung in Visual Studio 2010 und komme leider nicht weiter. Ich weiß sogar wo mein Problem ist, aber ich kann es irgendwie nicht besser.
Ich möchte, dass das Programm am Anfang fragt, wieviele Zahlen eingegeben werden sollen. Anschließend sollen die Zahlen einzeln eingegeben werden und am Ende soll aus all diesen Zahlen die höchste Zahl ausgegeben werden.
Leider nimmt er ja immer nur die letzte Variable aus meiner For-Schleife... wie kann ich das beser hinbekommen? Über Hilfe würde ich mich sehr freuen!
Module Module1
Sub Main()
Dim Anzahl, Eingabe, max, Zahl As Integer
Anzahl = InputBox("Bitte legen Sie die Anzahl der Zahlen fest")
For Zahl = 1 To Anzahl
Eingabe = InputBox("Bitte geben Sie eine Zahl ein")
Next
max = Maximum(Eingabe)
MsgBox(max)
End Sub
Function Maximum(ByVal Eingabe As Integer) As Integer
Maximum = Maximum(Eingabe)
End Function
End Module
Vielen Dank im Voraus!
Excelsior
|