Variablen vergleichen-->max.ausgeben

Hallo,
habe ein kleines Problem in einem Programm.

Im Programm werden vers. Variablen vers. Werte zugewiesen.

Dim x(0 To 20) As Integer

For i = 1 To Text5.Text '(z.B Zahl 1- 20)

x(i)=…

next i

Nun habe ich ja x(i) variablen mit den entsprechenden Werten!

Nun möchte ich die vers. Variablen bzw.Werte vergleichen. Der größte Wert soll ausgegeben werten!

Habe aber leider keine Ahnung wie ich das realisieren kann?

P.S. Vielleicht kennt jemand eine Lsg. wie ich x (1 to 20) mit einer variablen deklarieren könnte, z.B x(i) – bringt leider immer eine Fehlermeldung!

Danke im voraus

Gruß

Hi,
mach einfach ne for-schleife, wie folgt:

dim iMax as Integer

for i = 1 to ubound(x) step 1
if iMax > i then iMax = i
next

msgbox iMax

Fertig!

Schöne Grüsse
Daniel

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Hi,
mach einfach ne for-schleife, wie folgt:

dim iMax as Integer

for i = 1 to ubound(x) step 1
if iMax > i then iMax = i
next
msgbox iMax

Fertig!

Schöne Grüsse
Daniel

Hallo Daniel

in der Schleife findet doch kein vergleich statt!iMax ist wie du geschrieben hast ubound(x) warum also die schleife?
Wenn du den grössten wert der variable x ermitteln willst, musst du die anweisung in der schleife auf
if x(i)>iMax then iMax=x(i)
abaendern.Desweiteren kannst du die Anweisung Step 1 weglassen, da die schleife immer um 1 erhöht wird, wenn nichts anderes angegeben ist :smile:

Lg Alex

Hallo,
habe ein kleines Problem in einem Programm.

Im Programm werden vers. Variablen vers. Werte zugewiesen.

Dim x(0 To 20) As Integer

For i = 1 To Text5.Text '(z.B Zahl 1- 20)

x(i)=…

next i

Nun habe ich ja x(i) variablen mit den entsprechenden Werten!

Nun möchte ich die vers. Variablen bzw.Werte vergleichen. Der
größte Wert soll ausgegeben werten!

Habe aber leider keine Ahnung wie ich das realisieren kann?

P.S. Vielleicht kennt jemand eine Lsg. wie ich x (1 to 20) mit
einer variablen deklarieren könnte, z.B x(i) – bringt leider
immer eine Fehlermeldung!

Danke im voraus

Gruß