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语法或其他你自己需要的语法即可
#include
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<
}
VB 6.0程序如下：
s=1
sum=0
For i=1 to n
s=s+i '将 i 累加到s中
sum=sum+s ‘将 s 累加到sum中
Next i
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024