Pages

Wednesday, March 21, 2012

The If-Then structure

Sub GreetMe()

If Time < 0.5 Then MsgBox “Good Morning” Else MsgBox “Good Afternoon”

End Sub

 

Sub GreetMe()

 

If Time < 0.5 Then

MsgBox “Good Morning”

Else

MsgBox “Good Afternoon”

End If

 

End Sub

 

Sub GreetMe2()

Dim Msg As String

If Time < 0.5 Then Msg = “Morning”

If Time >= 0.5 And Time < 0.75 Then Msg = “Afternoon”

If Time >= 0.75 Then Msg = “Evening”

MsgBox “Good “ & Msg

End Sub

 

Sub GreetMe3()

Dim Msg As String

If Time < 0.5 Then

Msg = “Morning”

End If

If Time >= 0.5 And Time < 0.75 Then

Msg = “Afternoon”

End If

If Time >= 0.75 Then

Msg = “Evening”

End If

MsgBox “Good “ & Msg

End Sub

 

Sub GreetMe4()

Dim Msg As String

If Time < 0.5 Then

Msg = “Morning”

Else

If Time >= 0.5 And Time < 0.75 Then

Msg = “Afternoon”

Else

Msg = “Evening”

End If

End If

 

MsgBox “Good “& Msg

End Sub

 

Sub GreetMe5()

Dim Msg As String

If Time < 0.5 Then

Msg = “Morning”

ElseIf Time >= 0.5 And Time < 0.75 Then

Msg = “Afternoon”

Else

Msg = “Evening”

End If

MsgBox “Good “ & Msg

End Sub

 

No comments:

Post a Comment