急求:计算1到1000之间所有不能被7整除的数的和。编写脚本。

分别用Do....Loop,For.....Next,While.....Wend语句编写。

minnum = 1
maxnum = 1000
testnum = 7

tmpstr = ""
i = minnum
do until i = maxnum
if i mod testnum <> 0 then
tmpstr = tmpstr & "," & i
i = i + 1
loop
msgbox minnum & " 到 " & maxnum & "不能被 " & testnum & " 整除的数有:" & mid(tmpstr,2)

tmpstr = ""
i = minnum
while i < maxnum
if i mod testnum <> 0 then
tmpstr = tmpstr & "," & i
i = i + 1
wend
msgbox minnum & " 到 " & maxnum & "不能被 " & testnum & " 整除的数有:" & mid(tmpstr,2)

tmpstr = ""
for i = minnum to maxnum
if i mod testnum <> 0 then
tmpstr = tmpstr & "," & i
next
msgbox minnum & " 到 " & maxnum & "不能被 " & testnum & " 整除的数有:" & mid(tmpstr,2)
温馨提示:答案为网友推荐,仅供参考
相似回答