教学目标通过本模块的学习，学生应该体验算法思维，掌握几种基本算法；能设计简单应用问题的
算法，并能初步使用一种程序设计语言，编制程序解决该问题。
本模块的教学，要强调理论与实践的结合，注意寻找、发现身边简单的实际问题，进而设计出
重难点算法和计算机程序去解决这些问题。本模块着重强调的是算法设计思想，故对程序设计语言不作具体规定，所以本节课结合实例，经历分析问题，确定算法，编程求解等用计算机解决问题的基本过程，认识算法和程序设
计在其中的地位和作用。了解程序设计语言、编辑程序以及程序开发环境等基本知识。
教学设计
教学环节
教师行为
学生行为
设计意图
课程导入
展示各式各样的登录界面。
你是否对特别美观的软件登录界面或者游戏界面感到很兴奋？
计算机带给我们的不仅仅体现在娱乐方面，它还渗透在学习生活的各个方面。
展示十个一元二次方程，问一下看到它们学生的感受？有没有压力？
展示解题软件，用它来解决几个实际问题。
这节课我们就开发这个软件。
?
?
?简单？难？头疼？
感受它带来的便利
?
激发他们的学习兴趣，并初步感受到计算机解决问题给我们学习带来的快捷性和准确性。
充分调动学生学习的积极性
引出本课的重点问题 ——用计算机解决问题。
?
计算机俗称“电脑”，是人类发展到20世纪最先进的科学技术发明之一，它是按照人工设计程序自动运算的现代化智能电子设备。 可见计算机都是模仿人解决问题的方式来解决问题的。
计算机解决问题的一般过程
这样的一类数学问题，计算机解决的过程是怎样的呢？下面我们一起来分析一下。
提问：首先，我们需要对问题进行分析，这样的一个一元二次方程的一般式，我们到底用什么方法去解呢？用十字相乘？配平方法？还是公式法？
公式法，适用于任何一个一元二次方程。
提问：既然用公式法来解决这个问题，进一步要思考公式法解题的详细步骤是什么呢？请同学起来说一下。
总结学生回答的解决问题的步骤，展示出解决问题的正确步骤。
引出算法的概念：解决问题的方法和步骤。
?
问：通过上面的分析，同学们已经写出了算法，那么计算机是不是就能理解人类的思想，按照算法一步一步的去执行呢？
?
引出程序设计语言的概念：泛指一切用于书写计算机程序的语言。
??
演示将算法一步一步转换成计算机读得懂的程序设计语言。
因为已经对代码进行了深入学习，所以这里的解方程的代码不再细致讲解了。
程序固然重要，但是程序需要根据VB界面来编写，界面里的控件名称需要跟代码相对应。这就需要我们先去设计界面。
任务一：下面大家通过微课来自主学习VB程序设计界面。设计并完成你的解题界面。
个别指导，发现存在的问题。
操作完成后，请一名同学讲解一下他的界面组成。
接下来我们就根据界面里的控件名称来书写完整并且能准确执行的程序代码了，演示计算机解方程ax^2+bx+c=0(a<>0)的完整程序。
程序到地方在哪里呢？双击开始按钮，对于这个事件的首尾代码已经给出，经我们的代码复制粘贴到相应位置即可。
下面就可以对你的工程进行运行验证了。
没有错误就可以将工程保存，并且生成exe文件。
任务二：将你的界面与程序代码相结合，完成整个工程，并保存文件
个别指导，发现存在的问题。
? 现在我们来回顾一下刚才利用计算机解题的过程。
分析问题->设计算法(设计界面)->编写程序->运行验证->问题解决。
?
?
学生思考
回答
学生开始讨论，并说出解题步骤
。
对比自己的解题步骤与老师的有什么异同
?
观察?
思考
回答：是/不是
?
明白要使计算机解决问题，还必须将算法编写成程序语言。
体验完整的计算机解ax^2+bx+c=0(a<>0)的程序。
本学期学生已经对程序代码进行了深入的学习，学生已经掌握
通过自主学习，设计并制作解题界面。有问题可以参考老师发给的阅读材料，可以同学之间交流讨论或者举手提出你的疑问。
学生讲述他的制作理念，控件组成等
界面多种多样，这只是小方面的出入，并不影响整个问题的解决，根据控件名称对程序代码稍作修改便可执行。
下面同学们根据界面将代码进行修改后插入，将此工程以解一元二次方程为名称保存，并生成以学生名字命名的exe软件，例如：张三.exe。然后将此exe文件上交给老师。
?
?
联系数学上学的算法的概念，培养学生知识的迁移能力
?
?
培养学生的自主探究能力，引导学生思考，发现问题，并试图解决问题
?
?
?
?
?
?
?
?
引导学生思考，回顾已有的知识，将数学上学的算法联系起来。学会知识的迁移
?
?
?
明确计算机解决问题中，算法和程序设计语言的重要性，以及它们之间的区别。
?
培养学生自主学习和探究学习的能力，从而培养学生的创新精神。
?
?
?
?
?
培养学生归纳总结的能力
?
?
?
?
?引导学生发现问题，自主解决问题。
培养学生归纳总结的能力
课堂小结
1、用计算机程序解决问题的基本过程
2、学会了利用VB集成开发环境来制作解题界面。
3、成功开发了一元二次方程求解的软件
学生思考回想
巩固
总结
平时你惊叹的小软件工具并没有想象的那样困难，只要你无惧困难，坚定成功的信念，不断给自己充电，困难必定迎刃而解。
众所周知，我们正处在第五次信息技术革命阶段，享受着别人为我们创造的高科技学习生活环境。那大家有没有信心，用我们的智慧与双手，共同打造新一次革命，让我们的生活变得更加精彩绚烂，让我们的价值在社会发展中有所体现？
相信自己，你绝对可以！
学生响应
让学生产生兴趣、学习的愿望，也为后即学习做铺垫。
课件20张PPT。计算机解决问题 学习目标：
1、掌握VB界面及常用控件的应用。
2、成功开发“解一元二次方程”软件。
课题引入：计算机解决问题解一元二次方程 俗称 “电脑”，是人类发展到20世纪最先进的科学技术发明之一，它是按照人工设计程序自动运算的现代化智能电子设备。 由此可见，计算机是模仿人解决问题的方式来解决问题的。第一步：分析问题用十字相乘？配平方法？还是公式法？解方程：ax2+bx+c=0（a≠0） 第二步： 描述解ax2+bx+c=0（a≠0）的详细步骤step1、输入a.b.c的数值
Step2、令?为 b2- 4ac，计算数值
step3、如果 ?小于0，那么方程无根
如果 ?等于0，那么方程有一个根，根X=-b/(2*a),
如果 ?大于0，方程有两个根，
根X1为
根X2为
转到step4。
step4、结束程序。 算法：算法就是解决问题的方法和步骤。第三步：将算法编写成计算机程序代码计算机读不懂算法，必须翻译成计算机的语言。 程序设计语言，泛指一切用于书写计算机程序的语言。程序代码：step1、输入a.b.c的数值
Step2、令?为 b2- 4ac
step3、如果 ?小于0
那么方程无实数根，
如果 ?等于0，
那么 X=-b/(2*a),
如果 ?大于0，
那么方程有两个根，
X1为 ，
X2为 ，
转到step4。
step4、结束程序。 text1text2text3text4text5text6button1button2Dim a As Single, b As Single, c As Single, d As Double, root As Double, root1 As Double, root2 As Double
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = b ^ 2 - 4 * a * c
If d < 0 Then
Text4.Text = 0
End If
If d = 0 Then
Text4.Text = 1
root = -b / (2 * a)
Text5.Text = root
End If
If d > 0 Then
root1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
root2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Text4.Text = 2
Text5.Text = root1
Text6.Text = root2
End If第四步：运行、调试程序，检验结果第五步：问题得到解决总结：计算机解决问题流程图算法程序如何利用vb制作一元二次方程求根系统？
VB是初学程序人员最好的入门工具，它是最简单的可视化编程工具。
本节课以制作一元二次方程求根公式系统为例，教你如何写一个简单的VB程序。
工具：visual basic程序
方法、步骤
1、启动VB编程程序。双击打开VB程序，新建一个工程。
2、设计求根系统面板。
这个面板由6个标签控件label，6个文本框text和两个命令按钮command button组成。
单击文本框控件（红色框），在合适的位置插入六个文本框text1-6
单击标签控件A（绿色框），在form面板上插入6个标签label1-6。
单击命令按钮（紫色框），在合适的位置插入两个命令按钮。
3、命名标签label。右击label1，打开属性窗口。把标签名称caption改为X^2+。同理，把label2的caption改为X+，把label3的改为=0（a<>0），把label4的改为实数根个数，label5改为根1，label6改为根2。
4、右击各个文本框text，把名字改成空格。（Text属性清除）
5、用同样的办法把两个commandbutton按钮的名称caption改成开始和结束。
附加：如若想让您的界面更加和谐美观，可以改变字的属性来调整大小等。你的界面就应该算是完成了。
6、代码是软件的灵魂，如何输入代码呢？双击开始按钮，command1，弹出代码页面。在指定位置(光标闪烁的地方)，即第二行输入代码。输入时，要切换到英文状态，任何字母标点都不能出错，切不可粗心大意，否则系统瘫痪。这里只需要将下一页我给大家的代码复制粘贴过去即可
7、输完代码后，关闭窗口即可（自动保存），回到面板界面。
Dim a As Single, b As Single, c As Single, d As Double, root As Double, root1 As Double, root2 As Double
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = b ^ 2 - 4 * a * c
If d < 0 Then
Text4.Text = 0
End If
If d = 0 Then
Text4.Text = 1
root = -b / (2 * a)
Text5.Text = root
End If
If d > 0 Then
root1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
root2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Text4.Text = 2
Text5.Text = root1
Text6.Text = root2
End If
8、双击结束按钮，command2，书写结束代码。在倒数第二行输入end。
9、测试软件。单击运行---全编译执行，如果代码有错误，就会显示错误，还要进行修改。如果没错，就会弹出窗口，进行运转。输入1,2，-3试一下。
10、单击开始，结果两个根都显示出来了。单击结束，清空数据。测试成功了。
11、软件做好后就要保存文件。单击文件---生成工程EXE，保存在桌面上，这是一个可以独立运行的程序，可以用来求任何一个一元二次方程的根。
END
