Question

VB编程，超简单的。求编写代码

1.Title 求所购鸡蛋应付的金额
Description 人人乐超市举办鸡蛋促销活动，当顾客一次购买3公斤以下的鸡蛋时，每公斤单价为7.60元；当顾客一次购买3公斤及以上的鸡蛋时，鸡蛋价格打八折。
Input 调用inputbox函数输入当前顾客购买鸡蛋的重量（以公斤为单位）
Output 调用print方法在窗体默认位置输出顾客应付的金额（以元为单位，保留2位小数）
Sample Input 7.8
Sample Output 47.42

2.Title 计算出租车费
Description 西安出租车的收费标准：起步价（2公里以内，含2公里）为7元钱，超过2公里且在15公里以内（含15公里）时每公里收费1.5元，超过15公里时每公里收费2.1元，不足1公里按照1公里收费。
Input 调用inputbox函数输入顾客所乘的公里数
Output 调用print方法在窗体默认位置输出顾客应付的车费（以元为单位）
Sample Input 9.2
Sample Output 19

Answer 1

第一题：
Private Sub Form_Click()
Dim x As Double, Y As Double
x = InputBox("请输入当前顾客购买鸡蛋的重量（以公斤为单位）")
If x < 3 Then
Y = 7.6 * x
Else
Y = 7.6 * x * 0.8
End If
Print Format(Y, "0.00")
End Sub

第二题：
Private Sub Form_Click()
Dim x As Double, Y As Double
x = InputBox("请输入顾客所乘的公里数")
If x / Fix(x) = 1 Then
x = x
Else
x = Fix(x) + 1
End If

If x > 15 Then
Y = 7 + 13 * 1.5 + (x - 15) * 2.1
ElseIf x > 2 Then
Y = 7 + (x - 2) * 1.5
Else
Y = 7
End If

Print Y
End Sub

Answer 2

既然超简单，自己做好了。