5.1 Auswahlmöglichkeiten

Eine Auswahlentscheidung wird über if ... then ... else ... programmiert. Die folgende Abfrage überprüft, ob eine Zahl kleiner als 10 ist und gibt anderenfalls eine Warnung aus.

intZahl = Msgbox.Input("Bitte geben Sie Zahl kleiner 10 ein:",
                       "Eingabe", "").AsNumber
If (intZahl >= 10) Then
   Msgbox.Warning("Die Zahl ist zu groß!", "Warnung")
else
   Msgbox.Info("Bravo!", "Hinweis")
End

Mehrere Bedingungen können mit folgender Struktur berücksichtigt werden. Das nächste Skript schätzt aufgrund der Höhe einer X-Koordinate, ob es sich um eine geografische Koordinate oder einen Rechtswert aus den Gauß-Krüger-Streifen 2 bis 5 handelt.

dblKoordinate = Msgbox.Input("Geben Sie eine X-Koordinate ein",
                             "Eingabe", "").AsNumber
If ((dblKoordinate < -180) Or (dblKoordinate >= 6000000))Then
   Msgbox.Warning("Unbekanntes Koordinatensystem", "Warnung")
ElseIf (dblKoordinate <= 180) Then
   Msgbox.Info("Es handelt sich vermutlich um eine geografische Koordinate.",
               "Hinweis")
ElseIf (dblKoordinate <= 2000000) Then
   Msgbox.Warning("Unbekanntes Koordinatensystem",
                  "Warnung")
ElseIf (dblKoordinate <= 3000000) Then
   Msgbox.Info("Es handelt sich vermutlich um eine Gauß-Krüger 2-Koordinate.",
               "Hinweis")
ElseIf (dblKoordinate <= 4000000) Then
   Msgbox.Info("Es handelt sich vermutlich um eine Gauß-Krüger 3-Koordinate.",
               "Hinweis")
ElseIf (dblKoordinate <= 5000000) Then
   Msgbox.Info("Es handelt sich vermutlich um eine Gauß-Krüger 4-Koordinate.",
               "Hinweis")
Else
   Msgbox.Info("Es handelt sich vermutlich um eine Gauß-Krüger 5-Koordinate.",
               "Hinweis")
End