Question

vbs编辑程序输出n以内能被3或5整除的数？

Answer 1

运行效果如下图：

程序文本如下（浏览器可能隐藏部分符号，以上图为准）：

n=100
s=""
For i=1 To n
If i mod 3=0 or i mod 5=0 then s = s & i & " "
Next
MsgBox s

Answer 2

Dim n, i, count
n = 100 ' 这里可以替换为你需要的值
count = 0
For i = 1 To n
If i Mod 3 = 0 Or i Mod 5 = 0 Then
count = count + 1
WScript.Echo i
End If
Next
WScript.Echo "共有 " & count & " 个数能被3或5整除。"