Question

计算机vb编程题目

行李重量不超过50kg时，每千克0.25元；超过50kg而不超过100kg时，期超过部分每千克0.35元；超过100kg时，期超过部分每千克0.45元。
编成代码在电脑上运行。

Answer 1

Private Sub Command1_Click()
Dim a, c As Integer
c = 0
a = Val(Text1.Text)
If a > 100 Then
c = (a - 100) * 0.45 + 50 * (0.35 + 0.25)
ElseIf a > 50 Then
c = (a - 50) * 0.35 + 50 * 0.25
ElseIf a <= 50 Then
c = a * 0.25
End If
Text2.Text = c
End Sub
在窗体上添加一个按钮和两个文本框，Text1用来输入重量，Text2用来得出运价

Answer 2

text1是重量
command是计算
Private Sub Command1_Click()
If Text1.Text < 50 Then
MsgBox Text1.Text * 0.25 & "元"
ElseIf Text1.Text > 50 And Text1.Text < 100 Then
MsgBox (Text1.Text - 50) * 0.35 + 50 * 0.25 & "元"
ElseIf Text1.Text > 100 Then
MsgBox (Text1.Text - 100) * 0.45 + 100 * 0.35
End If
End Sub

追问

运行出错