第9节内部函数,选择结构二.doc

例1、判断成绩是否合格 If 条件 then Then 部分 Else Else 部分 Endif Dim Data As Integer If Data =60 Then Print 合格 Else Print 不合格 End If End Sub 例2、成绩分等级 满分 90-99 优秀 80-89 良好 70-79 一般 60-69 合格 60以下 不合格 Dim cj as integer If cj=100 then Printf “满分” elseIf cj=90 then Print “优秀” ELSEIF cj=80 then Printf “良好” Elseif CJ=70 then Printf “一般” Elseif cj=60 then Printf”及格” Else Printf”不及格” Endif 二、多分支语句（Select...Case） 格式：Select Case 测试表达式 Case 表达式列表1 [语句块1] [case 表达式列表2 [语句块2]] ... [Case Else [语句块n]] End Select 说明： （1） 测试表达式值的类型是数值型、字符串型、日期型等，一旦与某个Case后的表达式值相等，则执行这个Case中的语句，完成后执行End Select后的语句。 （2）如果所有的Case后的表达式都不与测试表达式项匹配，则执行Case Else后的语句。 （3）表达式表与测试变量或表达式的类型必须相同，每一个表达式表是一个或几个值的列表。如果在一个列表中有多个值，就用逗号把值隔开。表达式表有四种形式： ( 一个表达式。如：Case 6 ( 一组用逗号隔开的枚举值。 如： Case 1，3，5，7 ( 表达式1 TO 表达式2。 如： Case 1 To 10 ( Is 关系运算符表达式。 如：Case Is=80 不能写成Case Is=80 and Is100 另外，在一个情况语句中，上述四种形式可以混合使用。 （4）Select Case语句在执行时，先求测试表达式的值，然后寻找该值与哪一个Case子句的表达式值相匹配，找到后则执行与该Case语句有关的语句块，之后自动转到EndSelect后的语句执行；如果没有找到与Case子句中的表达式相匹配的值，则执行Case Else子句有关的语句块，然后转到End Select后面的语句执行。 （5）当有多个Case子句的取值范围和测试表达式的值域相符时，只执行符合要求的第一个Case子句后的语句块。 （6)Select Case语句只对单个表达式求值，并根据求值结果执行不同的语句块；而If … Then … Else语句可以对不同的表达式求值，然后执行不同的操作。这是两者的主要区别。 例1：按输入的学生成绩分等级。 Data = InputBox(请输入一个成绩, 成绩分等) Select Case Data\ 10 Case 10 MsgBox 满分, , 成绩分等 Case 9 MsgBox 优秀, , 成绩分等 Case 8 MsgBox 良好, , 成绩分等 Case 7 MsgBox 一般, , 成绩分等 Case 6 MsgBox 合格, , 成绩分等 Case Else MsgBox 不合格, , 成绩分等 End Select 三、IIF函数 IIf函数的语法结构为 IIf(〈条件表达式〉，〈真部分〉，〈假部分〉) 例： 四、常用内部函数 VB提供系统内部函数分5类: 数学函数 随机函数 字符串函数 转换函数 日期和时间函数 函数的参数可以是常量、变量或表达式 视图—立即窗口 一.数学函数 数学函数用于各种数学运算,主要包括: 1、绝对值函数: Abs(x) 返回x的绝对值 例:Abs(3.4) 结果为3.4 Abs(-3.4) 结果为3.4 2、平方根函数: Sqr(x) 返回x的平方根, x=0 例: Sqr(9) 结果为3 3、三角函数: sin(x) 正玄函数 cos(x)