- Μπορούμε να εκτελέσουμε ορισμένες εντολές υπό συνθήκη με τη
δομή ελέγχου If.
- Αυτή χρησιμοποιείται ως εξής:
If συνθήκη Then
εντολή
...
End If
- Οι εντολή που ακολουθεί το If εκτελείται αν η συνθήκη είναι
αληθής.
-
Παράδειγμα (υπολογίζει και τυπώνει την απόλυτη τιμή των αριθμών που διαβάζει
μέχρι να συναντήσει το 0):
Sub main()
Dim Num As Integer
Do
Num = InputBox("Please enter a number")
If Num < 0 Then
Num = -Num
End If
MsgBox "The absolute value is " + Str(Num)
Loop Until Num = 0
End Sub
- Η δομή ελέγχου If μπορεί να ακολουθηθεί και από τη δομή Else
για να προσδιορίσουμε εντολές που θα εκτελεστούν αν η συνθήκη δεν
ισχύει.
Παράδειγμα:
If grade >= 5 Then
MsgBox "Περνάει"
Else
MsgBox "Απορρίπτεται"
End If
- Μπορούμε να συνδυάσουμε συνεχόμενα Else If για πολλαπλούς
ελέγχους. Παράδειγμα:
If grade >= 9 Then
MsgBox "'Αριστα!"
ElseIf grade >= 7 Then
MsgBox "Λίαν καλώς"
ElseIf grade >= 5 Then
MsgBox "Καλώς"
Else
MsgBox "Κακώς"
End If