设计一个算法输出100到1000之间所有能被7整除的数

dim a '计数dim i '辅助 dim arr(1 to 1000) '目标数组for i = 100 to 1000 if int(i/7)<i/7 then else a=a+1 arr(a)=i end if nextVBA语言,数组arr(1 to a) 就是目标数组 ,输出即可