vb程序找出1到1999之间同时被3和7整除的,个位数3的数,同时统计其个数

dim i as integer,ii as integer
for i=1 to 1999
if (i mod 3)=0 and (i mod 7)=0 and right(i,1)=3 then
ii=ii+1
end if
next
print "总共有" & ii & "个同时被3和7整除,并个位数为3的数"