xlsvbah8.1

Attribute VB_Name = "mod1Oefeningen"

Sub Oefening1()

    Dim Getal1
    Dim Getal2
    Dim Gemiddelde
    
    Getal1 = InputBox("Geef het 1e getal op")
    Getal2 = InputBox("Geef het 2e getal op")

    Gemiddelde = (Getal1 + Getal2) / 2

    MsgBox Gemiddelde

End Sub

Sub Oefening2()

    Dim Getal1 As Double
    Dim Getal2 As Double
    Dim Gemiddelde As Double
    
    Getal1 = InputBox("Geef het 1e getal op")
    Getal2 = InputBox("Geef het 2e getal op")

    Gemiddelde = (Getal1 + Getal2) / 2

    MsgBox Gemiddelde

End Sub

Sub Oefening3()

    Dim Getal1 As Double
    Dim Getal2 As Double
    Dim Gemiddelde As Double
    
    Getal1 = InputBox("Geef het 1e getal op")
    Getal2 = InputBox("Geef het 2e getal op")

    Gemiddelde = (Getall + Getal2) / 2

    MsgBox Gemiddelde
    
End Sub