Question

刚学vb不久，遇到个问题难以解决，请高手指点不甚感激！！！

刚学vb不久，遇到个问题难以解决，请高手指点不甚感激！！！
编程：1+(1+2)+(1+2+3)+(1+2+3+4)+…(1+2+3+…N)+…
DO While…L oop循环语句编写
很急啊
请高手给个指点啊！！！！！！！！

Answer 1

dim sum as long,
dim i as long,
do while (1<=i && i<=n)
sum=0;
sum=i+sum;
loop

追问

dim sum as long,
dim i as long,
do while (1<=i && i<=n)
sum=0;
sum=i+sum;
loop
请问上面的这段
do while (1<=i && i<=n)
对不对啊循环体里面的1是大于等于还是小于等于啊
请高手指点

追答

具体的用法我不太记得了，因为很久没用VB了，但是其中的思想是没有问题的。定义一个整形变量i，最好也将N定义为整形变量，使其 （1<=i<=N）

Answer 2

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<k)
i=i+1
for j=1 to i
sum=sum+i
next j
loop
'最后忘了输出sum……修改下
label1.caption=sum

Answer 3

楼上的两位都写的不错，厉害啊，学习了