Geheel getal: broncode

Omdat we twee controles uitvoeren, één om na te gaan of de invoer een getal is, en een andere om na te gaan of het getal een geheel getal is. Dit kunnen we doen door het geheel gedeelte van dat getal af te trekken: als het resultaat niet nul is, is het geen gehele getal.

Dim geheelgetal
Do
Do
geheelgetal = inputbox("Geef een geheel getal")
Loop Until Isnumeric(geheelgetal)
Loop Until geheelgetal-int(geheelgetal) = 0
Msgbox "Het getal is " & geheelgetal

Of we kunnen gebruik maken van een functie. Die functie kan beide controles samen doen, waardoor de constructie eenvoudiger wordt:

Dim geheelgetal
Do
    geheelgetal = inputbox("Geef een geheel getal")
Loop Until isgeheel(geheelgetal)

Msgbox "Het getal is " & geheelgetal

function isgeheel(p)
isgeheel=true
if not isnumeric(p) then
    isgeheel=false
    exit function
end if
if not p-int(p)=0 then isgeheel=false
end function