桔子算法教程分析.pptVIP

桔园自摘收费 ——解析算法（一） 问题描述 问题分析 输入 输出 人数（n） 桔子重量（w） 某农家乐桔园自摘规定：不论男女老幼门票每人20元，在采摘 期间桔子可以免费吃；多摘的桔子要求买回去，单价为8元/斤。 现在你是该农家乐桔园的管理者，请同学们设计一程序快速计 算出每一拨采摘者的费用。 费用（f） f=20n+8w 操作任务一 请同学们打开桌面上的“桔园自摘收费.frm”文件，根据分析 添加相应的对象并进行对象属性的修改，双击“简单费用计算”按钮进入代码窗口，将Command1_Click()中的代码补充完整，最后进行调试。 错误分析 f=20*n+8*w 错误分析 Label1.Caption Label1 n=val(text1.text) w=val(text2.text) Label1.caption=str(f) f=20*n+8*w 解析算法 dim n as integer dim w as single , f as single 前提条件（输入） 所求结果（输出） 数学表达式 Dim r, c,s As Single Const pi = 3.14 r = Val(Text1.Text) c = pi * r * 2 s=i * r ^2 Text2.Text = Str(c) Text3.Text = Str(s) Dim