第3章节流程控制及程序调试.ppt

第三章 流程控制及程序调试;学习目标;3.1 程序流程图;3.1 程序流程图;X值大于等于90？;3.1 程序流程图;3.2 选择结构 ;分支结构; Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As Integer, b As Integer a = InputBox(请输入第一个整数的值：) b = InputBox(请输入第二个整数的值：) If a = b Then MsgBox(“两值相等“,,“例3.1”) End If End Sub;3.2 选择结构 – 单分支选择语句 ;3.2 选择结构 – 两分支选择语句 ;3.2 选择结构 – 两分支选择语句 ;;3.2 选择结构 – 多分支选择语句 ;1. 用If语句嵌套实现多分支选择 If 条件表达式1 Then 语句块1 ElseIf 条件表达式2 Then 语句块2 Else 语句块3 End If ;3.2 选择结构 – 多分支选择语句 ;3.2 选择结构 – 多分支选择语句 ;3.2 选择结构 – 多分支选择语句 ;3.2 选择结构 – 多分支选择语句;3.2 选择结构 – 多分支选择语句 ;3.2 选择结构 – 多分支选择语句 ;;3.3 循环结构;3.3 循环结构 – For…Next 循环 ;;3.3 循环结构 – For…Next 循环 ;3.3 循环结构 – For…Next 循环 ;;3.3 循环结构 – For…Next 循环 ;Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click Dim i As Integer, j As Integer, k As Integer, l As Integer Dim n As Byte For i = 0 To 2 For j = 0 To 4 For k = 0 To 10 For l = 0 To 20 If i * 10 + j * 5 + k * 2 + l = 20 Then n = n + 1 Debug.WriteLine(十元 i 张 五元 j 张 二元 k 张 一元 l 张) End If Next Next Next Next MsgBox(共有 n 方案) End Sub;;3.3 循环结构 – Do While…Loop循环 ;求1-100的和;3.3 循环结构 – Do While…Loop循环 ;3.3 循环结构 – Do While…Loop循环 ;3.3 循环结构 – 循环嵌套;3.3 循环结构 – 循环嵌套; 练习 1.我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。 2.用do while 循环输出100-1000以内能被3和7同时整除的数。;3.3 循环结构 – 循环嵌套;3.3 循环结构 – 循环嵌套;3.3 循环结构 – 循环的强制退出;3.3 循环结构 – 循环的强制退出;3.3 循环结构 – 循环的强制退出;Dim pi As Single, i As Integer, sign As Integer i = 1 : sign = 1 Do While True pi = pi + sign * 4 / (2 * i - 1) If pi = 3.14 And pi 3.141 Then Exit Do sign = -sign i =