Kung...Pagkatapos...Ibang Pahayag

Tinutukoy ang isa o higit pang mga bloke ng pahayag na gusto mo lang isagawa kung ang isang partikular na kundisyon o expression ay totoo .

  If condition Then 
      statements
  [{ElseIf|Else If} expression Then
      statements]
  [Else 
      statements]
  {EndIf|End If}

sa halip na Others Kung maaari kang magsulat OtherIf , sa halip na Wakas Kung maaari kang magsulat EndIf .

Kung ang mga pahayag ay maaaring paikliin sa isang linya kapag gumagamit ng mga bloke ng solong pahayag.

  If condition Then statement [Else statement]

Ang Kung...Kung gayon ang pahayag ay nagpapatupad ng mga bloke ng programa depende sa mga ibinigay na kondisyon. Kapag ang LibreOffice Basic ay nakatagpo ng isang Kung pahayag, ang kundisyon ay nasubok. Kung ang kondisyon ay totoo , lahat ng kasunod na pahayag hanggang sa susunod Iba pa o OtherIf naisakatuparan ang pahayag. Kung ang kondisyon ay Mali , at isang OtherIf sumusunod na pahayag, sinusuri ng LibreOffice Basic ang susunod na expression at isinasagawa ang mga sumusunod na pahayag kung ang kundisyon ay totoo . Kung Mali , ang programa ay nagpapatuloy alinman sa susunod OtherIf o Iba pa pahayag. Mga sumusunod na pahayag Iba pa ay isinasagawa lamang kung wala sa mga naunang nasubok na kundisyon ay totoo . Matapos masuri ang lahat ng kundisyon, at maisakatuparan ang kaukulang mga pahayag, magpapatuloy ang programa sa sumusunod na pahayag EndIf .

Maaari kang mag-nest ng marami Kung...Kung gayon mga pahayag.

Iba pa at OtherIf ang mga pahayag ay opsyonal.

Maaari mong gamitin GoTo at GoSub tumalon sa isang Kung...Kung gayon harangan, ngunit hindi para tumalon sa isang Kung...Kung gayon istraktura.

Binibigyang-daan ka ng sumusunod na halimbawa na ipasok ang petsa ng pag-expire ng isang produkto, at tinutukoy kung lumipas na ang petsa ng pag-expire.

Sub ExampleIfThenDate
    Dim sDate As String
    Dim sToday As String
    sDate = InputBox("Ilagay ang expiration date (MM.DD.YYYY)")
    sDate = Right$(sDate, 4) + Mid$(sDate, 4, 2) + Left$(sDate, 2)
    sToday = Date$
    sToday = Right$(sToday, 4)+ Mid$(sToday, 4, 2) + Left$(sToday, 2)
    If sDate < sToday Then
        MsgBox "Ang petsa ng pag-expire ay lumipas na"
    ElseIf sDate > sToday Then
        MsgBox "Hindi pa lumilipas ang petsa ng pag-expire"
    Else
        MsgBox "Ang petsa ng pag-expire ay ngayon"
    End If
End Sub