VB DemoIfDuaKondisi

 Module DemoIfDuaKondisi

    'Buka DemoIfDuaKondisivbproj

    Sub Main()

        Dim nilaiUAS As Integer

        'nilaiUAS = InputBox("Masuk nilai UAS: ")

        Debug.Print("Nilai UAS: " & nilaiUAS)

        If (nilaiUAS >= 50) Then

            Debug.Print("Lulus UAS")

        Else

            Debug.Print("Gagal UAS")

        End If

    End Sub

End Module