VB 6 – If…Then…Else Statements

The conditional statements are very important to any programming language. In VB 6, the conditional statement change the direction of the program using If...Then ...Else construct.

The syntax for If...Then...Else is given below.

If condition Then
[Statements]
Else If condition 1 Then
...
[statements]
...
Else If condition n Then
...
[Statements]
...
Else
...
[Statements]
...
End If

If you look at the above syntax , the conditions are very important for If statements. If the condition 1 is false then another condition is checked and so on. The condition is met (True), then that statement block is executed. If no condition is met, then the last Else statement is executed.

Example Program: If…Then…Else

Consider the following example code, the program has a variable called day. If the day is 1, it is Monday, else it is Tuesday, and so on.

Private Sub Text1_Change()
Dim day As Integer
day = Val(Text1.Text)

If day = 1 Then
Text2.Text = "Monday"

ElseIf day = 2 Then
Text2.Text = "Tuesday"

ElseIf day = 3 Then
Text2.Text = "Wednesday"

ElseIf day = 4 Then
Text2.Text = "Thrusday"

ElseIf day = 5 Then
Text2.Text = "Friday"

ElseIf day = 6 Then
Text2.Text = "Saturday"

ElseIf day = 7 Then
Text2.Text = "Sunday"

Else
Text2.Text = "Enter Number Less Than Equal To 7"

End If
End Sub

If the number for variable day is greater than 7 , then default message is displayed – "Enter number less than equal to 7".

Output – If…Then…Else

The output of the above program is given below.