欢迎来到天天文库
浏览记录
ID:41323248
大小:352.50 KB
页数:24页
时间:2019-08-22
《VB第五章控制结构-选择结构》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、第5章VB控制结构5.1顺序结构5.2选择结构5.3循环结构5.4其它辅助控制语句5.5综合应用5.6程序调试1VB具有结构化程序设计的三种程序控制结构,即顺序结构、选择结构、循环结构,是程序设计的基础。(1)顺序结构各语句按出现的先后次序执行bABa用传统流程图表示为2(2)选择结构传统流程图:ba条件?AB不成立成立根据条件决定执行的语句3(3)循环结构I、当(智慧)型循环结构a条件?成立循环体b不成立aa循环体b不成立成立条件?II、直到(鲁莽)型循环结构根据条件重复执行语句(称为循环体)
2、45.1顺序结构一般程序设计语言中顺序结构的语句主要:赋值语句和输入/输出语句等。在VB中赋值语句输入/输出通过:文本框控件、标签控件、InputBox函数、MsgBox函数和过程Print方法等来实现。55.2选择结构计算机要处理的问题往往是复杂多变的,仅采用顺序结构是不够的。必须利用选择结构等来解决实际应用中的各种问题。VB中主要通过If条件语句和Select情况语句来实现。它们都是对条件进行判断,根据判断结果,选择执行不同的分支。65.2.1If条件语句1.If…Then语句(单分支结构)
3、If<表达式>Then语句块(可以是一句或多句语句)EndIf或If<表达式>Then<语句>表达式:关系表达式、逻辑表达式,算术表达式。表达式值按非零为True,零为False进行判断。该语句的作用是当表达式的值为True,执行Then后面的语句块,否则不做任何操作。IF演示7单分支结构例:已知两个数x和y,比较它们的大小,使得x大于y。Ifx4、在一行上书写。8双分支结构2.If…Then…Else语句If表达式Then语句块1Else语句块2EndIf或If表达式Then语句1Else语句2当表达式的值为True时,执行Then后面的语句块1,否则执行Else后面的语句块29双分支结构例计算分段函数单分支y=cos(x)-x^3+3*x结构实现Ifx<>0Theny=sin(x)+sqrt(x*x+1)Ifx<>0Then双分支y=sin(x)+sqr(x*x+1)Else结构实现y=cos(x)-x^3+3*xEndIf10多分支结5、构3.If…Then…ElseIf语句If表达式1Then语句块1ElseIf表达式2Then语句块2…[Else语句块n+1]EndIf作用:根据不同的表达式值确定执行哪个语句块11例已知变量ch中存放了一个字符,判断该字符是字母字符、数字字符还是其他字符。IfUCase(ch)>="A"AndUCase(ch)<="Z"ThenMsgBox(ch+"是字母字符")'考虑大小写字母ElseIfch>="0"Andch<="9"Then'数字字符MsgBox(ch+"是数字字符")Else'除上6、述字符以外的字符MsgBox(ch+"是其他字符")EndIf不管有几个分支,依次判断,当某条件满足,执行相应的语句,其余分支不再执行;若条件都不满足,且有Else子句,则执行该语句块,否则什么也不执行。ElseIf不能写成ElseIf多分支结构例12例:编写一个程序,根据输入的年份,判断该年份是否闰年IF条件语句(1)建立应用程序的用户界面和设置对象属性(2)编写程序代码13IF条件语句X被4整除X被100整除X被400整除NYYYNNT=falseT=TrueT=falseT=True14O7、ptionExplicitPrivateSubCommand1_Click()DimxAsInteger'x表示年份DimtAsBoolean'用于判断的标志x=Val(Text1.Text)If(xMod4)=0ThenIf(xMod100)=0ThenIf(xMod400)=0Thent=TrueElset=FalseEndIfelset=TrueEndIfElset=FalseEndIfIftThenText2.Text=Str(x)&"是闰年!"ElseText2.Text=Str(x)8、&"不是闰年!"EndIfEndSub15If语句的嵌套是指If或Else后面的语句块中又包含If语If表达式1ThenIf表达式2Then…EndIf…EndIfIf语句的嵌套IF<条件1>Then…..IF<条件2>Then……Else…..EndIf….Else….IF<条件3>Then…..Else…..EndIf…..EndIF16Ifx
4、在一行上书写。8双分支结构2.If…Then…Else语句If表达式Then语句块1Else语句块2EndIf或If表达式Then语句1Else语句2当表达式的值为True时,执行Then后面的语句块1,否则执行Else后面的语句块29双分支结构例计算分段函数单分支y=cos(x)-x^3+3*x结构实现Ifx<>0Theny=sin(x)+sqrt(x*x+1)Ifx<>0Then双分支y=sin(x)+sqr(x*x+1)Else结构实现y=cos(x)-x^3+3*xEndIf10多分支结
5、构3.If…Then…ElseIf语句If表达式1Then语句块1ElseIf表达式2Then语句块2…[Else语句块n+1]EndIf作用:根据不同的表达式值确定执行哪个语句块11例已知变量ch中存放了一个字符,判断该字符是字母字符、数字字符还是其他字符。IfUCase(ch)>="A"AndUCase(ch)<="Z"ThenMsgBox(ch+"是字母字符")'考虑大小写字母ElseIfch>="0"Andch<="9"Then'数字字符MsgBox(ch+"是数字字符")Else'除上
6、述字符以外的字符MsgBox(ch+"是其他字符")EndIf不管有几个分支,依次判断,当某条件满足,执行相应的语句,其余分支不再执行;若条件都不满足,且有Else子句,则执行该语句块,否则什么也不执行。ElseIf不能写成ElseIf多分支结构例12例:编写一个程序,根据输入的年份,判断该年份是否闰年IF条件语句(1)建立应用程序的用户界面和设置对象属性(2)编写程序代码13IF条件语句X被4整除X被100整除X被400整除NYYYNNT=falseT=TrueT=falseT=True14O
7、ptionExplicitPrivateSubCommand1_Click()DimxAsInteger'x表示年份DimtAsBoolean'用于判断的标志x=Val(Text1.Text)If(xMod4)=0ThenIf(xMod100)=0ThenIf(xMod400)=0Thent=TrueElset=FalseEndIfelset=TrueEndIfElset=FalseEndIfIftThenText2.Text=Str(x)&"是闰年!"ElseText2.Text=Str(x)
8、&"不是闰年!"EndIfEndSub15If语句的嵌套是指If或Else后面的语句块中又包含If语If表达式1ThenIf表达式2Then…EndIf…EndIfIf语句的嵌套IF<条件1>Then…..IF<条件2>Then……Else…..EndIf….Else….IF<条件3>Then…..Else…..EndIf…..EndIF16Ifx
此文档下载收益归作者所有