用VB求1+2+3+……+n的和，其中变量n的值通过文本框输入。

Question

求1+2+3+……+n的和，其中变量n的值通过文本框输入。
要求：分别利用Do while…Loop，Do until…loop语句编写程序，n的值由用户在文本框输入，计算结果在标签中输出。
运行错误！！！！
可以运行成功了再发上面来么?
谢谢 合作！！！

Answer 1

dim a as integer,b as integer
n=val(text1.text)
do while a>=1
b=b+a
a=a+1
if a>n then
exit do
loop
label1.caption="1+2+3……+n="&b

dim a as interger, b as integer
n=val(text1.text)
do
b=b+a
a=a+1
loopuntil a=n

Answer 2

DIM i%, k%,mSum%
i=val(text1.text)
k=1
do while k<i
msum=msum+k
k=k+1
loop
label1.caption=msum

-------------
do until k>=n
msum=msum+k
k=k+1
loop

Answer 3

MsgBox (1+Cint(Text1))*Cint(Text1)/2