PC-DMIS Help Center - 2023.1

Click here to see this page in full context

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