16if选择语句01

《16if选择语句01》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1第五讲程序控制结构教学目标：掌握选择控制结构（If语句），循环控件语句（For语句，dowhile…Loop语句。25.1选择控件结构5.1.1单行结构条件语句（1）格式If条件ThenThen部分[elseelse部分]（2）功能如果“条件”为True则执行“then部分”否则执行“else部分”Ifx>10thenx=x-1elsex=x*25.1.1单行结构条件语句（3）Then部分和else部分语句可以由多个语句构成，多语句间要用冒号隔开，也可含If语句。5.1选择控件结构Ifx>60thenprint“合格”:y

2、=x*2:printyelseprint“不合格”Ifx>60thenifx<70thenprint“合格”elseprint”良好”elseprint“不合格”print“X=90thenprint“X>=90”print“X<90”5.1.2块结构条件语句(1)一般格式If条件1Then语句块1[ElseIf条

3、件2Then语句2][ElseIf条件3Then语句3]……[Else语句n]Endif5.1选择控件结构5.1.2块结构条件语句(2)功能及执行顺序：“条件1”为True则执行”语句块1”;否则如果“条件2”为True则执行“语句块2”；……否则执行“语句块n”,执行完某“语句块”后，跳出IF结构执行Endif后的语句。(3)“语句块”也可以是多个语句。如：5.1选择控件结构If(x>0)and(y

4、（4）在“块结构”中，ElseIf子句和Else子句都是可选的，如果省略这些子句则变为：If条件Then语句块Endif5.1选择控件结构IfC<0Thentext1.text=”Goodmorning”EndIf5.1.2块结构条件语句（5）若有多个条件为True则执行第一个为True后面的语句。5.1选择控件结构PrivateSubForm_Load()DimchAsStringch=InputBox$("请输入对话框","检查框")IfLen(ch)<6ThenText1.Text="字符个数小于6"ElseIf"a"

5、=Left(ch,1)ThenText1.Text="首字符不能为a"ElseText1.Text="你全错了"EndIfEndSub当输入“abc”则输出“字符个数小于6”9例5.1.1在文件夹（例5.1.1）下有一个工程文件sjt3.vbp，其窗体中有一个红色方框和一个计时器控件。程序运行时每隔半秒，方框的颜色交替变为黄色和红色（黄色值为&HFFFF&；红色值为&HFF&）；若单击鼠标右键，则停止变色；若单击鼠标左键，则方框左上角移到鼠标点击的位置处（如图所示）。请填加相应的事件过程，以实现上述程序功能。10例5.1.1

6、-Form_Load事件PrivateSubForm_Load()Timer1.Enabled=TrueTimer1.Interval=500EndSub11例5.1.1-Timer1_Timer事件PrivateSubTimer1_Timer()IfShape1.BackColor=&HFF&ThenShape1.BackColor=&HFFFF&ElseShape1.BackColor=&HFF&EndIfEndSub12例5.1.1-Timer1_Timer事件PrivateSubTimer1_Timer()IfSha

7、pe1.BackColor=&HFF&ThenShape1.BackColor=&HFFFF&ElseShape1.BackColor=&HFF&EndIfEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenShape1.Left=XShape1.Top=YEndIfIfButton=2ThenTimer1.Enabled=FalseEndIfEndSub14例5.1.215例5.1.2

8、-Cmd1_Click事件PrivateSubCmd1_Click()Text1(0)=Str(Time())Text1(1).Text="":Text1(2).Text=""Cmd1.Enabled=FalseCmd2.Enabled=TrueEndSub16例5.1.2-Cmd2_Cl