VisualBasic程序设计案例教程 第4章 选择结构设计.ppt

理解选择结构程序设计的特点理解选择结构程序设计的特点熟练掌握熟练掌握 If语句、语句、Select Case语句语句掌握选项按钮、框架、复选框和计时器的常用属性、方法和掌握选项按钮、框架、复选框和计时器的常用属性、方法和事件事件教学重点与难点：教学重点与难点：掌握掌握VB程序设计中选择结构的理解和运用，理解掌握选择性程序设计中选择结构的理解和运用，理解掌握选择性控件和计时器控件的运用控件和计时器控件的运用 第第4 4章章 选择结构设计选择结构设计【案例说明案例说明】建立如下图所示的窗体，要求程序能对输入的建立如下图所示的窗体，要求程序能对输入的“性别性别”和和“邮政编码邮政编码”、“电话号码电话号码”进行校验（性别只允许输入进行校验（性别只允许输入“男男”或或“女女”，邮政编码必，邮政编码必须是须是6位数字，电话号码必须是位数字，电话号码必须是8位数字）。如果输入的数据不符号要求，位数字）。如果输入的数据不符号要求，则清空相应的文本框，并将插入点置于该框中。所有的校验工作可以在则清空相应的文本框，并将插入点置于该框中。所有的校验工作可以在单击单击“退出退出”按钮后进行，此时，程序检查所有文本框，如有空白或内按钮后进行，此时，程序检查所有文本框，如有空白或内容错误，要求继续输入，否则结束程序。容错误，要求继续输入，否则结束程序。程序运行效果如图所示。程序运行效果如图所示。分析：在过程中间我们不仅用到上一章的函数比如：分析：在过程中间我们不仅用到上一章的函数比如：“Exit Sub”是退出是退出过程，函数过程，函数Len（字符串）可得到字符串的长度，函数（字符串）可得到字符串的长度，函数IsNumeric（字符（字符串）可检验字符串是否是数值，更重要的时，程序代码中会用到条件句串）可检验字符串是否是数值，更重要的时，程序代码中会用到条件句来进行判断，即我们这一章所讲的重点之一，条件句。来进行判断，即我们这一章所讲的重点之一，条件句。4.1条件语句案例【技术要点】界面设计界面设计修改控件属性。修改控件属性。3编写代码及调试程序。编写代码及调试程序。Private Sub Command1_Click()If Textxm=Then Textxm.SetFocus Exit Sub End If If Textxb=Then Textxb.SetFocus Exit Sub End If If Textdz=Then Textdz.SetFocus Exit Sub End If 4.1条件语句案例If Textyb=Then Textyb.SetFocus Exit Sub End If If Textdh=Then Textdh.SetFocus Exit Sub End If EndEnd Sub以上是对退出命令按键的代码，当其对退出按键进行操作的时候，用件以上是对退出命令按键的代码，当其对退出按键进行操作的时候，用件条句条句If Textxm=Then如果姓名文本框（如果姓名文本框（Textxm）为空（）为空（），然后），然后把光标移到到文本框中（把光标移到到文本框中（Textxm.SetFocus），并退出（），并退出（Exit Sub）此次）此次操作的过程。操作的过程。4.1条件语句案例Private Sub Textdh_LostFocus()If Textdh.Text Then If Len(Textdh.Text)8 Or Not IsNumeric(Textdh.Text)Then Textdh.Text=Textdh.SetFocus End If End IfEnd SubPrivate Sub Textxb_LostFocus()If Textxb.Text Then If Textxb.Text 男男 And Textxb.Text 女女 Then Textxb.Text=Textxb.SetFocus End If End IfEnd Sub4.1条件语句案例Private Sub Textyb_LostFocus()If Textyb.Text Then If Len(Textyb.Text)6 Or Not IsNumeric(Textyb.Text)Then Textyb.Text=Textyb.SetFocus End If End IfEnd Sub代码分析：代码分析：以上是对性别文本框（以上是对性别文本框（Textxb）和联系电话文本框（）和联系电话文本框（Textdh）进行了处）进行了处理理当其光标从联系电话文本框（当其光标从联系电话文本框（Textdh）移出的时候即）移出的时候即Textdh_LostFocus()事件发生，用条件句事件发生，用条件句If Textdh.Text 判断，如果联系电话文本框不判断，如果联系电话文本框不为空，则再用条件句测试为空，则再用条件句测试If Len(Textdh.Text)8 Or Not IsNumeric(Textdh.Text)，如果输入的内容长度没有，如果输入的内容长度没有8位或者输入的内容位或者输入的内容不是数字型，如果成立，则置空该文本框（不是数字型，如果成立，则置空该文本框（Textdh.Text=），并把光），并把光标移到本文本框中。标移到本文本框中。4.1条件语句案例应用扩展应用扩展 如果要求在文本框失去焦点时就对文本框的内容进行校验，则如何编程如果要求在文本框失去焦点时就对文本框的内容进行校验，则如何编程？如果输入的数据不符合要求，或者在按如果输入的数据不符合要求，或者在按“退出退出”按钮时还有空白的文本按钮时还有空白的文本框，在作出处理之前要求给出提示信息，如何修改程序。框，在作出处理之前要求给出提示信息，如何修改程序。要解答以上两个问题，我们可以用到上一章中的消息框（要解答以上两个问题，我们可以用到上一章中的消息框（MsgBox）来实）来实现。现。代码如下：代码如下：Private Sub Command1_Click()If Textxm=ThenMsgBox 姓名不能为空，请确定并重新输入姓名不能为空，请确定并重新输入 Textxm.SetFocus Exit Sub End If If Textxb=ThenMsgBox 性别不能为空，请确定并重新输入性别不能为空，请确定并重新输入 Textxb.SetFocus Exit Sub End If 4.1条件语句案例If Textdz=ThenMsgBox 地址不能为空，请确定并重新输入地址不能为空，请确定并重新输入 Textdz.SetFocus Exit Sub End If If Textyb=ThenMsgBox 邮编不能为空，请确定并重新输入邮编不能为空，请确定并重新输入 Textyb.SetFocus Exit Sub End If If Textdh=ThenMsgBox 电话不能为空，请确定并重新输入电话不能为空，请确定并重新输入 Textdh.SetFocus Exit Sub End If EndEnd Sub4.1条件语句案例Private Sub Textdh_LostFocus()If Textdh.Text Then If Len(Textdh.Text)8 Or Not IsNumeric(Textdh.Text)Then MsgBox 电话输入位数不对或者输入的内容为非数字，请确定并重新电话输入位数不对或者输入的内容为非数字，请确定并重新输入输入 Textdh.Text=Textdh.SetFocus End If End IfEnd SubPrivate Sub Textxb_LostFocus()If Textxb.Text Then If Textxb.Text 男男 And Textxb.Text 女女 Then MsgBox 性别只能是男或女，你输入有误，请确定并重新输入性别只能是男或女，你输入有误，请确定并重新输入 Textxb.Text=Textxb.SetFocus End If End IfEnd Sub4.1条件语句案例Private Sub Textyb_LostFocus()If Textyb.Text Then If Len(Textyb.Text)6 Or Not IsNumeric(Textyb.Text)Then MsgBox 邮政编码位数不对或者是非数字型，请确定并重新输入邮政编码位数不对或者是非数字型，请确定并重新输入 Textyb.Text=Textyb.SetFocus End If End IfEnd Sub我们现在在录入李小平的时候，不小心把李小平的性别打成了我们现在在录入李小平的时候，不小心把李小平的性别打成了“田田”，本应该是本应该是“男男”这个运行效果如图这个运行效果如图 4.1条件语句案例相关知识及注意事项相关知识及注意事项1条件语句条件语句VB提供了两种格式的条件语句：提供了两种格式的条件语句：IfThen和和IfThenElse语句。语句。（1）IfThen语句语句IfThenThen语句有两种语法格式语句有两种语法格式单行结构格式单行结构格式If条件条件Then语句语句 块结构格式块结构格式 If条件条件Then 语句块语句块 End lf例如，如果满足条件例如，如果满足条件CJ60时，打印出时，打印出“成绩不及格成绩不及格”，采用的单行结，采用的单行结构条件语句是：构条件语句是：If CJ60 Then Print 成绩不及格成绩不及格如果条件成立时要执行多行代码，可以使用块结构格式，例如：如果条件成立时要执行多行代码，可以使用块结构格式，例如：If CJ60 ThenPrint 成绩不及格成绩不及格Print 请准备补考请准备补考End if4.1条件语句案例21f.ThenE1se语句语句IfThenElse语句有两种语法格式语句有两种语法格式 单行结构格式单行结构格式 if 条件条件Then语句语句1 Else语句语句2 块结构格式块结构格式If 条件条件Then语句块语句块1Else语句块语句块1End if311f函数函数IIf函数可用来执行一些简单的条件判断操作，其语法格式是：函数可用来执行一些简单的条件判断操作，其语法格式是：IIF（条件，条件为真时的值，条件为假时的值）（条件，条件为真时的值，条件为假时的值）例如，将例如，将a，b中的小数放人中的小数放人Min变量中，语句如下：变量中，语句如下：Min=IIF（ab，a，b）4.1条件语句案例4条件语句的嵌套条件语句的嵌套（1）一般格式）一般格式在条件语句中，在条件语句中，Then和和Else后面的语句块也可以包含另一个条件语句，后面的语句块也可以包含另一个条件语句，这就形成条件语句的嵌套。例如：这就形成条件语句的嵌套。例如：IF 条件条件1 ThenIF 条件条件2 ThenEnd ifElseEnd if例例 根据不同的时间段发出问候语，如根据不同的时间段发出问候语，如0时时-12时，显示时，显示“早上好早上好”。Private Sub Form_load()Dim h As Integer Show h=Hour(Time)取系统的时间取系统的时间 FontSize=30 ForeColor=RGB(255,0,0)BackColor=RGB(255,255,0)4.1条件语句案例If h 12 Then Print 早上好！早上好！Else If h 18 Then Print 下午好！下午好！Else Print 晚上好！晚上好！End If End IfEnd Sub（2）Elseif格式格式如果出现多层如果出现多层If语句嵌套，将使程序冗长，不便阅读，为此语句嵌套，将使程序冗长，不便阅读，为此VB提供了带提供了带有有Elself的语句结构。的语句结构。IF 条件条件1 Then语句块语句块1Elself 条件条件2 Then语句块语句块2Elself 条件条件3 Then4.1条件语句案例语句块语句块3Else语句块语句块n)End if 5多分支语句Case表达式1语句块1Case表达式表2语句块2Case else语句块nEnd Select“表达式表”通常是一个具体值（如Case 1），每一个值确定一个分支，还有3种方法可以确定设定值：（1）一组值（用逗号隔开），例如：Case l，3，5 表示条件在1，3，5范围内取值（2）表达式1 To 表达式2，例如：Case 60 To 80 表示条件取值范围为60-804.1条件语句案例（3）is关系式，例如：Case is5 表示条件在小于5的范围内取值4.1条件语句案例【案例说明】1输入三个数a，b，c，求其中的最大数。用户在“a=”文本框(Textl)，“b”文本框(Text2)和“c=”文本框(Text3)中输人数据，单击“判断”按钮后，在“最大数=”文本框(Text4)中输出结果。运行效果如左图所示。2输入三个数，将它们从大到小排，用户在3个文本框（Textl，Text2，Text3）中输人数据，单击“排序”按钮（Commandl），在第4个文本框（Text4）中显示结果。运行效果如右图所示。3输入学生成绩（百分制），判断该成绩的等级（优良、及格、不及格）。用来存放较大值，用户从“成绩”文本框（Textl）中输入学生成绩，单击“执行”按钮（commandl）后，经判断得到等级并显示在标签Label2上。程序运行结果如下图所示。4.2 选择结构程序设计案例【案例说明】1输入三个数a，b，c，求其中的最大数。用户在“a=”文本框(Textl)，“b”文本框(Text2)和“c=”文本框(Text3)中输人数据，单击“判断”按钮后，在“最大数=”文本框(Text4)中输出结果。运行效果如左图所示。2输入三个数，将它们从大到小排，用户在3个文本框（Textl，Text2，Text3）中输人数据，单击“排序”按钮（Commandl），在第4个文本框（Text4）中显示结果。运行效果如中图所示。3输入学生成绩（百分制），判断该成绩的等级（优良、及格、不及格）。用来存放较大值，用户从“成绩”文本框（Textl）中输入学生成绩，单击“执行”按钮（commandl）后，经判断得到等级并显示在标签Label2上。程序运行结果如右图所示。4.2 选择结构程序设计案例