第三节选择结构P73体验活动1
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
火车站寄存行李的收费标准是50千克以内（包
括50千克）0.20元/千克，超过部分的收费标准
为0.50元/千克。编写程序，根据输入的任意重
量，计算出应付的行李费。
输入 weight
简 易 流 程 图 ： 是(True) 否(False)
wຫໍສະໝຸດ Baiduight<=50
price=weight*0.2
price = 50 * 0.2 + (weight - 50) * 0.5
输出 price
Private Sub Command1_Click() Dim weight, price weight = Val(Text1.Text) If weight <= 50 Then price = 50 * 1.5 Else price = 50 * 1.5 + (weight - 50) * 2.5 End If Label2.Caption = "你的行李重量是" & weight & "kg，所需运费为" & price & "元" End Sub
Private Sub Command2_Click() Dim weight, price weight = Val(Text1.Text) Select Case weight Case Is < 50 price = weight * 1.5 Case Is >= 50 price = 50 * 1.5 + (weight - 50) * 2.5 End Select Label2.Caption = "你的行李重量是" & weight & "kg，所需运费为" & price & "元" End Sub
括50千克）0.20元/千克，超过部分的收费标准
为0.50元/千克。编写程序，根据输入的任意重
量，计算出应付的行李费。
输入 weight
简 易 流 程 图 ： 是(True) 否(False)
wຫໍສະໝຸດ Baiduight<=50
price=weight*0.2
price = 50 * 0.2 + (weight - 50) * 0.5
输出 price
Private Sub Command1_Click() Dim weight, price weight = Val(Text1.Text) If weight <= 50 Then price = 50 * 1.5 Else price = 50 * 1.5 + (weight - 50) * 2.5 End If Label2.Caption = "你的行李重量是" & weight & "kg，所需运费为" & price & "元" End Sub
Private Sub Command2_Click() Dim weight, price weight = Val(Text1.Text) Select Case weight Case Is < 50 price = weight * 1.5 Case Is >= 50 price = 50 * 1.5 + (weight - 50) * 2.5 End Select Label2.Caption = "你的行李重量是" & weight & "kg，所需运费为" & price & "元" End Sub