For.Nex语句的执行步骤 (1)求出初值、终值和步长值,并保存起来 (2)将初值赋给循环变量 (3)判断循环变量值是否超过终值(步长值为正时,指大于 终值;步长值为负时,指小于终值)。超过终值时,退出循环, 执行Next之后的语句 (4)执行循环体 (5)遇到Next语句时,修改循环变量值,即把循环变量的 当前值加上步长值再赋给循环变量 (6)转到(3)去判断循环条件 例51的执行过程
(1)求出初值、终值和步长值，并保存起来 (2)将初值赋给循环变量 (3)判断循环变量值是否超过终值(步长值为正时，指大于 终值；步长值为负时，指小于终值)。超过终值时，退出循环， 执行Next (4)执行循环体 (5)遇到Next语句时，修改循环变量值，即把循环变量的 当前值加上步长值再赋给循环变量 (6)转到(3)去判断循环条件 例5.1的执行过程 For...Next语句的执行步骤
例5.2求S=1+2+3+…+8 采用 Print直接在窗体上输出结果,程序代码: Private Sub Form Load Show 0 For k =1 to 8 s=s+k Next k Print s= s End sub 程序运行结果如下: 36 语句s=s+k(循环体语句的执行过程 ★
采用Print直接在窗体上输出结果，程序代码： Private Sub Form_Load() Show s = 0 For k = 1 To 8 s = s + k Next k Print "s="; s End Sub s＝36 语句s＝s+k(循环体语句)的执行过程 例5.2 求S = 1 + 2 + 3 + … + 8
例5.3求T=8!=1×2×3×.×8 采用 Print直接在窗体上输出结果,程序代码: Private Sub Form Load Show t=1 Forc= 1 to 8 t=t*c Next c Print t=: t End Sub 程序运行结果是: T=40320 语句t=tc也称乘法器。先将t置1(不能置0) 在循环程序中,常用累加器和累乘器来完成各种计算任务
采用Print直接在窗体上输出结果，程序代码： Private Sub Form_Load() Show t = 1 For c = 1 To 8 t = t * c Next c Print "T="; t End Sub T＝40320 语句t=t*c也称乘法器。先将t置1(不能置0) 在循环程序中，常用累加器和累乘器来完成各种计算任务 例5.3 求T = 8! = 1×2×3×…×8
例5.4用π/4=1-1/3+1/5-1/7+…级数 求π的近似值(取前500来进行计算) 采用 Print直接在窗体上输出结果,程序代码如下: Private Sub Form Load Show Dim piAs single, c As Integer, s As Integer pI 01 s表示加或减运算 Forc= 1 To 10000 Step 2 pi= pi+ s/c 交替改变加、减号 ext c Print"π=";pi*4 End Sub 程序运行结果是 ★ 丌=3.141397
采用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 例5.4 用π/4＝1 - 1/3 + 1/5 - 1/7 + ……级数 求π的近似值 (取前5000项来进行计算)
例5.5用100元买100只鸡,母鸡3元1只, 小鸡1元3只,问各应买多少只? 下面采用“穷举法”来解此题。 其做法是:从所有可能解中,逐个进行试验,若 满足条件,就得到一个解,否则不是。直到条件满 足或判别出无解为止。 令母鸡为x只,小鸡为y只,根据题意可知 y=100-X 开始先让x初值为1,以后逐次加1,求x为何值时, 条件3x+y3=10成立。如果当x达到30时还不能使条 件成立,则可以断定此题无解
下面采用“穷举法”来解此题。 其做法是：从所有可能解中，逐个进行试验，若 满足条件，就得到一个解，否则不是。直到条件满 足或判别出无解为止。 令母鸡为x只，小鸡为y只，根据题意可知 y = 100 – x 开始先让x初值为1，以后逐次加1，求x为何值时， 条件3x+y/3=100成立。如果当x达到30时还不能使条 件成立，则可以断定此题无解 例5.5 用100 元买100 只鸡，母鸡3元1只， 小鸡1元3只，问各应买多少只?