粤教版初二信息技术第二章教案
|
教学环节
|
教师教学
|
学生活动
|
设计意图
|
|
课堂引入
|
教师借助简单的画圆程序引入。提出问题一：
如何程序语句画一个圆心在点（2500，2500）半径为100cm的圆？
Private Sub Form_Click()
r = 100
Circle (2500, 2500), r，RGB(255,60,60)
End Sub
提出问题二：
如何画圆心在点（2500，2500）半径为200cm的圆？
|
思考修改程序（任务一）
|
引起学生思考修改程序。
|
|
提出问题三：
如何画圆心在点（2500，2500）半径从100～1000的10个同心圆
笨办法：
Private Sub Form_Click()
r = 100
Circle (2500, 2500), r
r = 200
Circle (2500, 2500), r
r = 300
Circle (2500, 2500), r
…….
…….
r = 1000
Circle (2500, 2500), r
End Sub
新办法：
Private Sub Form_Click()
For i=100 to 1000 step 100
r = I
Circle (2500,2500),r
Next I
End sub
|
学生修改程（任务二）。
|
引起学生进一步思考。
|
|
|
新课讲授
|
教师对循环语句的进一步解释循环语句并动画显示循环过程。引导学生分析程序。
|
阅读程序段，指出循环变量、循环体、共循环了几次，并写出结果：
S=0
For i=10 to 4 step -3
s =s+i
Next I
Print “s=“; s
|
知识渗透
|
|
学生练习修改程序
|
组织学生分组试运行程序并提问：
循环变量，步长的设置有什么限制？
|
分组体验画出20个同心圆不同步长但达到同一效果的程序。（任务三）
|
加深对新知识的理解
|
|
课间小结
|
教师归纳：
程序的运行结果是一样的。说明：步长可以是整数也可以是小数，可以是正数也可以是负数。
问题：如果步长为零，结果如何？
|
学生回答：如果步长为零，程序会陷入死循环。
|
知识形成
|
|
学习提高
|
情景设置，分层提高：
修改程序：画二十半径相同，y轴固定为1500，半径为1000的圆
Private Sub Form_Click()
For X = 100 To 1000 Step 50
r = 1000
Circle (1000 + X, 1500), r
Next X
End sub
|
学生修改程序（提高任务四）
|
知识扩展
|
|
知识熟练
|
教师演示例题，使学生对知识的应用更熟练。
1、演示例题：
求1＋2＋3＋4……＋100的值?
2、提出问题：如何修改程序，求下列式子的值？
1+3+5+……99=？
|
学生上机练习（任务五、六）：
1、1+3+5+……99=？
2、补充并调试程序P51,3,4
|
知识熟练提高
|
|
新课转折
|
*(以下部分为选学内容，供选学用）
引导学生体验程序，引出Do While/ Loop的作用。
Private Sub Form_Click()
guess = InputBox("请输入一个整数密码：", "密码")
password = "123456"
If guess = password Then
Print "yes!your are win"
End If
If guess <> password Then
Print "again please!"
End If
End Sub
与
Private SubForm_Click()
Do While inputpassword <> "123456"
inputpassword = InputBox(" 请输入密码，", " 输入密码")
Loop
Print "输入密码正确!"
End Sub
|
学生体验比较程序的功能，并体会Do While/ Loop的含义。（任务七）
|
新课转折与知识渗透
|
|
新课讲授
|
解释Do While/ Loop意义：当〈条件〉成立，执行循环体，否则退出循环，执行loop下一个语句。
|
学生观察并思考
|
知识形成
|
|
学生熟练
|
教师通过引导学生读程序，进一步学习知识。
|
读下列程序并写出结果：（任务八）
P51,1(3)(4)
|
知识熟练
|
|
提高练习
|
引导学生对所学知识进行整理归纳。比较do while 与for/next 。
|
修改程序用两种循环求和（任务九）2+4+8+……+100=？
|
知识整理与提高
|
|
课堂小结
|
教师对循环语句的两种形式进行比较，并形成知识。说明：若知道循环次数，一般使用for/next循环；若不知道循环次数，用do while循环。
|
学生思考
|
知识形成
|
|
实践
|
内容
|
知识技能和情感态度评价
|
|
|
技能掌握
|
情感态度
|
||
|
任务一
|
思考修改程序：如何画圆心在点（2500，2500）半径为200cm的圆？
Private Sub Form_Click()
r = 200
Circle (2500, 2500), r，RGB(255,60,60)
End Sub
|
|
|
|
任务二
|
修改程序，画圆心在点（2500，2500）半径从100～1000的10个同心圆。
|
|
|
|
任务三
|
分组体验步长，初值，终值以及循环体的执行。
分组体验下列程序：
（一）程序一
Private Sub Form_Click()
R=1000
For i=100 to 1000 step 50
r = r+500
Circle (2500,2500),r
Next i
End sub
（二）程序二
Private Sub Form_Click()
For i=1000 to 100 step -50
r = r+500
Circle (2500,2500),r
Next i
End sub
（三）程序三
Private Sub Form_Click()
For i=1 to 10 step 0.5
r = r+1000
Circle (2500,2500),r
Next i
End sub
（四）程序四
Private Sub Form_Click()
For i=1 to 20
r = r+1000
Circle (2500,2500),r
Next i
|
|
|
|
提高任务四
|
修改程序，画二十个半径相同，y轴固定为1500，半径为1000的20个圆
|
|
|
|
提高任务五
|
修改程序求1+3+….+99= ？的值
|
|
|
|
提高任务六
|
补充并调试程序P51,3,4
|
|
|
|
任务七
|
体验密码程序（一）并比较
Private SubForm_Click()
Do While inputpassword <> "123456"
inputpassword = InputBox(" 请输入密码，", " 输入密码")
Loop
Print "输入密码正确!"
End Sub
|
|
|
|
任务八
|
写出程序的结果：P51,1(3)(4)
|
|
|
|
提高任务九
|
修改程序，用两种循环语句求2+4+8+…..+100=？
|
|
|