Access数据库程序设计（第二版） 陈桂林 ch9 设计分支与循环结构程序.pptVIP

第9章 设计分支与循环结构程序 编写分支结构程序 条件转移语If…End If和Select Case 编写循环结构程序 循环语句Do…Loop、For…Next和While…Wend 数组的定义方法及应用 使用ADO编写访问数据库的程序 VBA程序调试方法与技巧 学习目标 熟练使用逻辑表达式 掌握分支语句编写分支结构程序的方法 掌握循环语句编写循环结构程序的方法 掌握将具体问题转换为分支或循环结构的思路 掌握数组表示数据并对其进行处理的方法 理解编写访问数据库的程序的方法 了解发现VBA程序中错误的方法和调试过程 程序结构 程序控制结构有3种，通过对应的控制语句完成 顺序结构 条件判断结构 循环结构 9.1 分支结构 根据条件表达式的值来选择程序运行语句 单分支 双分支 多分支 If…Then…End If语句 If 条件 Then 语句组1 End if If…Then…Else…End If语句 If 条件表达式 Then 语句块1 Else 语句块2 End If 例9-3 根据下面公式，输入x，计算y的值。 If语句 格式1： If 条件1 Then 语句组1 Elseif 条件2 Then 语句组2 …… Elseif 条件n Then 语句组n else 语句组n+1 End if 例9-5 输入一个年号，判断它是否闰年。 分析：判断闰年的方法是： 如果此年号能被400整除，则它是闰年；如果它能被4整除而不能被100整除，则它也是闰年；否则它不是闰年。 如果一个整数A能够被另一个整数B整除，则A除以B的余数为0，即A Mod B=0。在程序中经常使用这种方法来判定一个整数是否能够被另一个整数整除。 例如，2000，2004，2008是闰年，而1999，2005不是闰年。 Dim Year As Integer ‘定义年变量 Dim Leap As Boolean ‘定义是否闰年的标志 Year = Val(InputBox(请输入年份：)) If Year Mod 400 = 0 Then ‘判断是否能被400整除 leap = True ‘否则判断是否能被4整除并且不能被100整除 ElseIf (Year Mod 4 = 0) And Not (Year Mod 100 = 0) Then leap = True Else leap = False End If If leap Then MsgBox (Str(Year) + 年是闰年！) Else MsgBox (Str(Year) + 年不是闰年！) End If 例9-6 输入三个数字，输出其中的最大值。 Dim NumA,NumB,NumC, MaxNum As Integer ‘声明四个整型变量 NumA = Val(InputBox(请输入第一个数值：)) ‘接受输入的第一个数字 NumB = Val(InputBox(请输入第二个数值：)) ‘接受输入的第二个数字 NumC = Val(InputBox(请输入第三个数值：)) ‘接受输入的第三个数字 If NumA NumB Then ‘判断变量NumA和NumB的大小 MaxNum = NumA ‘将值大的量赋给变量Maxnum Else MaxNum = NumB End If If NumC MaxNum Then ‘如果第三个数字比MaxNum大 MaxNum = NumC End If MsgBox 三个数字中，最大的数字是： + Str(MaxNum) 例 9-7 如图9-3所示，根据窗体中“成绩”文本框输入的成绩，来判断成绩等级，并显示在窗体上的“等级”文本框中。 Dim Score As Single ‘声明单精度型变量Score用来存储成绩 Dim Grade As String ‘声明字符型变量Grade 用来存储等级 Score=Me.成绩.Value ‘将成绩文本框的值赋值给变量Score If Score=85 Then Grade=优秀 ElseIf Score=75 Then Grade=良好 ElseIf Score60 Then Grade=及格 Else Grade=不及格 End If