计算1-1000之间不能被7整除的数的和的vbscript程序,分别用do...loop、for...next、while...wend3种语句

题目

计算1-1000之间不能被7整除的数的和的vbscript程序,分别用do...loop、for...next、while...wend3种语句

答案

dim he,i
he = 0
i = 1
do until i > 1000
if i mod 7 0 then
he = he + i
end if
i = i + 1
loop
msgbox he
'
dim he,i
he = 0
i = 1
while i