vb教程4-2.ppt

If分支结构 流程图： if分支结构的语法格式 If 条件1 Then 语句组1 ElseIf 条件2 Then [ 语句组2 …… ElseIf 条件n Then 语句组n [Else 语句组n+1]] End If If分支结构的说明 1、执行过程 2、单分支结构 if then 语句组 endif 3、双分支机构 if then 语句组1 else 语句组2 endif 4、多分支结构 求 x2+1 x0 y= 0 x=0 x2-1 x0 解法1： if x0 then y=x^2+1 elseif x0 then y=x^2-1 else y=0 end if 求 x2+1 x0 y= 0 x=0 x2-1 x0 解法2： If x0 then y=x*x+1 End if If x0 then y=x*x-1 End if If x=0 then y=0 End if 求 x2+1 x0 y= 0 x=0 x2-1 x0 解法3：用双分支结构，可以把条件看作“x=0”和“x0”这两种情况，再把“x0”这个条件分成“x0”和“x0”这两种情况。--------（嵌套） Dim x As Single, y As Single x=Val(InputBox(“请输入变量的值”)) If x0 Then If x0 Then y=x^2+1 Else y=x^2-1 End If Else y=0 End If Print “x=”;x,” ”;”y=”;y 以上代码还可以写成以下形式： If x0 Then y=x^2+1 Else If x=0 Then y=0 Else y=x^2-1 End If End If Private Sub Command1_Click() Dim x$, y$ x = UCase(Text1.Text) If x = O Then y = O型血人意志坚强、充满自信、富于理智、思路清晰、遇事冷静、精力充沛、有实干能力 ElseIf x = AB Then y = AB型血人的长处是思想敏锐、观察仔细、热心、认真、富于同情心和自我牺牲精神、善于反省 ElseIf x = B Then y = B型血人恬淡、快活、积极、敏感、开朗、喜欢交际、热情、乐天、活跃 ElseIf x = A Then y = A型血人的优点是温顺、慎重、细心、谦让、自省、感情丰富、有同情心、牺牲精神、融和性、忧郁 End If Label2.Caption = y End Sub 例4-8 数据文件in.txt保存了三个整数，请读出数据并判断以这三个数为边长的三条线段能不能构成三角形，如果能构成三角形，求这个三角形的面积，否则，输出信息“三边构不成三角形！”。 Private Sub Timer1_Timer() Dim x As Date x = Time If Right(x, 5) = 00:00 Then MsgBox 现在是北京时间 Hour(x) 点整！ Else End If End Sub 单行 if 语句 格式 ： if then [语句组1] [else [语句组2] select case 结构 1．格式　　　　　　　　　　　　　　 Select Case 变量或表达式 　　　　 Case 表达式列表1