------------------------------------------------------------

dim a, b, total
a = 100

do until a > 200 '조건이 만족할때까지..loop지점까지 반복
b = a mod 3
c = a mod 5

if b = 0 then '나머지가 0일될때 (3의배수일때) 
total = total + a  'total에 3에 배수의합저장
response.write a & " "
end if

if c = 0 then
total = total + a
response.write a & " "
end if

a = a+1
Loop
response.write "100~200까지 3과 5위 배수의 합: "& total

'토탈에 저장되는값은..

102,105,108,110...........

--------------------------------------------------------

부가설명

두 언틸 a > 200 
코드..
코드..
Loop
a가 200보다 크지않다면
 Loop 이전까지의 코드를 반복수행해라

mod는 나머지를 구하는함수입니다.
3/3 = 1 나머지는 0
6/3 = 2 나머지는 0
4/3 = 1 나머지는 3
5/3 = 1 나머지는 6
나머지가 0인놈만 3의 배수에 해당하겠져
나머지가 0일때의 a값을 total값에 더해주는겁니다.

두 언틸 a > 200 
코드..
코드..
Loop
a가 200보다 크지않다면
 Loop 이전까지의 코드를 반복수행해라

mod는 나머지를 구하는함수입니다.
102/3= 34 나머지는 0

105,108,111........죽되다가 200이하까지...

105/5 =21 나머지는 0

........

나머지가 0이되야...각각의 배수입니다.....

나머지가 0인놈만 3의 배수에 해당하겠져
나머지가 0일때의 a값을 total값에 더해주는겁니다.