编１+..+１０００的系统！！！
？？？
谁帮我以下
谢谢

应该是实现这个算法吧...
用PB吗?

(n(1+n))/2

用一个循环.int h,w //定义两个变量 h是表示1到1000的数,而w是和
w=0 // 给w 赋初值
do until h<=1000 //循环
w=w+h
h=h+1
loop;
h=integer(sle_1.text) //调用sle_1控件
st_1.text=string(w) // 调用st_1 控件

用一个循环.int h,w //定义两个变量 h是表示1到1000的数,而w是和
w=0 // 给w 赋初值
do until h<=1000 //循环
w=w+h
h=h+1
loop;
h=integer(sle_1.text) //调用sle_1控件
st_1.text=string(w) // 调用st_1 控件


这是谁回的贴啊,这样怎么能行呢,不知道int有越界的问题吗,

cb_3 clicked()

LONG LI
LONG SUM
SUM = 0
LI=1
DO while LI<1000
SUM=SUM+LI
LI=LI+1
loop
cb_3.text=string(sum)