(共10张PPT)
复习：
上节课我们用顺序结构语句编写同学的标准体重。
Dim
h,
w
As
Single
h
=
Val(InputBox(“请输入身高”,
“输入数据”))
w
=
(h
-
80)
0.7
Print
“身高为”;
h;
“厘米的男同学标准体重为”;
w;
“公斤”
w
=
(h
-
70)
0.6
Print
"身高为";
h;
"厘米的女同学标准体重为";
w;
"公斤"
输入语句
打印输出语句
赋值语句
顺序结构程序：
主要有赋值语句、输入语句、输出语句构成，是最简单、最基本的结构。
导入：
如果想让程序能根据同学的性别自动选择不同计算方法并输出该同学的标准体重。应该如何修改程序？这就是我们这节课要学习的内容。
能根据给定的条件来选择执行相应的语句就是选择，在计算机程序中我们用选择语句实现。
选择语句
选择语句的格式表示为：
if
<条件>
then
语句组1
else
语句组2
end
if
end
if
if
<性别等于男>
then
用男生的标准体重公式计算并输出
else
用女生的标准体重公式计算并输出
思考：else
及后面的语句组2是不是必须的？
[
]
S=“男”
？
w=(h-70)
0.6
print
n;"同学",s
print
"你的标准体重应该为";w;"公斤"
是
w=(h-80)
0.7
print
n;"同学",s
print
"你的标准体重应该为";w;"公斤"
否
判断执行完毕
菱形，表示判断，经常会出现在选择结构语句中
S=“男”
？
w=(h-70)
0.6
print
n;"同学",s
print
"你的标准体重应该为";w;"公斤"
是
w=(h-80)
0.7
print
n;"同学",s
print
"你的标准体重应该为";w;"公斤"
否
判断执行完毕
if
s="男"
then
w=(h-80)
0.7
print
n;"同学",s
print
"你的标准体重应该为";w;"公斤"
else
w=(h-70)
0.6
print
n;"同学",s
print
"你的标准体重应该为";w;"公斤"
end
if
n=inputbox("输入姓名","输入")
s=inputbox("输入性别","输入")
h=val(inputbox("输入身高(厘米)","输入"))
dim
n,s
as
string
dim
h,w
as
single
字符串类型
小数类型
课堂任务
任务一：在“3.标准体重（精简语句）”中修改程序，缩减其中的语句而不影响程序的功能。
任务二：在“4.标准体重（完善性别）”中修改程序，使其可以判断性别出错的情况。
任务三：在“5.标准体重（完善性别2——没有else）”中修改程序，使程序只有
if…
then语句，没有else。
课堂作业
1、阅读下面代码，写出程序的运行结果：
dim
i
as
single
i=1
If
i>=0
then
print
“你通过了！“
Else
print
“再试一次！”
End
if
运行结果：_______________。
你通过了！
课堂作业
2、阅读下面代码，写出程序的运行结果：
dim
x,y
as
single
x=inputbox
If
x>0
then
y=3
x+5
Else
y=0
Print
y
如果键盘输入为-8，则运行结果：______。
0
谢谢！dim
n,s
as
string
dim
h,w
as
single
n=inputbox("请输入姓名","输入数据")
s=inputbox("请输入性别","输入数据")
h=val(inputbox("请输入身高（单位：厘米）","输入数据"))
if
s="男"
then
w=(h-80)
0.7
print
n;"同学",s
print
"你的标准体重应该为";w;"公斤"
else
w=(h-70)
0.6
print
n;"同学",s
print
"你的标准体重应该为";w;"公斤"
end
ifdim
n,s
as
string
dim
h,w
as
single
n=inputbox("请输入姓名","输入数据")
s=inputbox("请输入性别","输入数据")
h=val(inputbox("请输入身高（单位：厘米）","输入数据"))
if
s="男"
then
w=(h-80)
0.7
else
w=(h-70)
0.6
end
if
print
n;"同学",s
print
"你的标准体重应该为";w;"公斤"dim
n,s
as
string
dim
h,w
as
single
n=inputbox("请输入姓名","输入数据")
s=inputbox("请输入性别","输入数据")
h=val(inputbox("请输入身高（单位：厘米）","输入数据"))
if
s="男"
then
w=(h-80)
0.7
print
n;"同学",s
print
"你的标准体重应该为";w;"公斤"
else
if
s="女"
then
w=(h-70)
0.6
print
n;"同学",s
print
"你的标准体重应该为";w;"公斤"
else
print
"别闹了，性别不对！"
end
if
end
ifDim
h,
w
As
Single
h
=
Val(InputBox("请输入身高",
"输入数据"))
w
=
(h
-
80)
0.7
Print
"身高为";
h;
"厘米的男同学标准体重为";
w;
"公斤"
w
=
(h
-
70)
0.6
Print
"身高为";
h;
"厘米的女同学标准体重为";
w;
"公斤"认识条件选择语句
教学设计
1教学目标
1、
学会什么是选择结构程序和选择结构程序的语法格式
2、
懂得用流程图分析问题
3、
会用选择结构语句编写程序解决实际问题
4、
理解问题的解决方案不是一层不变的。
2学情分析
一个星期一节课,对于学业压力大、以前没有接触过计算机语言的初中生是一个挑战,我采用放慢教学速度,循序渐进的引导和任务驱动方法带领学生层层剥开if..then语句的神秘面纱。
3重点难点
1、充分理解并应用选择结构语句
“if...then...else"
2、养成良好的编写程序的习惯。
4教学过程
活动1【导入】选择结构语句的定义及语法格式
以把上节课的顺序结构程序“计算标准体重”改为选择结构程序为例子,介绍选择结构流程图,并展开程序的编写。
dim
n,s
as
string
dim
h,w
as
single
n=inputbox("请输入姓名","输入数据")
s=inputbox("请输入性别","输入数据")
h=val(inputbox("请输入身高(单位:厘米)","输入数据"))
if
s="男"
then
w=(h-80)
0.7
print
n;"同学",s
print
"你的标准体重应该为";w;"公斤"
else
w=(h-70)
0.6
print
n;"同学",s
print
"你的标准体重应该为";w;"公斤"
end
if
(注意提醒学生养成良好习惯:编写程序时注意分层递进)
活动2【导入】找漏洞
启动VB,打开工程“标准体重”,运行讲解按钮一,按钮二(按钮二输入身高一样,性别:男、女、其他,让同学回答性别不是男或女时的运行情况,说出程序的瑕疵。
活动3【导入】随心所欲改程序
提供程序的框架给学生,让学生在其基础上完成3个任务。
任务一:教师演示讲解:在“3.标准体重(精简语句)”中修改程序,缩减其中的语句而不影响程序的功能。
任务二:在“4.标准体重(完善性别)”中修改程序,使其可以判断性别出错的情况。
任务三:在“5.标准体重(完善性别2——没有else)”中修改程序,使程序只有
if…
then语句,没有else。(输入性别:男、女、人妖、暖男、女汉子、雌雄、公母…
…)dim
n,s
as
string
dim
h,w
as
single
n=inputbox("请输入姓名","输入数据")
s=inputbox("请输入性别","输入数据")
h=val(inputbox("请输入身高（单位：厘米）","输入数据"))
if
s="男"
then
w=(h-80)
0.7
print
n;"同学",s
print
"你的标准体重应该为";w;"公斤"
end
if
if
s="女"
then
w=(h-70)
0.6
print
n;"同学",s
print
"你的标准体重应该为";w;"公斤"
end
if
if
s<>"男"
or
s<>"女"
then
print
"别闹了，性别不对！"
end
if
