计算机解决问题的过程

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

第二节计算机解决问题的过程

教学目标:

了解计算机解决问题的过程

让学生了解解决问题的方法

教学重点:

了解计算机解决问题的过程

教学课时 1课时

教学过程:

[引言]

我们知道,计算机完成某项任务是由软件控制的,计算机是如何解决这些问题的呢?下面就让我们一起学习计算机解决问题的过程。

问题分析:

利用计算机解决问题时,首先要进行问题分析。

例如,铁路托运行李,从甲地到乙地,按规定,每张客票托运行李不超过50公斤时,每公斤1.3元,如超过50公斤,超过的部分按每公斤1.8元计算。假设行李重量为W公斤,运费为F元。计算机如何自动计算出每件行李应付的运费呢?

首先要判断行李的重量是否超过50公斤,如果行李重量W没有超过50公斤,刚按公式:F=1.3*W ,如果超过则需要按下列公式进行计算:F=50*

1.3+(W-50)*1.8

确定算法

下图就是程序设计中常用的流程图,我们可以用它来描述计算机处理问题的过程。这种对解题方法和步骤的描述就称为算法,算法可以用任何形式的语言或符号来描述。

程序设计

首先设计出程序的界面。如图所示:

然后双击“计算”按钮打开程序编写窗口,输入程序代码,如图所示

双击“计算”按钮打开程序编写窗口,输入程序代码。

Private Sub cmdaccount_Click()

Dim F As Integer '定义变量F

Dim W As Integer '定义变量W

W = CInt(Txtw.Text) '得到用户输入的值

If W <= 50 Then '判断W的值

F = W * 1.3 '计算当W的值小于等于50

Else

F = 50 * 1.3 + (W - 50) * 1.8 '计算当W的值大于50

End If

Txtf.Text = CStr(F) '在文本框中显示计算结果

End Sub

此时,我们的程序就已经编写完毕,单击“运行/启动”启动程序,在上面的文本框中输入行李重量,按“计算”按钮,计算机就会自动计算出运费了。检查一下,看看计算机算得对不对。

运行调试

运行时很可能会出现错误,在程序运行中查找并修改错误的过程,就称为是程序调试。

保存

首先保存窗体文件,单击“文件/保存Form1”,然后再保存工程文件,单击“文件/保存工程”

小结:

利用VB开发应用程序的基本过程

1 用户界面设计:创建应用程序界面,并设置窗体对象和控件的属性。

2 编写程序:首先进行事件分析,然后编写事件过程代码。事件分析一定要准确,准确的分析可以使得编写程序变得容易,否则,在使用程序时,将无法得到需要的结果。

3 运行调试:

4 保存:开发工作完成后,如果不保存将前功尽弃。保存至少要生成两个文件,即窗体文件(扩展名为frm)和工程文件(扩展名为vbp)。

课后自测

1 简述计算机解决问题的过程。

2 某公园规定,身高1.2米以上全票,身高1.2米以下且1.0米以上半票,1.0米以下免票。输入不同的身高,计算该参观者应该购买何种类型票。

相关文档
最新文档