全国计算机等级考试二级《web程序设计》习题13

试利用VBScript编写一个求1~500之间的同时能被3除余2，被5除余3，被7除余2的所有数的页面

　　<%

　　dim n

　　for n = 1 to 500

　　       if_________    ____   ___________  ___   __________      then 

　　response.write n & "，"

　　next

　　%>

　　答：

　　n mod 3 = 2 

　　and 

　　n mod 5 = 3

　　and n 

　　mod 7 = 2

试利用VBScript编写一个求1～100中所有的质数的页面.

　　补全如下代码：

　　<%

　　response.write "1～100中所有的质数："

　　for n=2 to 100

　　i=2

　　l=0

　　do while _____and______

　　if_____ then 

　　l=1 

　　else 

　　i=i+1

　　end if

　　loop

　　if l=0 then response.write n & "，"

　　next

　　%>

　　答：

　　i<=int(sqr(n))

　　l = 0

　　n mod i = 0