dim sum as long,
dim i as long,
do while (1<=i && i<=n)
sum=0;
sum=i+sum;
loop
dim sum as integer
dim i as integer
dim j as integer
dim k as integer
'用户定义N
k=int(inputbox())
sum=1
'开始Do While循环
do while (i>1 and i
for j=1 to i
sum=sum+i
next j
loop
'最后忘了输出sum……修改下
label1.caption=sum
楼上的两位都写的不错，厉害啊，学习了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024