项目二简单IF语句.docVIP

项目二：简单IF语句 【教材分析】： 对于职高学生来说，Visual Basic 6.0课程除了要求学生对常用控件灵活使用，设计一个功能相对完善的界面外，还旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用编制程序解决问题选择结构是主要内容是用选择结构编写简单的程序解决具体问题。通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。对事物的分析、及解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，感兴趣的，能够贴近学生日常生活的例子来分析选择结构，…Then语句与if…Then…Else语句，但后一种语句包含了相对比较难的IF语句的嵌套，考虑到学生的接受能力，本次课的两课时不学IF语句嵌套。 【学时分配】 第一学时：简单IF语句 第二学时：简单IF语句习题课 第一学时：简单IF语句 课题名称 简单IF语句 课型 理实一体化 教学目标 1、知识与能力 （1）掌握选择结构的If条件语句的格式、功能和执行过程。 （2）学会使用条件语句来实现选择控制结构，解决实际问题。 （3）培养学生的逻辑思维能力，促进学生对问题解决方法的理解。 本堂课将以学生相对感兴趣的，能够贴近学生日常生活的例子来分析选择结构， （1）培养学生的逻辑思维能力，促进学生对计算机解决问题方法的理解。 （2）在自主探究解决问题的过程中，让学生体验学习的乐趣。 教学重点 对解决问题的方法和步骤的理解，并能根据实际问题写出代码。If you enjoy running every morning，then please put your right hand，else please put your left hand．（屏幕演示） 学生解释英语句子 这个英语对话，主要是引出选择结构的语法（If……Then……Else），这样的英语句子翻译成中文并不难，目的是让多数的学生都能感受程序设计的乐趣，引入本节的课题屏幕演示VB程序设计实例（求数的绝对值）Private Sub Command1_Click（） Dim A As Integer A = Val（text1.text）If A = 0 Then Print Y=；A Else Print Y=；-AEnd Sub 师生交流，讨论程序中的代码。 引出知识点：通过实例展示分析，引出在VB中If语句的基本用法。…Then 语句 格式一：if 条件 Then 语句 格式二：if 条件 Then 语句块 End if 2、if…then…else语句 格式一：if 条件 then 语句1 else 语句2 格式二：if 条件 then 语句块1 Else 语句块2 End if 二、对两种简单IF语句的流程图加以说明。 Y N 【项目实施】 项目一：将上述求数绝对值的代码输入求证。 (3分) 项目二：比较x,y中的数，将大数放在x中，小数放在y中。(7分) 分析： 条件如何书写？ 如何交换两变量中的值？ 输入求证 格式1：If xy then w=x:x=y:y=z 格式2：If xy then W=x X=y Y=w End if 项目三：编制一程序，对输入的成绩作出是否及格的判断。（界面设计与需实现的功能见演示）(10分) 任务一：设计界面 任务二：分析，并书写代码验证。 Private Sub Command1_Click() Text1.Text = Text2.Text = Text1.SetFocus End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() If Val(Text1.Text) = 60 Then Text2.Text = 及格 Else Text2.Text = 不及格 End If End Sub 项目拓展(10分) 编写一个“密码登陆”程序，在密码登陆程序窗口打开的时候，单击窗体，弹出消息框，输入密码，如果密码验证正确，进入应用程序界面，提示验证成功，否则提示错误，重新输入。 任务一：窗体设计 任务二：设置窗体与控件属性。 任务三：代码编写，调试。 Private Sub Form_Click() Dim P