程序设计基础VB讲稿04VB程序控制结构2011 - 图文

【例4.2.1】实现分支函数?x?1y???2x?5?x?0??x?0?Private Sub Form_Click ( )Dimx As Single,y As Singlex=Val(InputBox( \请输入x：\If x>=0 Theny=x-1Elsey=2*x+5Print\x=\x, \y=\yEnd Sub4.2.2 块If语句块If语句也称“多行If语句”，有“双分支”、“单分支”和“多分支”三种形式。?1、双分支块If语句【语法格式】

If <表达式>Then<语句块1>Else<语句块2>End If双分支块If语句【执行过程】首先计算<表达式>的值，然后判断：

若为真（非0），执行<语句块1>后“转移”到End If语句；

若为假（0），执行<语句块2>。

【注意】块If语句中允许多行书写，因此表示语句结束的End If不能省略。【例4.2.2】成绩处理程序输入一个学生的成绩，如果高于60分则输出“及格”，否则输出“不及格”。

Private Sub Form_Click ( )Dim score As Integerscore =Val (InputBox (\请输入成绩：\)If score>= 60ThenPrint\及格\ElsePrint\不及格\End IfPrint \score=\scoreEnd Sub