VB 神童教程第二章第十节——综合示例四

VB 神童教程第二章第十节——综合示例四(2)
    “开始”按钮的点击事件：

    Private Sub CmdStart_Click()

    x = 0

    For y = 1 To 100

    x = x + y

    Next y

    LblShow.Caption = "最后的结果是：" & x

    End Sub

    说明：

    （1）、1 到 100 中所有整数的和可以这样来看：1＋2＋3＋······＋100 ，即 100 次相加，那么这重复的 100 次相加可以通过 For 循环来完成。

    （2）、程序中 y 只是用来决定循环次数的变量，通常的，我们会利用其他变量来编写程序，这里的 X 就是一个求和累加器，它的初值是 0 ，终值则是我们最后需要的数值。

    （3）、X = X +y ，是指变量 X 与 y 相加后将新的值赋给 X 。当 X 为初始的 0 时，y 进入第一次循环即 y = 1 ，X + Y = 1 ；系统将 X = 1 记录下来，然后进入第二次循环即 y =2 ，X + Y = 3 （1 + 2），然后将 X = 3 记录下来并进入第三次循环，以此类推。这就将 1＋2＋3＋······＋100 的最终值算了出来。

    （4）、经过第一百次循环，程序执行 Next y 后的语句，即将最后结果用标签显示出来。

    3、示例二：

    计算 1 到 100 间所有奇数的和。

    只需将上例中的“开始”按钮的循环程序加上步长值即可。代码如下：

    Private Sub CmdStart_Click()

    x = 0

    For y = 1 To 100 Step 2

    x = x + y

    Next y

    LblShow.Caption = "最后的结果是：" & x

    End Sub

    二、列表程序二：

    1、程序界面：

    最终的程序界面如图二：

图二