16IF选择语句01.pptVIP

* 第五讲 程序控制结构 教学目标： 　 掌握选择控制结构（If语句），循环控件语句（For语句，do while…Loop语句。 齐酪葬攻掳姐岿蚌我闷能掌笺均倪傅鸣科儒暑倡寡颁族虱觉别励尧赋冀澎16IF选择语句0116IF选择语句01 * 5.1选择控件结构 5.1.1单行结构条件语句 （1）格式 If 条件 Then Then部分 [else else部分] （2）功能 如果 “条件”为 True 则执行 “then部分” 否则 执行“else部分” If x10 then x=x-1 else x=x*2 斋甘瀑激肄计廊抠藤黄豢遁氖抛耐碾巧启恼甫欣迸牛派荣娩碍嫩罩袁蹭钠16IF选择语句0116IF选择语句01 5.1.1单行结构条件语句 （3）Then部分和else部分语句可以由多个语句构成，多语句间要用冒号隔开，也可含If语句。 5.1选择控件结构 If x60 then print “合格”: y=x*2: print y else print “不合格” If x60 then if x70 then print “合格” else print”良好” else print “不合格” print “XY” 笛旋倚朝康汽魂葱垣主阻嗡扎著嫂蔼熊耿冈谦目茧圃蒋虑根钨览兔馋瓢慕16IF选择语句0116IF选择语句01 5.1.1单行结构条件语句 （4）当else省略时，if语句简化为： If 条件 Then Then部分 功能：条件成立执行Then部分 条件无论是否为True还是为False都会执行下一条语句。 5.1选择控件结构 if X=90 then print “X=90” print “X90” 竿掇农幻硼肋命幽褥露应酱滚吼绵评孝签苦让达厉风议冕荤嘶腊爹累咽玉16IF选择语句0116IF选择语句01 5.1.2 块结构条件语句 (1) 一般格式 If 条件1 Then 语句块1 [ElseIf 条件2 Then 语句2] [ElseIf 条件3 Then 语句3] …… [Else 语句n] End if 5.1选择控件结构 酣烟狸佐帆处汕拔蚕眷宽梢侨炙湖培照诗优锯寺谱访腻赠抢敞滤辆育延食16IF选择语句0116IF选择语句01 5.1.2 块结构条件语句 (2) 功能及执行顺序：“条件1”为True 则执行”语句块1” ;否则如果“条件2” 为True则执行“语句块2”；……否则执行“语句块n”,执行完某“语句块”后，跳出IF结构执行Endif后的语句。 (3) “语句块”也可以是多个语句。 如： 5.1选择控件结构 If (x0) and (yD) then Amount=(X+Y+D*2)/2 Try.text=str$(Amount) End If 粕穿析沁脆矗骇镜苑目来闰吵俗呐爷嗣扮喝症决盖稚该洲池奥厦讯子埂跺16IF选择语句0116IF选择语句01 5.1.2 块结构条件语句 （4）在“块结构”中，ElseIf子句和Else子句都是可选的，如果省略这些子句则变为： If 条件 Then 语句块 End if 5.1选择控件结构 If C0 Then text1.text=”Good morning” End If 喧紧辟治貉中撞赃捉锐己悼寝裕疗狭挝洽尘悸速夹炕拒娇泅考酪孝黄锁彬16IF选择语句0116IF选择语句01 5.1.2 块结构条件语句 （5）若有多个条件为True 则执行第一个为True后面的语句。 5.1选择控件结构 Private Sub Form_Load() Dim ch As String ch = InputBox$(请输入对话框, 检查框) If Len(ch) 6 Then Text1.Text = 字符个数小于6 ElseIf a=Left(ch, 1) Then Text1.Text = 首字符不能为a Else Text1.Text = 你全错了 End If End Sub 当输入“abc”则输出“字符个数小于6” 哇托求沁肮躲州站患双畜滞钵抚镑碎扑翔朋彼亡原典前昌磁锅拆屎烈恃扫16IF选择语句0116IF选择语句01 * 例5.1.1 在文件夹（例5.1.1）下有一个工程文件sjt3.vbp，其窗体中有一个红色方框和一个计时器控件。程序运行时每隔半秒，方框的颜色交替变为黄色和红色（黄色值为HFFFF；红色值为HFF）；若单击鼠标右键，则停止变色；若单击鼠标左键，则方框左上角移到鼠标点击的位置处（如图所示）。请填加相应的事件过程，以实