欢迎来到天天文库
浏览记录
ID:57059698
大小:640.50 KB
页数:80页
时间:2020-07-30
《vb第5章 选择分支与循环课件.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、第5章分支结构与循环5.1分支结构与分支结构语句5.2循环结构与循环结构语句5.3程序示例1第5章选择分支与循环5.1分支结构及语句5.1.1If-Then-Else-EndIf结构语句2第5章选择分支与循环If-Then-Else-EndIf结构语句If结构语句的一般形式为:IfeThen[A组语句]Else[B组语句]EndIf3第5章选择分支与循环IF语句的几种形式:或:If条件THEN语句1、If条件THEN语句组AEndif4第5章选择分支与循环举例PrivateSubCommand1_Click()IfText1.Text=""Then'当文本框中文本为空
2、时,则使文本框成为焦点Text1.SetFocusEndIfEndSubIfText1.Text=""ThenText1.SetFocus条件条件语句语句5第5章选择分支与循环举例:ifcj>85thenprintcjprint"优秀"endif多条语句Ifcj>85ThenPrintcj:Print"优秀"6第5章选择分支与循环Ifx3、=x7第5章选择分支与循环2、IF条件thenA语句组ElseB语句组EndifIF条件THENA语句组ELSEB语句组或8第5章选择分支与循环举例:Ifcj>=60ThenPrint"合格"ElsePrint"不合格"EndIfIfcj>=60ThenPrint"合格"ElsePrint"不合格"9第5章选择分支与循环例5-1求三角形面积的示例程序10第5章选择分支与循环PrivateSubCommand1_Click()Dima!,b!,c!,p!,s!a=Val(Text1.Text)‘取数据ab=Val(Text2.Text)‘取数据bc=Val(Text3.4、Text)‘取数据cIfa+b>cAnda+c>bAndb+c>aThenp=(a+b+c)/2s=Sqr(p*(p-a)*(p-b)*(p-c))Text4.Text=CStr(s)ElseText4.Text="数据错误"EndIfEndSubVAL的作用11第5章选择分支与循环PrivateSubCommand3_Click()End‘结束程序EndSubPrivateSubCommand2_Click()Text1.Text=""‘清除原有数据Text2.Text=""Text3.Text=""Text4.Text="“Text1.SetFocus‘将文本框15、设置为焦点EndSub12第5章选择分支与循环3、if条件1thenA1语句组ELseif条件2thenA2语句组Elseif条件3thenA3语句组……[ElseAn语句组]Endif不管有几个分支,依次判断,当某条件满足,执行相应的语句块,其余分支不再执行;若条件都不满足,且有Else子句,则执行该语句块,否则什么也不执行。ElseIf不能写成ElseIf。13第5章选择分支与循环IF(cj<60)THENprint“D”ELSEIF(cj<70)THENprint“C”ELSEIF(cj<85)THENprint“B”ELSEprint“A”ENDIFENDIF6、ENDIF不用ELSEIF语句IF的嵌套使用,有多个ENDIF14第5章选择分支与循环IF(cj<60)THENprint“D”ELSEIF(cj<70)THENprint“C”ELSEIF(cj<85)THENprint“B”ELSEprint“A”ENDIF用ELSEIF语句与谁配对?与它?与它?与它?只有一个endif结构简洁.与最靠近的IF或ELSEIF语句配对。15第5章选择分支与循环PrivateSubCommand1_Click()DimxAsIntegerx=Val(Text1.Text)Ifx<1ThenText2.Text=“小于1的数”ElseI7、fx<=10ThenText2.Text=“1到10之间”ElseText2.Text=”大于10的数”EndIfEndSub输入判断例5-2一个多分支的示例程序16第5章选择分支与循环2、if条件then语句组1else语句组2endif1、if条件THEN语句组(多条语句)endif(多分支结构)3、if条件1then语句组1elseif条件2then语句组2elseif条件3then语句组3……[else语句组n]endif17第5章选择分支与循环书写IF语句注意ELSE后的语句另起一行。ELSE的配对问题书写成阶梯形状elseif与else的
3、=x7第5章选择分支与循环2、IF条件thenA语句组ElseB语句组EndifIF条件THENA语句组ELSEB语句组或8第5章选择分支与循环举例:Ifcj>=60ThenPrint"合格"ElsePrint"不合格"EndIfIfcj>=60ThenPrint"合格"ElsePrint"不合格"9第5章选择分支与循环例5-1求三角形面积的示例程序10第5章选择分支与循环PrivateSubCommand1_Click()Dima!,b!,c!,p!,s!a=Val(Text1.Text)‘取数据ab=Val(Text2.Text)‘取数据bc=Val(Text3.
4、Text)‘取数据cIfa+b>cAnda+c>bAndb+c>aThenp=(a+b+c)/2s=Sqr(p*(p-a)*(p-b)*(p-c))Text4.Text=CStr(s)ElseText4.Text="数据错误"EndIfEndSubVAL的作用11第5章选择分支与循环PrivateSubCommand3_Click()End‘结束程序EndSubPrivateSubCommand2_Click()Text1.Text=""‘清除原有数据Text2.Text=""Text3.Text=""Text4.Text="“Text1.SetFocus‘将文本框1
5、设置为焦点EndSub12第5章选择分支与循环3、if条件1thenA1语句组ELseif条件2thenA2语句组Elseif条件3thenA3语句组……[ElseAn语句组]Endif不管有几个分支,依次判断,当某条件满足,执行相应的语句块,其余分支不再执行;若条件都不满足,且有Else子句,则执行该语句块,否则什么也不执行。ElseIf不能写成ElseIf。13第5章选择分支与循环IF(cj<60)THENprint“D”ELSEIF(cj<70)THENprint“C”ELSEIF(cj<85)THENprint“B”ELSEprint“A”ENDIFENDIF
6、ENDIF不用ELSEIF语句IF的嵌套使用,有多个ENDIF14第5章选择分支与循环IF(cj<60)THENprint“D”ELSEIF(cj<70)THENprint“C”ELSEIF(cj<85)THENprint“B”ELSEprint“A”ENDIF用ELSEIF语句与谁配对?与它?与它?与它?只有一个endif结构简洁.与最靠近的IF或ELSEIF语句配对。15第5章选择分支与循环PrivateSubCommand1_Click()DimxAsIntegerx=Val(Text1.Text)Ifx<1ThenText2.Text=“小于1的数”ElseI
7、fx<=10ThenText2.Text=“1到10之间”ElseText2.Text=”大于10的数”EndIfEndSub输入判断例5-2一个多分支的示例程序16第5章选择分支与循环2、if条件then语句组1else语句组2endif1、if条件THEN语句组(多条语句)endif(多分支结构)3、if条件1then语句组1elseif条件2then语句组2elseif条件3then语句组3……[else语句组n]endif17第5章选择分支与循环书写IF语句注意ELSE后的语句另起一行。ELSE的配对问题书写成阶梯形状elseif与else的
此文档下载收益归作者所有