Question

编程实现求Sum=1+（1+2）+（1+2+3）+（1+2+3+4）+ … … +(1+2+3+4+ … + n)(n是从键盘输入的正整数)

Answer 1

isum=0
jsum=0
read(*,*) n
do i=1,n
do j=1,i
jsum=jsum+j
enddo
isum=isum+jsum
jsum=0
enddo
print*,isum
end

这是fortran程序，自己改成vb语法或其他你自己需要的语法即可

Answer 2

#include <iostream>
using namespace std;

int main()
{
int input;
int sum=0;
int m=0;
cin>>input;
for(int i=1;i<=input;i++)
{
m+=i;
sum+=m;
}
cout<<sum<<endl;
return 0;
}

Answer 3

VB 6.0程序如下：
s=1
sum=0
For i=1 to n
s=s+i '将 i 累加到s中
sum=sum+s ‘将 s 累加到sum中
Next i