【例41】火车站行李费的收费标准是50kg以内 (包括50kg)0.20/kg,超过部分0.50/kg。编写程序, 要求根据输入的任意重量,计算出应付的行李费 根据题意计算公式如下: weight×0.2 weight≤50 ( weight-50)×0.5+50×02 weight>50 请单属标左键换页
【例4.1】火车站行李费的收费标准是50kg以内 （包括50kg）0.20/kg，超过部分0.50/kg。编写程序， 要求根据输入的任意重量，计算出应付的行李费。 根据题意计算公式如下： Pay＝ weight×0.2 weight≤50 （weight－50）×0.5＋50×0.2 weight＞50
运行界面如图4-2所示。 k行李托运收费程序 行李重量9878 计算 清除 应付款84.39 出 图4-2例4.1远行界面 请单属标左键换页
对象属性设置如表41所示 表41 例41属性控件设置 对象 民蚀 设置 Labell Caption 行李野量 Label? caption 应付款 Text1 Text 对象 设置 text 2 Text Commande caption 计算 Command2 cation 活除 Command3 caption 迟出 form1 catlon 行李托远收费序 请单属标左键换页
程序代码如下: "计算"按钮代码 Private Sub Command1 Click () Dim weight as single, pay as single weight= Text1.Text If weight> 50 Then pay=( weight-50)*0.5+50*02 Else pay= weight *0.2 End if Text2 Text= pay End sub 请单属标左键换页
程序代码如下： ' "计算"按钮代码 Private Sub Command1_Click（） Dim weight as single，pay as single weight= Text1.Text If weight > 50 Then pay =（weight - 50）* 0.5 + 50 * 0.2 Else pay = weight * 0.2 End If Text2.Text = pay End Sub
Private Sub Command2 Click () Text1.Text =r Text2 Text End sub Private Sub Command3 Click () End End sub 请单属标左键换页
Private Sub Command2_Click（） Text1.Text = "" Text2.Text = "" End Sub Private Sub Command3_Click（） End End Sub