vbFOR循环的几道题？请教

来源：百度知道 编辑：UC知道 时间：2024/06/05 06:27:34
1、输入整数M、N,计算M、N
之间所有奇数的和。2、计算M、N之间能被5或7整
除的所有数的和3、输入整数N，计算前N项和
S=1+(1+2)+(1+2+3)+(1+2+3+4)+…。

1、M=val(text1.text)
N=val(text2.text)
if N>M then
M=N
N=M
end if
for i=N To M
if (i mod 2)<>0 then
s=s+i
end if
next
print s
2.for i=N to M
if (i mod 5)=0 or (i mod 7)=0 then
s=s+i
end if
next
print s
3.for i=1 to n
for j=1 to i
s=s+j
next
k=k+s
next
print k

1、2、
dim a%,b%,sum1%,sum57%,sumN%,i%
a=iif(M>N,M,N)
b=iif(M>N,N,M)
for i=b to a
if i mod 2 =1 then sum=sum+i
if i mod 5=0 or i mod 7=0 then sum57=sum57+i
next

3、
dim i%,sum%
for i=1 to N
sum=sum+i
next