新Visual Basic程序设计 第三版 教学课件 丁爱萍 第1 5章 项目四.pptVIP

项目四　选择结构程序设计 　　　　　任务4.1 　 单条件选择语句If　　任务导入　　在分支现象中，经常遇到具有两个分支的现象，即双分支。例如，在计算分段函数的值时，首先应根据x的值进行判断，当x0时，y的值是x的平方根；否则，y的值是x的取负。 　　学习目标　　(1) 能熟练使用If语句解决双分支现象。　　(2) 会使用IIf函数。　　(3) 会使用If语句的嵌套解决多分支现象。 　　任务实施　　1. 比较单行结构条件语句与块结构条件语句的异同　　1) 单行结构条件语句　　单行条件语句比较简单，其语法格式为　　If 〈条件〉 Then [〈语句组1〉] [ Else 〈语句组2〉] 　　【说明】　　(1)〈条件〉可以是关系表达式、逻辑表达式或数值表达式。如果以数值表达式做条件，则非0值为真，0为假。　　(2) 单行条件语句的执行过程为：判断〈条件〉，若为真，则执行〈语句组1〉；否则执行Else后面的〈语句组2〉。　　(3) 如果没有Else子句，则〈语句组1〉为必要参数，在〈条件〉为真时执行；〈条件〉为False时，什么都不做，执行If语句下面的语句。 　　【课堂演练】　　【实例4-1】 输入x，计算y的值。其中： 　　【实现步骤】　　(1) 问题分析。该题是数学中的一个分段函数，它表示当x≥0时，用公式y?=　 　来计算y的值；当x??0时，用公式y = –x来计算y的值。在选择条件时，即可以选择x≥0作为条件，也可以选择x??0作为条件。在这里，选x≥0作为选择条件。这时，当x≥0为真时，执行y?=　 　?；为假时，执行y = –x。 　　(2) 建立应用程序用户界面，并设置对象属性，如图4.1所示。 图4.1 计算分段函数y的值 　　(3) 编写事件代码。命令按钮Command1的单击(Click)事件代码为　　Private Sub Command1_Click()　　 Dim x As Single, y As Single ‘ 定义x、y为单精度数　　 x = Val(Text1.Text) ’ 输入x的值　　 If x = 0 Then y = Sqr(x) Else y = -x ‘ 判断并计算　　 Text2.Text = y　　’ 输出结果　　 Text2.Locked = True　　End Sub 　　(4) 运行程序，结果如图4.1所示。　　【实例4-2】 已知两个数x和y，比较它们的大小，输出较大数。　　【实现步骤】　　(1) 建立应用程序用户界面，并设置对象属性，如图4.2所示。 图4.2 输出两数中的较大数 　　(2) 编写事件代码。命令按钮Command1的单击(Click)事件代码为　　Private Sub Command1_Click()　　 Dim x As Single, y As Single‘ 定义变量数据类型为单精度　　 x = Val(Text1.Text)　　 y = Val(Text2.Text)　　 If x y Then Label3.Caption = “较大数为” Str(y)　　 If x y Then Label3.Caption = “较大数为” Str(x)　　End Sub 或者编写代码为Private Sub Command1_Click() Dim x As Single, y As Single 定义变量数据类型为单精度数 x = Val(Text1.Text) y = Val(Text2.Text) If x y Then t = x: x = y: y = t 如果x小，则交换x、y的值 Label3.Caption = 较大数为 Str(x) 输出比较结果End Sub(3) 运行程序，结果如图4.2所示。 　　2) 块结构条件语句　　使用单行结构条件语句，可以满足许多选择结构程序设计的需要，但是当Then部分和Else部分包含较多内容时，在一行中就难以容纳所有命令了，即使能够容纳，也将使程序结构变得不清晰。为此，VB提供了块If语句，将一个选择结构用多个语句行来实现。 　　块If语句又称为多行If语句，其语法格式如下：　　If 〈条件〉 Then　　 〈语句组1〉　　[Else　　 〈语句组2〉]　　End If 　　【说明】　　(1) 在块结构中，If语句必须是第一行语句。If块必须以一个End If语句结束。　　(2) 当程序运行到If块时，首先测试〈条件〉，如果为True，则执行Then之后的〈语句组1〉；如果为False，且有Else子句，则执行Else