编写VB：求1到1000之间所有能被3整除的数的和如题

dim num3 as integer for i=1 to 1000 if i mod 3=0 then num3=num3+i end if next