单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,【例4-12】某航空公司规定在旅游的旺季79月份，如果订票数超过20张，票价优惠15%，20张以下，优惠5%；在旅游的淡季15月份、10月份、11月份，如果订票数超过20张，票价优惠30%，20张以下，优惠20%；其他情况一律优惠10%。,设计程序，根据月份和订票张数决定票价的优惠率。,设计步骤如下：,(1)建立应用程序用户界面与设置对象属性。,(2)编写程序代码。,根据流程图，可以写出命令按钮,Command1,的单击（,Click）,事件代码为：,Private Sub Command1_Click(),Dim m As Integer,n As Integer,r As Integer,m=Val(Text1.Text),n=Val(Text2.Text),Select Case m,Case Is=5,10,11,If n 20 Then r=20 Else r=30,Case 7 To 9,If n=8,false,(2)BCD 2+2,true,(6)8 5 Or Not 10 12+3,true,(7)23 3 And 5 4 And 7=5,false,4.2,用布尔表达式表示下列命题。,n,是,m,的倍数(2),n,是小于正整数,k,的偶数,n mod m=0 nk and n mod 2=0,(3)|x|y|,或,x=abs(y)or xy xz or y=18and age=1.65 or Sex=“,女性,”,and(age=16and age=1.60,(4),分房的条件为：已婚（,marrigerat,），,年龄（,age）,在26岁以上，工作年限（,workingage,）,在5年以上。,Marrigerat,=“,已婚,”,and age=26 and,workingage,=5,4.4 “x,是小于100的非负数”，用,VB,表达式表示正确的是,(1)0,x 100 (2)0=x 100,(3)0=x And x 100,(4)0=x Or x=0,