dim getal1
dim getal2
dim msg
do
getal1 = inputbox("Geef het eerste getal")
loop until isnumeric(getal1)
do
getal2 = inputbox("Geef het tweede getal")
loop until isnumeric(getal2)
msg = getal1 & " + " & getal2 & " = " & 1*getal1+1*getal2 & vbcrlf
msg = msg & getal1 & " - " & getal2 & " = " & getal1 - getal2 & vbcrlf
msg = msg & getal1 & " * " & getal2 & " = " & getal1 * getal2 & vbcrlf
msg = msg & getal1 & " / " & getal2 & " = " & getal1 / getal2 & vbcrlf
msg = msg & getal1 & " \ " & getal2 & " = " & getal1 \ getal2 & vbcrlf
msg = msg & getal1 & " Mod " & getal2 & " = " & getal1 mod getal2
msgbox msg