知道24有8個正整數因子1，2，3，4，6，8，12，24)，24能被它的因子數8整除。[1100]之間有幾個這樣的數字？

對於j=1到I

如果我mod j=0，那麽

m = m & amp強生公司。" "

n=n+1

如果…就會結束

然後

如果我mod n=0，那麽

s =標準普爾。我& amp":" & ampm & ampvbcrlf

l=l+1

如果…就會結束

m="":n=0

然後

msgbox " 1-100 * * *之間有" &；l & amp“像這樣的數字。”& ampvbcrlf & ampvbcrlf & amps，4096，“結果”

將上述文件另存為. vbs