0.1-0.5kg为4014元,0.6-1.0为4294,到10kg为止以此类推每0.5递增280元但10-20kg,每0.5kg递增259元.

Question

0.1-0.5kg为4014元,0.6-1.0为4294,到10kg为止以此类推每0.5递增280 元但10-20kg,每0.5kg递增259元.

Answer 1

Dim weit As integer
weit = Val(Text1) * 10
Select Case weit
Case Is < 100
If weit Mod 5 = 0 Then
price = 3734 + weit \ 5 * 280
Else
price = 3734 + (weit \ 5 + 1) * 280
End If
Case Else
If weit Mod 5 = 0 Then
price = 3734 + 5600 + (weit - 100) \ 0.5 * 259
Else
price = 3734 + 5600 + ((weit - 100) \ 5 + 1) * 259
End If
End Select
Print price
原先也没注意到,原来mod函数只能两端都是整型或长整型