vb循环结构精梳版.pptVIP

Do While … Loop 流程图 Do … While Loop 流程图 条件 语句块 语句块 T F 语句块 语句块 条件 T F 有Exit Do F T 有Exit Do F T Do While|Until... Loop流程图 新版课件 * 例4.11:我国有13.2亿人口,按出生率为0.5%的增长率,多少年后超过20亿？ Private Sub Form_Load() Dim m As Double Dim yearr As Integer Show m = 1320000000#: yearr = 0 Do While m = 2000000000# m = m + m * 0.005 yearr = yearr + 1 Loop Print yearr; 年后我国的人口为：; m End Sub 若将While改为Until，条件表达式怎么修改？ Do Until m 200000000000# 新版课件 * 例:迭代法求a的立方根。X=a1/3 迭代公式：Xn+1= 1/3(2Xn+a/Xn2） 当‖ Xn+1- Xn‖e （一个很小的数）则Xn+1为 a1/3的近似值。 迭代思想：是一个反复用新值取代旧值的过程。 Private sub command1_click() Const eps=1e-5 A=val(in