程序的选择结构1112.docVIP

?程序的选择结构学案设计任课教师: 宋国珍 授课年级、班级:高一（3-4） 课题?利用IF条件语句编程解决问题节次11、12时间?2011．3．30学习目标: 掌握IF语句的格式和功能 理解用IF条件语句编程解决问题的方法学习重点： 理解用IF语句编程解决日常生活中的实际问题的方法一、知识概述： 1、条件语句的格式一：if 条件 then 语句 功能：当条件成立时，执行语句，条件不成立，则直接执行下一条语句。 格式二： IF 条件 THEN 语句组1 Else 语句组2 或： IF 条件 THEN 条件语句的块结构 语句组1 ELSE 语句组2 END IF 功能：当条件成立时，执行语句组1，否则语句组2。 二、新课： 任务一：如何在VB中让计算机感到幸福就微笑。 1、分析问题：计算机的思想感情是人所赋予的。你就是它的主人。 2、描述算法：（简要写出你的算法） 3、编写程序： （1）设置应用程序界面： 打开F:\ZK\1index.htm 网站，观察程序界面。 （2）编写程序代码： If text1.text=”y” then picture1.picture=loadpicture(“F:\笑.jpg”) 4、调试运行程序： 5、保存程序： 以“姓名-计算机微笑”分别保存窗体、工程，并生成可执行程序文件。 任务二：合作探究 判断某同学成绩是否及格。 要求如下: 在文本框1输入成绩,如果大于等于60,则在文本框2中显示及格,否则就显示不及格。 打开F:\ZK\1index.htm 网站，观察程序界面。 打开F:\待修改程序\划分两个等级.frm程序，要求： 填加一个标签控件label4，修改“caption”属性为“请输入成绩然后单击“确定”按钮“ 程序代码如下： Private Sub Command1_Click() x = Val(Text1.Text) If _________ Then Text2.Text = 及格 Else Text2.Text = 不及格 End If End Sub 小组讨论补充程序代码的空白部分，并调试运行。 3、保存窗体及工程文件，并生成可执行程序文件，文件名为：“姓名—划分两个等级.exe” 保存。 三、拓展提升：（有能力的同学做） 在任务二的基础上划分为四个等级：分为不及格、及格、良好、优秀。 四、作业训练： 1、超市购???苹果，若购买10斤以下，则2元一斤，则购买10斤以上，则打8折，请设计一个程序，输入购买的斤数，输出应付款总额。 2、 市话话费计算方式为：自接通起。3分钟内（含3分钟）0.22元，超过3分钟的部分每分钟0.1元（不足1分钟按1分钟计），在文本框1中输入通话时间，在文本框2中显示通话话费。 五、巩固练习： 当A=15 时，程序的运行结果是： Private sub command1_click( ) Dim A as integer A=val(text1.text) If A=0 then print “y=”;A else print “y=”; -A End sub  课堂学习效果自我评价标准:（共20分） 评价项目基本合格（1分）合格（2 分）良好（3 分）优秀（5分）得分程序分析有点思路，但不能表述出来有点思路，但表述不清楚有些思路，能够表述思路非常清晰，并能用自然语言表述算法程序结果能够运行，但出现很多问题能够运行，但出现个别问题结果正确，达到效果结果正确，能创新地完成 HYPERLINK http://action.foho.cc/click/click.php?r=http%3A///s%3Fkw%3D%26sc%3Dweb%26cl%3D3%26tn%3Dsitehao123%26ct%3D0%26rn%3D%26lm%3D%26ie%3Dgb2312%26rs2%3D%26myselectvalue%3D%26f%3D%26pv%3D%26z%3D%26from%3D%26word%3D%25B1%25ED%25B8%25F1%25D0%25C5%25CF%25A2%25B5%25C4%25BC%25D3%25B9%25A4%25D3%25EB%25B1%25ED%25B4%25EF%25BD%25CC%25B0%25B8ads_id=22site_i