算法与程序设计上机任务一.doc

友情提示：为了达到学习目的，请同学们独立完成。 算法与程序设计上机任务8 提交作业，交到局域网教师机，发送者输入班级+座位号+姓名 前面的作业提交情况已传到网上,请自行查补!有疑问的请尽快解决! 作业要求： 1、利用VB软件，设计界面、设置属性，编写代码，保存窗体文件（.frm）和工程文件（.vbp）在标题名为“的士费”的文件夹中。 2、生成 “的士费.exe” 可执行文件exe文件，发到局域网教师机。 题目:某市的士费起步价8元，可以行驶3公里。3公里以后，按每公里1.6元计算，输入的士的公里数，请你计算顾客需付费多少元？ 一、设计程序界面： 1、界面设计可参考下图 2、各控件的属性设置可参考如下设置： 控件 对象名 属性 属性值 Form（窗体） Form1 Caption 的士费 （自己的班级、号数、姓名） Label（标签） Label1 Caption 公里数 TextBox（文本框） Text1 Text 将属性值删除留空（即赋值为空串“”） CommandButton（按钮） Command1 Caption 计算价格 二、编写程序代码 请同学们自行将代码写入相应的对象及事件当中。 Private Sub Command1_Click() Dim n As Double, s As Double n = Val(Text1.Text) If n = 3 Then s = 8 Else s = (8 + 1.6 * (n - 3)) End If MsgBox （s, vbOKOnly, 的士费） End Sub 大家可以把自己的文件全部保存在D盘下自己的文件夹内，注意命名为自己可以识别的名字。