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)
温馨提示:答案为网友推荐,仅供参考