等差级数求和的算法: ①令和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 |