采用 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() 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
51.2Do.Loop循环语句 For.Next循环主要是用在知道循环次数的情况下, 若事先不知道循环次数,可以使用当型循环Do.Loop Do.Lo0o两种格式:前测型循环结构和后测型循 环结构。两者区别在于判断条件的先后次序不同 ★
For...Next循环主要是用在知道循环次数的情况下， 若事先不知道循环次数，可以使用当型循环Do...Loop Do...Loop两种格式：前测型循环结构和后测型循 环结构。两者区别在于判断条件的先后次序不同 5.1.2 Do...Loop循环语句
1.前测型Do..Loop循环 格式: DoI{ Whileuntil}条件 循环体 Loop Do While.L0op语句的功能:当条件成立(为真 时,执行循环体;当条件不成立(为假时),终止循环 Do Until..L0op(直到型循环)语句的功能: 当条件不成立(为假)时,执行循环体,直到条件 成立(为真)时,终止循环
格式： Do [{While|Until} 条件] 循环体 Loop Do While...Loop语句的功能：当条件成立(为真) 时，执行循环体；当条件不成立(为假时)，终止循环 Do Until...Loop(直到型循环)语句的功能： 当条件不成立(为假)时，执行循环体，直到条件 成立(为真)时，终止循环 1. 前测型Do...Loop循环
例5.6求S=12+22+…+1002 采用 Do While.L0op语句 采用 Print直接在窗体上输出结果,程序代码: Private Sub Form Load Dim n As Integer, s As Long Show n=1:s=0 Do While n < 100 s=stn*n n=n+1 Loop Print s=;S End Sub 程序运行结果 338350
采用Do While...Loop语句 采用Print直接在窗体上输出结果，程序代码： Private Sub Form_Load() Dim n As Integer, s As Long Show n = 1: s = 0 Do While n <= 100 s = s + n * n n = n + 1 Loop Print "s="; s End Sub 程序运行结果： S＝338350 例5.6 求 S＝1 2 + 22 + … + 1002
例5.7用π/4=1-1/3+1/5-1/7+…级数,求兀 的近似值。当最后一项的绝对值小于10时,停止计算 采用Prin直接在窗体上输出结果,程序代码: Private Sub Form Load Show Dim pi As single, n As Long, s As Integer pi=0:n=1 Do While n <=100000 或1/n>=0001 pi= pi+s/n n=n+2 Loop Print"I=";pi*4 End sub 程序运行结果: ★ 丌=3.141575
采用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 s = -s n = n + 2 Loop Print "π="; pi * 4 End Sub 程序运行结果： π＝3.141575 例5.7 用π/4＝1 - 1/3 + 1/5 - 1/7 + …… 级数,求π 的近似值。当最后一项的绝对值小于10-5时，停止计算