Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge

2 Bedingungen bei größer/kleiner in VB

Dino30002 / 7 Antworten / Flachansicht Nickles

Huhu,


Ich würde gerne aus ca. 10 Zahlen die größte oder kleinste herausfinden. Hier der Code:


Dim test1, test2, test3
test1 = "3"
test2 = "2"
test3 = "4"
If test1 > test2 And test3 Then
MsgBox "Klappt!"
End If


Test1 soll darauf geprüft werden ob es größer als Test2 und Test3 ist. Eigentlich dürfte hier doch keine MsgBox kommen, denn Test2 ist = 2, also kleiner als 3. Test3 ist allerdings = 4, also größer als 3. Trotzdem kommt hier eine MsgBox, die Schleife wird also ausgeführt. Es scheint also so, als ob nur die erste Bedingung beachtet werden würde.


MfG,
Dino

bei Antwort benachrichtigen
T-Rex Dino30002 „2 Bedingungen bei größer/kleiner in VB“
Optionen

Deine Bedingung ist falsch.
Du mußt jeden Vergleich separat durchziehen, also test1 > test2 und test1 > test3.
In Deiner Version wird verglichen, ob text1 > test2 ist und das Ergebni mit test3 geANDet.

So ist es richtig:

If (test1 > test2) And (test1 > test3) Then

  MsgBox "Test1 (" & CStr(test1) & ") ist am größten."
ElseIf (test2 > test1) And (test2 > test3) Then
  MsgBox "Test2 (" & CStr(test2) & ") ist am größten."
Else
  MsgBox "Test3 (" & CStr(test3) & ") ist am größten."
End If
 GrüßeT-Rex 
bei Antwort benachrichtigen