【例5-1】设界面如下图所示，用文本框输 入x的值，单击“计算Y”按钮时，根据以 下公式计算y的值。 第五章选择结构程序设计 x≤0 x>0 1 计算分段函数 ▣x 计算 Text1 Label3 Command1 193 6
第 五 章 选 择 结 构 程 序 设 计 6 【例5-1】设界面如下图所示，用文本框输 入x的值，单击“计算Y”按钮时，根据以 下公式计算y的值。 |x| x≤0 lnx x>0 y= Text1 Label3 Command1
代码如下： 第五章 Private Sub Command1 ClickO X=Val(Text1.Text) IfX<=0 Then Y=Abs(X)Else Y=Log(X) 选择结构程序设计 Label3.Caption Y End Sub 7
第 五 章 选 择 结 构 程 序 设 计 7 Private Sub Command1_Click() X = Val(Text1.Text) If X <= 0 Then Y = Abs(X) Else Y = Log(X) Label3.Caption = Y End Sub 代码如下：
注意： 1)应作为一条语句书写。如果语句太长需 要换行，必须在折行处使用续行符号。 第五章选择结构程序设计 例： If N>0 Then A=A+B:B=B+A Else_ A=A-B:B=B-A 193 8
第 五 章 选 择 结 构 程 序 设 计 8 注意： 1）应作为一条语句书写。如果语句太长需 要换行，必须在折行处使用续行符号。 例: If N>0 Then A=A+B:B=B+A Else _ A=A-B:B=B-A
2)多条单行结构条件语句不要用冒号合并 成一行。例如： 第五章 a=1:b=-2 If a>0And b>0Then y=a+b 选择结构程序设计 If a>0And b<0 Then y=a-b Print y 打印出y的值为3，如果把以上两个单行 结构条件语句合并成一行： If a>0And b>0Then y=a+b:If a>0 And b<0 Then y=a-b 则y没有被求值。 9
第 五 章 选 择 结 构 程 序 设 计 9 2）多条单行结构条件语句不要用冒号合并 成一行。例如： a = 1 : b = -2 If a > 0 And b > 0 Then y = a + b If a > 0 And b < 0 Then y = a - b Print y 打印出y的值为3，如果把以上两个单行 结构条件语句合并成一行： If a > 0 And b > 0 Then y = a + b: If a > 0 And b < 0 Then y = a – b 则y没有被求值
3)无论条件是否成立，都具有共同出口。例： X=2 第五章 IfX>=0Then X=1+X Else X=5-X Y=1-X Print "Y=";Y 共同出口 选择结构程序设计 X=-2 IfX>=0 The=1+X Else X=5-X Y=1-X Print "Y=";Y 4)单行结构条件语句可以嵌套 IF.THEN.IF.THEN .ELSE.ELSE
第 五 章 选 择 结 构 程 序 设 计 10 3）无论条件是否成立，都具有共同出口。例: 4）单行结构条件语句可以嵌套 IF . THEN.IF . THEN .ELSE .ELSE. X = 2 If X >= 0 Then X = 1 + X Else X = 5 - X Y = 1 - X Print "Y="; Y X = -2 If X >= 0 Then X = 1 + X Else X = 5 - X Y = 1 - X Print "Y="; Y 共同出口