Visual Basic 程序设计案例教程第9讲.pptVIP

选择结构程序设计 第九讲 2课时 教学目标及基本要求 熟练使用Do … Loop语句。 熟练使用For… Next语句。 熟练使用循环程序的内部控制语句。 能熟练运用各种结构设计综合程序。 教学重点 Do … Loop语句的使用。 For… Next语句的使用。 教学难点 对循环结构的理解。 循环结构的内部控制语句。 教学内容 Do While … Loop 循环语句（前测型）。 Do … Loop While 循环语句（后测型）。 Do Until … Loop 循环语句（前测型）。 Fox … Next 循环语句。 循环程序的内部控制语句（Exit ）。 循环程序的内部控制语句（Go To ）。 Do While … Loop 循环语句（前测型） 语法格式 Do While 条件 循环体 Loop 语法描述 程序执行到Do While后开始对条件进行判断，如果条件成立则执行循环体，之后又返回对条件进行判断，如此反复，直到条件不成立为止，则退出循环；如果条件不成立，则不执行循环体，直接执行Loop后的语句。 Y N 条件 循环体 Y N 例1，求1+3+5+7+ ··· +999的值． Do While … Loop 循环语句（前测型） Private Sub Form_Click() i = 1 s = 0 Do While i = 999 s = s + i i = i + 2 Loop Print s End Sub Do While … Loop 循环语句（前测型） 例2，求22+42+62+82+ ··· +1002的值 Private Sub Form_Click() i = 2 s = 0 Do While i = 100 s = s + i^2 i = i + 2 Loop Print s End Sub 类似题：求22+42+82+162+···+1282的值。 类似题：求1/32+1/52+1/72+1/92+···+1/992的值。 Do While … Loop 循环语句（前测型） 例3，求100！的值 Private Sub Form_Click() i = 1 p = 1 Do While i = 100 p = p*i i = i + 1 Loop Print p End Sub 类似题：求3×7×11×15× ··· ×31 的值。 类似题：求1/22 ×1/42 × 1/82 × ··· × 1/322 的值。 语法格式 Do 循环体 Loop While 条件 语法描述 程序先执行循环体后对条件进行判断，如果条件成立则返回执行循环体，再对条件进行判断，如此反复，直到条件不成立为止，则退出循环；如果条件不成立，则不再执行循环体，直接执行Loop While后的语句。 Do … Loop While 循环语句（后测型） Y N 条件 循环体 Y N Do … Loop While 循环语句（后测型） ● 例4，求12+22+32+…+152 的值。 Private Sub Form_Click() s = 0 i = 1 Do s = s + i^2 i = i + 1 Loop While i=15 Print s End Sub 类似题：求1×2×3×4× ··· ×15的值。 Do Until … Loop 循环语句（前测型） 语法格式 Do Until 条件 循环体 Loop 语法描述 程序执行到Do Until后开始对条件进行判断，如果条件不成立则执行循环体，之后又返回对条件进行判断，如此反复，直到条件成立为止，则退出循环；如果条件成立，则不执行循环体，直接执行Loop后的语句 Y N 例5，运行如下程序，依次从键