输出乘积NextkPrint.PPT

 循环是指在指定的条件下多次重复执行一组语句。被重复执行的一组语句称为循环体 VB提供的循环语句有 Do...Loop For...Next While...Wend For Each...Next 最常用的是For...Next和Do...Loop语句 说明：上述程序，循环变量k的初值、终值和步长值分别为2，10和2，即从2开始，每次加2，到10为止，控制循环5次。每次循环都将循环体(Print k*k)执行一次 格式： For 循环变量＝初值 To 终值 [Step 步长值] 循环体 Next 循环变量  功能：本语句指定循环变量取一系列数值，并且对循环变量的每一个值把循环体执行一次 初值、终值和步长值都是数值表达式，步长值可以是正数(称为递增循环)，也可以是负数(称为递减循环) 若步长值为1，则Step 1可以省略 采用Print直接在窗体上输出结果，程序代码如下： Private Sub Form_Load() Show Dim pi As Single, c As Integer, s As Integer pi = 0 s = 1 s表示加或减运算 For c = 1 To 10000 Step 2 pi = pi + s / c s = -s 交替改变加、减号 Next c Print π=; pi * 4 End Sub 程序运行结果是： π＝3.141397 采用Print直接在窗体上输出结果，程序代码： Private Sub Form_Load() Dim x As Integer, y As Integer Show For x = 1 To 30 y = 100 - x If 3 * x + y / 3 = 100 Then Print 母鸡只数为:; x, Print 小鸡只数为:; y End If Next x End Sub 运行结果： 母鸡只数为：25 小鸡只数为：75 采用Print直接在窗体上输出结果，程序代码： Private Sub Form_Load() Show Dim pi As Single, n As Long, s As Integer pi = 0 : n = 1 : s = 1 Do While n = 100000 或1/n=0.00001 pi = pi + s / n