Question

编程计算s＝1+（1+2）+(1+2+3)+...(1+2+3+4+...+100)的值

vb6.0

Answer 1

#include
int main()
{
int i,s=0;
for(i=1;i<=100;i++)
s=s+(1+i)*i/2;
printf("%d\n",s);
return 0;
}
我用C语言写了一个，你可以根据修改成VB即可。

Answer 2

VB6.0源程序如下：
Private Sub Form_Click()
Dim I as Integer, S as Long, Sum as Long
For i=1 to 100
S=S+I
Sum=Sum+S
Next
Print Sum
End Sub

Answer 3

以下是主程序，请参考
int a[101],b[101],i,s=0;
for(i=1;i<101;i++)
a[i]=i;
for(i=1;i<101;i++)
{
b[i]+=a[i];
s+=b[i];
}

Answer 4

用两个循环嵌套