vb-02自动保存问题.pptVIP

在执行 For 循环时，Visual Basic ①设置“循环变量”等于“初值”。 ②测试“循环变量”是否大于“终值” 。若是的话，则 Visual Basic 退出循环。 （若“步长”为负，则 Visual Basic 测试“循环变量”是否小于 “终值” 。） ③执行语句。 ④ “循环变量” 增加一，或者增加 “步长” （如果已指定的话）。 ⑤重复步骤 2 到步骤 4 循环变量在终值内 循环变量加步长 NEXT后面的语句 EXIT For T F 计算1－100的奇数和 Dim I as integer,s as integer s=0 For I=1 to 100 step 2 s=s+I Next I 开始 X=1:Y=1 X=9? Y=9? SE=X*Y 输出一个式子 Y=Y+1 X=X+1:Y=1 换行 结束 T F F T 循环的嵌套（九九乘法表） For i = 1 To 9 For j = 1 To 9 se = Str(i) × Str(j) _ = Str(i * j) Picture1.Print Tab((j - 1) *_ 10 + 1); se; Next j Picture1.Print Next I 例：3－9 2、 While……Wend语句 格式：While 条件 [语句块] Wend 如果“条件”为 True，则所有的“语句块”都会执行，一直执行到 Wend 语句。然后再回到 While 语句，并再一次检查 “条件” ，如果 “条件” 还是为 True，则重复执行。如果不为 True，则程序会从 Wend 语句之后的语句继续执行。 条件成立吗？ 语句块 Wend Wend后面的语句 T F 3、Do...Loop 格式： （1）Do [{While | Until}条件] [语句块] [Exit Do] [语句块] Loop （2）Do [语句块] [Exit Do] [语句块] Loop [{While | Until}条件] 当条件为 True 时，或直到条件变为 True 时，重复执行一个语句块中的命令。 Exit Do语句：退出循环，执行Loop的下一条语句。 条件成立吗？ LOOP LOOP后面的语句 Exit Do T F Do While ……Loop 条件成立吗？ LOOP LOOP后面的语句 Exit Do F T Do Until ……Loop 条件成立吗？ LOOP后面的语句 Exit Do T F Do ……Loop While 条件成立吗？ LOOP后面的语句 Exit Do T F Do ……Loop Until 说明： ① Do While 条件……Loop和Do ……Loop While 条件 条件为循环体执行的条件，条件不满足后结束循环。 ② Do Until 条件……Loop和Do ……Loop Until 条件 条件为循环体不执行的条件，条件满足后结束循环。 ③上述前一种格式的特点是：先判断条件，因而循环体 可能一次也不会被执行；而后一种格式的特点则是： 执行完循环体后才判断条件，循环体至少被执行一次。 ④上述各种格式差别不大，一般情况下，可以根据个人 的习惯和爱好进行选择，只要注意说明③即可。 ⑤ do loop主要用于循环次数不固定的场合，而for next 则主要用于固定次数的循环。 例：3－10 求自然对数e的近似值，要求误差小于0.00001，近似公式为： e=1+1/2!+1/3!+……+1/n!+…… 用辗转相除法求两自然数m，n的最大公约数和最小公倍数。 分析：求最大公约数的算法思想 （1）对于已知两数m,n，使mn。 （2）m除以n得余数。 （3）若r＝0，则n为求得的最大公约数，算法结束。否则执行（4）。 （4）m←n,n←r，再重复执行（2