第八章执行语句.ppt

运算符和表达式 算术运算符 + - * / \整除 mod求余 ^乘幂 整除\ 如果操作数有小数先四舍五入，后计算。对于.5有些例外，四舍五入的结果是离它最近的偶数。绝对值小于等于0.5的数不能作为除数。因为0.5会四舍五入变成离它最近的偶数0…… 求余 如果被除数是负数，余数也是负数，如果被除数是正数，余数也是正数。 如果有小数，则四舍五入，规则同整除。 字符串连接运算符 强制连接为字符串 +只有左右都是字符串时才连接 运算符的优先级（看书上的表） 11*3\9/2 Mod 3 11*3\9/2 Mod 3 + true 注意：逻辑值再算术表达式里,True被当做是-1,False被当做是0. =一种是赋值，比如a=10，单独出现在一行的 =一种是比较运算符，相等的，比如性别=“男”，和其他语句放在一起 8.4 VBA流程控制语句 赋值语句 Dim age as integer age=20 Debug.Print age Let age=30 MsgBox age 笔试经常考的三种显示形式：debug.print;msgbox;text1=; 顺序结构 8.4.2 条件语句-1.单分支结构 如果不努力，大家就没办法通过二级考试。 如果我有300多快钱，我就请你吃烤鸭。 如果 满足条件 那么 执行操作 结束判断 If 条件 then 要执行的语句 End if 运行下面的程序，输入不同的结构。窗体中有一个标签，一个文本框和一个按钮 Dim age as integer age=Text1 If age =18 Then Msgbox “欢迎来到***网吧。” End if MsgBox “门打开了。” 例8.4 If Hour(Time())=12 then MsgBox “下午好” End If 单分支结构，判断当条件为真时，要执行的语句，但没有做出条件为假时，该如何执行。 2.双分支结构 If 条件 then 语句块1 Else 语句块2 End if Dim age as integer age=Text1 If age =18 Then Msgbox “欢迎来到***网吧。” Else Msgbox “对不起，你不到法定年龄，请离开” End if MsgBox “门打开了。” 3.多分支结构 如果我有300多块钱，我请你吃烤鸭 否则 如果我有200多块钱，我请你吃烧鸡。 否则 如果我有100多块钱，我请你吃烤羊肉串。 否则 如果我有50多块钱，我请你吃烧饼。 否则 如果我有1块多钱，我请你喝小米粥。 否则 还是你请我吃吧。 mymoney=Text1 If mymoney=300 Then Msgbox “吼吼~吃烤鸭喽~” Elseif mymoney =200 then Msgbox “吃烧鸡去” Elseif mymoney =100 then Msgbox”烤羊肉串也不错” Elseif mymoney=50 then Msgbox “钱不多，吃烧饼吧。” Elseif mymoney =1 then Msgbox “管你喝饱” Else Msgbox “还是你请我把” End if 例8.6 自己课后去看 If 语句的嵌套 例8.7 X=Text1 If x0 then MsgBox Sqr(x) Else if x=0 Then msgbox 0 Else msgbox Abs(x) End if End if 4.另外一种多分支结构 Select case 表达式 case 表达式1 语句块 case 表达式2 语句块 case 表达式3 语句块 case else 语句块 End select 例 X=Text1 Select Case x case is=18 msgbox “你可以玩所有的玩具。” case 12 to 17 msgbox “你可以在学校里玩。” case 7 to 11 msgbox “你应该在父母的指导下玩。” Case 2,3,4,5,6 msgbox “你能玩小孩玩的玩具” Case Else msgbox “你还是躺着吧。” End Select 根据成绩输出相关内容 Dim score as integer Score =55 If score=90 then msgbox