【紧急求助】编写程序,求10-1000之间所有能被4整除余3,被7整除余4,被9整除余4的数的平方和

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/27 07:33:06

【紧急求助】编写程序,求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