Home > Available Help Files > PC-DMIS BASIC Language > Language Reference A – Z > If...Then...Else Statement > Example - If...Then...Else Statement
Current Help File: PC-DMIS Basic (View Core Help)
Example - If...Then...Else Statement
Sub Main() ' Demo of If...Then...Else Dim msg as String Dim someInt as Integer nl = Chr(10) msg = "Less" someInt = InputBox("Type an integer:") If 5 > someInt Then msg = "Greater" : Beep MsgBox "" & msg If 3 > someInt Then msg = "Greater" Beep Else msg = "Less" End If MsgBox "" & msg If someInt = 1 Then msg = "Spring" ElseIf someInt = 2 Then msg = "Summer" ElseIf someInt = 3 Then msg = "Fall" ElseIf someInt = 4 Then msg = "Winter" Else msg = "Salt" End If End If MsgBox "" & msg End Sub