How can find prime number by using if in vbscript?

Answer 1

Dim prime, n

prime = TRUE

n=cint(inputbox("Enter a number to find whether it is Prime or Not"))

for i=2 to (n-1)

If n mod i = 0 then

prime = False

Exit for

End if

Next

If prime then

msgbox "Yes! It is a Prime number"

Else

msgbox "No! it is not a prime number"

End if