编一个程序 1到1000的数 分别表达出能被3整除的数的和和能被7整除的数的和和能被3或7整除的数的和

i=1:s=0:t=0:p=0
Do
if i mod 3 = 0 then
s=s+i:p=p+i
else if
i mod 7 = 0 then
t=t+i:p=p+i
end if
i=i+1
until i>1000
(s表示能被3整除的数的和,t表示能被7整除的数的和,p表示能被3或7整除的数的和)