第6章--vba.ppt

分支结构 单行 If 语句 格式：If 表达式 Then 语句1 [Else 语句2] 功能：If 测试指定的条件，如果条件表达式为真（True），则执行Then 后面的语句1，否则执行语句2（若Else子句未省略）。 T F 语句2 条件 语句1 T F 条件 语句1 Private Sub p1( ) Dim x As Integer, y As Integer x = InputBox(请输入x值) If x = 0 Then y = 2 * x + 1 MsgBox y: y End Sub Private Sub p1( ) Dim x As Integer, y As Integer x = InputBox(“请输入x值”) If x = 0 Then y = 2 * x + 1 Else y = 1 MsgBox y: y End Sub 根据输入x的值，观察y的输出结果 多行 If 语句 格式：If 表达式 Then 语句组1 [Else 语句组2] End If 单行If语句实现： If x=0 Then y=cos(x)－x^3+3*x If x0 Then y=sin(x)+sqr (x*x+1) 多行If语句实现：If x0 Then y=sin(x)+sqr (x*x+1) Else y=cos(x)－x^3+3*x End If 例：计算分段函数 例：判断是否是闰年 闰年的标志是：能被4整除且不能被100整除，或能被400整除。 Sub IfLeapYear() Dim y As Integer 定义变量y，用于存放年份 y = InputBox(请输入一个年份) If (y Mod 4 = 0 And y Mod 100 0) Or (y Mod 400 = 0) Then MsgBox (y 年是闰年！) Else MsgBox (y 年不是闰年！) End If End Sub * If语句的嵌套 指If或Else后面的语句块中又包含If语句。 If 表达式1 Then If 表达式11 Then … End If … End If 多分支结构 If 表达式1 Then 语句块1 ElseIf 表达式2 Then 语句块2 … [Else 语句块 n+1 ] End If 例：已知百分制成绩mark，显示对应的五级制成绩 下列三种方法哪些正确，哪些错误？ Select Case语句 Select Case 表达式 Case 值1 语句块1 Case 值2 语句块2 …… Case 值i 语句块i Case Else 语句块n End Select 【例6.5】创建一个应用程序，输入一个学生的成绩，当成绩小于60时，输出“不及格”，60至70之间时输出“及格”，70至80之间输出“中等”，80至90之间输出“良好”，90至100之间输出“优秀”。 * Sub ScoreToGrade() Dim s As Single s = InputBox(请输入一个成绩) Dim intDj As Integer 表示等级，用数表示 Dim strDj As String 表示等级，用字符表示 intDj = s \ 10 If s = 0 And s 60 Then intDj = 0 不及格用0表示 If s 0 Then intDj = -1 小于0表示输入非法 If s = 100 Then intDj = 9 100分也为优秀 * Select Case intDj Case 0 strDj = 不