等差级数求和的算法：

①令和s的初值为“0”;

②令自然数i的初值为“0”;

③输入n的值；

④如果is100，则执行第⑤步，否则执行第⑧步；

⑤累加自然数i的值；

⑥累加和s的值；

⑦转到第④步执行；

⑧打印输出计算结果“s”的值；

⑨程序结束。

程序代码:

Private Sub Command1_ Click ( )

    s=0

    N=Val (Text1.Text)

    Do While i<=n

        i=

        s=s+i

    Loop

     "s="; s

End Sub