Search This Blog
Thursday, 8 March 2012
VBscript for prime nos between given ranga of nos
rem print prime nos between given ranga of nos
option explicit
Dim no1,no2,prime, flag,no
no1=inputbox("enter the starting no")
no2=inputbox("enter the ending no")
no1=cint(no1)
no2=cint(no2)
prime("the porime nos between "&no1&" and "&no2&" are")
prime=""
For no= no1 to no2
flag=0
For i=2 to no-1
if( no mod i)=0 then
flag=1
end if
Exit for
Next
If flag=0 then
prime=prime &vbtab& cint(no)
print(prime)
End If
Next
Subscribe to:
Posts (Atom)