江苏省苏州张家港市一中八年级信息技术《第八讲 IF语句》教案.doc

第八讲 IF语句
 If  条件 then 
     语句块1
  [ Else
               语句块2]
            End If
说明：
（1）“条件”一般为关系表达式或逻辑表达式。通常把关系表达式或逻辑表达式
的值为真时，称为条件满足；值为假时，称为条件不满足。反之亦然。
判断下列条件是否成立:
1、1<0
2、1=0
3、1<=0
4、3>=3
5、3<=3
（2）语句块1、语句块2分别是“条件”满足或不满足时，处理方法的描述，可以
是若干个语句。
（3）If…Then 、Else、End If 是VB的保留字。
功能：
（1）块If首先判断“条件”，其值为真时，执行语句块1；为假时执行语句块2。
当缺省[Else…]中的内容时，该分支结构只对条件满足的情况进行处理。执行过
程如下图所示。

二、实例：火车站行李费的收费标准是50kg以内（包括50kg）0.20/kg，超过
部分0.50/kg。编写程序，要求根据输入的任意重量，计算出应付的行李费。
根据题意计算公式如下：

1、界面设计：

2、属性设置：

3、代码：
 （1） ”计算"按钮的代码
  Private Sub Command1_Click()
         Dim w as single，pay as single
         w= Text1.Text
         If w > 50 Then
                        pay =(w - 50)* 0.5 + 50 * 0.2
         Else
                        pay = w * 0.2
         End If
         Text2.Text = pay
 End Sub
 （2） ”清空"按钮的代码
 Private Sub Command2_Click（）
         Text1.Text = ""
         Text2.Text = ""
 End Sub
 （3） ”退出"按钮的代码
 Private Sub Command3_Click（）
         End
 End Sub 
三、(a不为0)
提示：如果则输出“方程无实数根”，否则输出方程两实根。

 将x1,x2的值转换成VB表达式为
x1=(-b+sqr(b^2-4*a*c))/(2*a)
x2=(-b-sqr(b^2-4*a*c))/(2*a)