vb循环题

显示全部楼层 · 2008-11-25 19:57:00

.旅客乘车旅行，可免费携带30公斤行李，超过30公斤部分则每公斤需支付10元托运费，超过50公斤部分则每公斤需支付20元托运费。编写程序，根据每位旅客行李的重量w计算其应付的行李托运费f。(要求使用Select Case语

千问 · 2008-11-25 19:57:00

建立text1文本框，按扭1 ，复制以下代码。 Private Sub Command1_Click() Dim w As IntegerDim f As Integer
w = Val(Text1.Text)
Select Case (w)
Case 30
MsgBox "免费"
Case 30 To 50
f = (w - 30) * 10
MsgBox f
Case Is > 50
f = (w - 50) * 20 + (50 - 30) * 10
MsgBox f...

千问 · 2008-11-25 19:57:00

小气鬼...