楼上的写这么长,这个程序很简单啊
private sub form_click()
dim x as double,i as single
for i = 10 to 1000
if i mod 4 =3 and i mod 7 =4 and i mod 9=4 then x = x + i * i
next i
print x
end sub