UC知道路程S越远，每公里运费越低。VB知识
来源：百度知道 编辑：UC知道 时间：2024/06/16 08:24:32
s<250km,250<=s<500 2%折扣，500<=s<10005%折扣,1000<=s<20008%折扣，2000<=s<300010%折扣，s>=300015%折扣.基本运费为P，货物重为W，距离为S，折扣为D，总运费F=P*W*S*（1-D）。需要四个标签，四个文本框，一个命令按钮，也就是“计算”按钮。用select case 语句和if语句两种方法分别写出。
第一种方法：使用select case语句
Private Sub Command1_Click()
's<250km,250<=s<500 2%折扣，500<=s<10005%折扣,1000<=s<20008%折扣，2000<=s<300010%折扣，s>=300015%折扣
Dim P As Single
Dim W As Single
Dim S As Single
Dim F As Single
Dim D As Single
P = Val(Text1.Text)
W = Val(Text2.Text)
S = Val(Text3.Text)
Select Case S
Case Is > 3000
D = 0.15
Case 2000 To 3000
D = 0.1
Case 1000 To 2000
D = 0.08
Case 500 To 1000
D = 0.05
Case 250 To 500
D = 0.02
Case Is < 250
D = 0
End Select
F = P * W * S * (1 - D)
Text4.Text = F
End Sub
第二种方法：使用if语句
Private Sub Command1_Click()
's<250km,250<=s<500 2%折扣，500<=s<10005%折扣,1000<=s<20008%折扣，2000<=s<300010%折扣，s>=300015%折扣
Dim P As Single
Dim W As Single
Dim S As Si