易语言实现 1-1000 循环求和

以下是使用易语言编写的 1-1000 循环求和程序：

Var
    i, sum : int32;
Begin
    sum := 0;
    For i := 1 To 1000 Do
        sum := sum + i;
    Print('1-1000 循环求和为: ', sum);
End.

程序首先定义了两个变量 i 和 sum，其中 i 表示循环计数器，sum 表示求和结果。然后通过循环语句 For 实现 1-1000 的循环，并在循环体中将每个数加入到 sum 中。最后输出结果。