【紧急求助】编写程序,求10-1000之间所有能被4整除余3,被7整除余4,被9整除余4的数的平方和
问题描述：
【紧急求助】编写程序,求10-1000之间所有能被4整除余3,被7整除余4,被9整除余4的数的平方和
答
楼上的写这么长,这个程序很简单啊
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