dim a as integer
a=inputbox("sayı giriniz=")
if a=2 then
msgbox("asal sayıdır")
if (a/3) and (a/5) and (a/7) then
msgbox("asal sayı değildir")
else
msgbox("asal sayıdır")
end if
__________________