八年级信息技术《第八讲 IF语句》教案
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第八讲 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)