Question

VB题目求解答

刚学不会





Answer 1

Dim W
Dim X
If w <= 50 Then

x = 0.25 * W
Else If W >50 and W<= 100 Then
x = 0.25 * 50 + 0.35 * (W-50)
Else
x = 0.25 * 50 + 0.35 * 50 + 0.45 * (W - 100)
End If

Answer 2

这是VB问题？

追问

是的，要设计程序

之前图片上传错了，现在您看看

追答

Private Sub CommandButton1_Click()
Dim tb As String
tb = UserForm1.TextBox1.Value
Dim w As Single
'以下为防空防负处理
If tb = "" Then
w = 0
Else
w = CSng(tb)
If w < 0 Then
MsgBox ("行李重量不能为负数")
End If
End If
Dim p As Single
'以下为if语句
If w <= 50 Then
p = 0.25 * w
ElseIf w <= 100 Then
p = 0.35 * (w - 50) + 0.25 * 50
Else
p = 0.45 * (w - 100) + 0.35 * 50 + 0.25 * 50
End If
UserForm1.TextBox2.Value = CStr(p)
End Sub

Private Sub CommandButton2_Click()
Dim tb As String
tb = UserForm1.TextBox1.Value
Dim w As Single
'以下为防空防负处理
If tb = "" Then
w = 0
Else
w = CSng(tb)
If w < 0 Then
MsgBox ("行李重量不能为负数")
End If
End If
Dim p As Single
'以下为select语句
select case w
case is <= 50
p = 0.25 * w
case is <= 100
p = 0.35 * (w - 50) + 0.25 * 50
case else
p = 0.45 * (w - 100) + 0.35 * 50 + 0.25 * 50
End select
UserForm1.TextBox2.Value = CStr(p)
End Sub

追问

If语句下面是啥

追答

赋值啊，你图片里不是要在另一个文本框里显示结果么？
在下面是Select语句实现方法，代码写在按钮2上了