我这有2道VB题请帮我解下谢谢了,有点急

dim weight

dim pay

weight=inputbox("请输入重量")

if weight<=50 then

pay=weight25

else

pay=5025

pay=pay+(weight-50)45

end if

print pay

其他的自己写．

第一种方法：使用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(Text1Text)

W = Val(Text2Text)

S = Val(Text3Text)

Select Case S

Case Is > 3000

D = 015

Case 2000 To 3000

D = 01

Case 1000 To 2000

D = 008

Case 500 To 1000

D = 005

Case 250 To 500

D = 002

Case Is < 250

D = 0

End Select

F = P W S (1 - D)

Text4Text = 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 Single

Dim F As Single

Dim D As Single

P = Val(Text1Text)

W = Val(Text2Text)

S = Val(Text3Text)

If S > 3000 Then

D = 015

ElseIf S >= 2000 And S < 3000 Then

D = 01

ElseIf S >= 1000 And S < 2000 Then

D = 008

ElseIf S >= 500 And S < 1000 Then

D = 005

ElseIf S >= 250 And S < 500 Then

D = 002

Else

D = 0

End If

F = P W S (1 - D)

Text4Text = F

End Sub

if w >100 then

X = 02550+03550+045（w-100）

else

if w >50 and w <=100 then

X = 02550+035 （w-50）

else

if w <= 50 then X = 025w

end if

end if

希望对你有帮助`

想要一个适合自己的软件，就的money

我就专门做软件的，你这个功能要求比较简单，我可以以个人的名义给你做。

有兴趣可以谈谈：feiyanlhj@163com

msn:honjohnliu@hotmailcom

货物运输费用程序是确定商品运价里程，确定商品适用的运价率，确定商品计费重量。

货物运输费用的核算：

商品的运费是商品运输费用的主要构成部分，要对商品的运费进行核算，首先需要了解商品运输的里程、商品的运价率和商品计费重量等条件与资料。其一般的核算程序如下：

1、确定商品运价里程。

2、确定商品适用的运价率。

3、确定商品计费重量。

按下列公式进行商品运费的计算：

铁路、水路和航空运费=商品计费重量×适用商品运价率[[公路运费]]=商品计费重量×商品运价里程×适用商品运价率其中商品运价里程是指发送地与目的地间的最短路径里程。

商品运输杂费是指付费方向收费方交付用以补偿商品运输过程中的辅助性或服务性的劳动消耗的费用。其项目比较复杂，通常包括装卸费、港务费、储存费、中转服务费等。而且在各个地区适用的费率有可能不同，所以商品运输杂费的计算公式如下：

商品运输杂费=计费重量×适用地区的适用费率在进行杂费的计算时，也需要考虑到运输方式不同所造成的适用费率的区别，这样才能做到杂费计算的合理、准确。

什么是货物运输费用：

商品运输的最优化不仅仅需要合理调整商品的运量，而且还要求尽力使成本低廉化。所以合理控制运输费用也是使商品运输最优化的一个重要因素。

商品运输费用是商业企业为实现商品运输而支付的有关费用，包括将商品从发送地送至目的地所支付的全部费用，是商品流通费用的重要组成部分，一般要占到30%左右。另一方面，运输费用的多寡也可以作为考核商品是否合理运输的一个指标，从而为建立与健全商业储运网络，合理选择运输方式提供可靠的依据。

基本构成：

如果作为企业属下的运输部门来进行运输活动，那么商品运输费用需要包括实际运费、运输中的各项杂费、从事商品运输工作的人员费用、从事运输工作的物资消耗费用以及其它必要的管理费用等。这种核算方法也是实行独立核算的专业化运输企业通常使用的方法。

如果是由企业外的运输部门进行商品的运输工作，那么商品运输费用则主要由商品运费和商品运输杂费组成。

Private Sub Command1_Click()

Dim W, X As String

W = Text1

Select Case W

Case Is <= 50

X = 025 W

Case Is <= 100

X = 025 50 + 035 (W - 50)

Case Else

X = 025 50 + 035 50 + 045 (W - 100)

End Select

Text2 = X

End Sub

#include "stdioh"

void main()

{

int c, s;

float p, w, d, f;

scanf("%f %f %d", &p, &w, &s);

if (s >= 3000 ) c =12;

else c = s / 250;

switch (c)

{

case 0 : d = 0; break;

case 1 : d = 2; break;

case 2 :

case 3 : d = 5; break;

case 4 :

case 5 :

case 6 :

case 7 : d = 8; break;

case 8 :

case 9 :

case 10:

case 11: d = 10; break;

case 12: d = 15; break;

}

f = p w s (1 - d / 100);

printf("freight =%154f\n", f);

}

以上就是关于我这有2道VB题请帮我解下谢谢了,有点急全部的内容，包括:我这有2道VB题请帮我解下谢谢了,有点急、路程S越远，每公里运费越低。VB知识、急求VB编程代码 题目如下等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！