选修1算法与程序设计《5.2解析算法的程序实现》集体备课教案设计

选修1算法与程序设计《5.2解析算法的程序实现》集体备课教案优质课下载

题目2： 请同学完善代码。

集中注意力吸引学生兴趣问题提出与解决

综合应用1：设计一个算法，计算电阻并联的总电阻值R。其中，每个电阻的阻值可由键盘输入，输入结束时，单击计算按钮完成计算。（演示编写好的程序）

算法分析---找出表达式

用到的变量

rs：累加器，参与并联的各电阻值的倒数将逐个地累加到这个累加器中。

r：存储从键盘输入的电阻值。

3、任务：完善子程序Text2_KeyPress

①从文本框Text2中读取用户输入的电阻值，存入到变量r中；

②判断如果它是一个有效的电阻值（大于0）时，那么就将它的倒数累加到变量rs中；并把用户输入的这个电阻值添加在列表框List1中；

③否则输出提示信息“无效电阻，重新输入”

打开桌面老师文件夹中的“计算并联电阻程序-s.frm”，完成后运行程序，测试程序是否正确

Additem和Msgbox的用法

List1.additem str(r)

Msgbox “无效电阻，重新输入”

分析问题

设计算法讲解新的课程内容编写代码学生编写过程中，巡视指导，根据实际情况可以发代码提示。

请1-2名同学演示自己的程序。

综合应用2：铁丝问题，使用一根长度为L厘米的铁丝，制作一个面积为S平方厘米的矩形框，要求计算该矩形的宽w和高h。

编写程序

学生展示重要知识点的引导拓展练习计算 的值。要求学生自己完成窗体设计，代码编写，根据情况发送代码提示。

Private Sub Command1_Click()

Dim m As Integer, n As Integer

Dim s As Double

s = 0