第4单元 选择结构程序设计.ppt

《第4单元 选择结构程序设计.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、程序设计基础-VB语言第4单元选择结构程序设计第4单元选择结构程序设计第一节if语句第二节select语句选择结构的应用第三节选择结构的嵌套实验1实验22本节知识点：用if语句实现选择结构的程序。第一节if语句31）If…Then语句(单分支结构)If<表达式>Then<语句块>EndIf或者：If<条件>Then<语句>如果条件表达式为真，执行Then后面的语句，如果条件表达式为假，不执行Then后面的语句而执行EndIf后面的语句。图4.5选择结构流程图第一节if语句4例4.4设密码。用IF语句来判定输

2、入密码的正确性。PrivateSubCommand1_Click()DimaAsString,bAsStringa="111111"b=InputBox("请输入密码：","密码对话框")Ifa=bThenMsgBox("密码正确")EndIfEndSub第一节if语句52）If…Then…Else语句(双分支结构)格式1：If<表达式>Then<语句块1>Else<语句块2>EndIf格式2：If<表达式>Then<语句1>Else<语句2>如果表达式为真，执行Then后面的<语句块1>，如果条件表达式为假，执

3、行Else后面的<语句块2>。第一节if语句6例4.5计算下列分段函数的值分析：对于此分段函数，由于包含X>=0和X<0两种情况，因此可以选用双分支结构的IF语句编程实现。PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(InputBox("请输入x:"))Ifx>=0Theny=(1-x)^2Elsey=x^2-1EndIfPrint"y=";yEndSub第一节if语句73）If…Then…ElseIf语句(多分支结构)使用形式:If<表达式1>The

4、n<语句块1>ElseIf<表达式2>Then<语句块2>…[Else语句块n+1]EndIf第一节if语句8这种结构称为块If结构。执行块If结构：先测试<表达式1>，如果<表达式1>成立（True），执行Then后面的<语句块1>；如果<表达式1>不成立，继续测试<表达式2>，如果<表达式2>成立（True)，执行Then后面的<语句块2>……如此测试下去，如果所有条件不成立，执行Else后面的<语句块n+1>。第一节if语句9例4.6输入一学生成绩，评定其等级。方法是：90～100分为“优秀”，80～89分

5、为“良好”，70～79分为“中等”，60～69分为“及格”，60分以下以为“不合格”。PrivateSubForm_Click()DimxAsIntegerx=Val(InputBox("请输入成绩:"))Ifx>=90ThenPrint"优秀"ElseIfx>=80ThenPrint"良好"ElseIfx>=70ThenPrint"中等"ElseIfx>=60ThenPrint"及格"ElsePrint"不及格"EndIfEndSub第一节if语句10本节知识点：用select语句实现选择结构的程序。第二节se

6、lect语句11语句格式：SelectCase条件表达式Case表达式列表1语句块1Case表达式列表2语句块2…[CaseElse语句块n+1]EndSelect当Case条件表达式的值符合某个Case子句指定的值条件时，就执行该Case子句中的语句，然后跳到EndSelect，从EndSelect出口。如果条件表达式的值与任何一个Case子句都不匹配，就执行CaseElse子句后面的<语句块n+1>，然后从EndSelect出口。条件表达式它可以是一个表达式，通常使用一个变量或常量，可以是数值型或是字符串型这

7、里的<语句>可以是一个语句，也可以是一组语句。第二节select语句12说明：<表达式列表>与<条件表达式>是同类型的，为下面3种形式之一：（1）一组枚举表达式(用逗号分隔)：例如，2,4,6,8。（2）表达式1To表达式2：例如，60to100。（3）Is关系运算符表达式：例如，Is<60。13思考题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()X=InputBox(“Input”)SelectCaseXCase1Print“分

8、支1”Case3Print“分支3”CaseElsePrint“Else分支”EndSelectEndSub程序运行后，如果在输入对话框中输入“5”，则窗体上显示的是？14将例4.6使用SelectCase语句来实现。程序段如下：PrivateSubForm_Click()DimxAsIntegerx=Val(InputBox("请输入成绩:"))Select