xlsvbah10.1

Attribute VB_Name = "mod1Oefeningen"

Option Explicit

Sub Oefening1()

    Dim dblCijfer As Double
    
    dblCijfer = InputBox("Vul het cijfer in")
    
    If dblCijfer >= 5.5 Then
        MsgBox ("Voldoende")
    Else
        MsgBox ("Onvoldoende")
    End If

End Sub

Sub Oefening2()

    Dim dblCijfer As Double
    
    dblCijfer = InputBox("Vul het cijfer in")
    
    If dblCijfer >= 5.5 Then
        MsgBox ("Voldoende")
    ElseIf dblCijfer > 4 Then
        MsgBox ("Onvoldoende")
    Else
        MsgBox ("Gezakt")
    End If

End Sub

Sub Oefening3()

    Dim dblCijfer As Double
    
    dblCijfer = InputBox("Vul het cijfer in")
    
    Select Case dblCijfer
        Case Is >= 5.5
            MsgBox ("Voldoende")
        Case Is > 4
            MsgBox ("Onvoldoende")
        Case Else
            MsgBox ("Gezakt")
    End Select

End Sub