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