帮我看一下vb的if 函数

来源：百度知道编辑：UC知道时间：2024/05/24 15:30:17

Dim sngWeight As Single

Private Sub cmdCancle_Click()
txtMoney = ""
txtWeight = ""
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdSure_Click()

sngWeight = Val(txtWeight)

If sngWeight < 0 Then
txtMoney = "请不要乱输！"
ElseIf sngWeight = 0 Then
txtMoney = "呵呵.. 我们不收您的钱！"
Else
If sngWeight <= 0.1 Then
txtMoney = 10
ElseIf 0.1 < sngWeight <= 10 Then
txtMoney = 30
Else
txtMoney = 30 + (sngWeight - 10)
End If
End If
End Sub

Private Sub Command1_Click()

End Sub

Private Sub Form_Load()

End Sub
为什么输入大于10的数还是30呢，如果把第一个30改为40，输入大于10的数就是40 请问这是哪里出问题了呀

错误在于你的“ ElseIf 0.1 < sngWeight <= 10 Then”这条语句中
只要你输入的sngWeight > 0.1 那么就会这样运算，因为0.1<sngWeight，所以这个表达式为真，所以0.1<sngWeight = 1,1<=10这个命题仍然成立，所以执行
txtMoney = 30
，这也就是你输入大于10的数总会输出30,呵呵，只要你输入的大于0.1，结果就只能是30.
修改一下：
ElseIf 0.1< sngWeight And sngWeight <= 10 Then
txtMoney = 30
这样基本就OK了

vb 的高手帮我看一下 VB帮我看一下代码VB 帮我看一下我的随机函数是怎么回事 VB帮我看一下代码 excel 函数中*是“并且”的意思吗？帮忙看一下if函数有什么错误，为什么结果不对呢帮我看一道函数的题目帮忙看一下我写的函数麻烦帮我看一下这个excel函数能不能简化... 帮我看一下这个简单C++函数请大家帮我看一下这一段vb程序