专题3.3.1 编程解决问题（导学案）-2019-2020学年高一信息技术同步精品课堂（沪科版必修）

3.3.1 编程解决问题（导学案） 【学习目标】 · 了解利用计算机解决问题的基本思路； · 掌握自己编写程序的基本步骤，并体验其整个过程； · 知道编程语言的发展历程及各自的特点。 【学习活动】 · 活动一：运行“平抛运动轨迹”程序 操作步骤： 1. 启动程序 2. 文件|打开工程|“平抛运动轨迹.vbp” 3. 将文本框中代码复制到工程“平抛运动轨迹.vbp”窗体中“确定”按钮对应的代码区 注意：位置在“Private Sub Command1_Click() ”和 “End Sub”之间。 4. 运行|启动 5. 输入初速度值 6. 单击窗体中的确定按钮 · 活动二：在Word中绘制求解一元二次方程ax2+bx+c=0(a<>0)实数根的流程图。 · 活动三：运行求解一元二次方程ax2+bx+c=0(a<>0)实数根的程序。 操作步骤： 1. 启动程序 2. 文件|打开工程|“ax2+bx+c=0(a<>0).vbp” 3. 将文本框中代码复制到工程“ax2+bx+c=0(a<>0).vbp”窗体中“计算结果”按钮对应的代码区 注意：位置在“Private Sub Command1_Click() ”和 “End Sub”之间。 4. 运行|启动 5. 输入a,b,c的值 6. 单击窗体中的“计算结果”按钮 试一试： 删除最后一行代码“End If”，看看行不行？ · 活动四： 尝试运行“韩信点兵”和“国际象棋与麦粒”的程序。思考其体现了计算机具有什么样的特点？ 试一试： 若韩信带兵人数接近1000000人，程序该怎么修改？ Dim g, v As Single Dim t As Integer g = 9.8 t = 1 v = Val(Text1.Text) Cls Do While t <= 100 x = v * t y = g * t * t / 2 Circle (x, y), 30 t = t + 1 Loop Dim a, b, c As Integer Dim d, x1, x2 As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = b * b - 4 * a * c If d >= 0 Then