八年级信息技术第八讲IF语句教案

第八讲 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）kg，超过

部分kg。编写程序，要求根据输入的任意重量，计算出应付的行李费。

根据题意计算公式如下：

1、界面设计：

2、属性设置：

3、代码：

（1）”计算"按钮的代码

Private Sub Command1_Click()

Dim w as single，pay as singl e

w=

If w > 50 Then

pay =(w - 50)* + 50 * Else

pay = w *

End If

Tex= pay

End Sub

（2）”清空"按钮的代码

Private Sub Command2_Click（）

= ""

= ""

End Sub

（3）”退出"按钮的代码

Private Sub Comma nd3_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)