根据行李的不同重量计算运费，为什么输入字母的时候，仍然显示“免费”？
Private Sub Command1_Click()
    Dim a As Single, b As Single
    a = Val(Text1.Text)
    If 0< a <= 30 Then
        Text2.Text = "免费"
    ElseIf a > 50 Then
        b = (a - 50) * 20 + (50 - 30) * 10
        Text2.Text = b
    ElseIf a > 30 And a <= 50 Then
        b = (a - 30) * 10
        Text2.Text = b
    Else
        Text2.Text = "输入错误"
    End If
End Sub

0< a <= 30   这是数学公式

转换成 a>0 and a<=30 就可以了
可是 为什么条件1里只有  a<=30的时候 无论输入负数还是字母 都显示免费呢？（输入字母，为什么还是执行分支1？）

关系运算符一般不能连续运算，中间一般条件用运算符连接。
如果连续使用的话会从左至右扫描，先做“0<a”的运算，结果为false,然后做“false<=30”的运算，结果为true。在vb里false的值为0，true的值为-1。你这句要想得到正确结果则应改为
if a>0 and a<=30 then
........

vb中运算符的优先顺序是
()
* /
+ -
= > < >= <=
and or not xor

[ 本帖最后由 lowxiong 于 2013-3-28 11:31 编辑 ]

为什么条件1里只有  a<=30的时候 无论输入负数还是字母 都显示免费呢？（输入字母，为什么还是执行分支1？）

我觉得我已经讲的很清楚了
对0<a<=30的运算顺序是先计算0<a,此时不管a的值是多少，得到的结果是false或true，在vb里false的值为0,true的值为-1,所以后续的运算是将0<a的运算结果做<=30的运算，由于无论0或-1都是小于30，所以结果均为true，当然就执行then后的代码了。

上个问题我清楚了。
现在，我的问题是，如果条件 只有a<=30 的时候 也就是代码变成这样：
Private Sub Command1_Click()
    Dim a As Single, b As Single
    a = Val(Text1.Text)
    If a <= 30 Then
        Text2.Text = "免费"
    ElseIf a > 50 Then
        b = (a - 50) * 20 + (50 - 30) * 10
        Text2.Text = b
    ElseIf a > 30 And a <= 50 Then
        b = (a - 30) * 10
        Text2.Text = b
    Else
        Text2.Text = "输入错误"
    End If
End Sub
这时候输入字母，也会执行分支1，是为什么呢？
非常感谢！

[ 本帖最后由 magicsky1394 于 2013-3-28 11:44 编辑 ]

val是类型转换函数，能将字符串转换成数字，如果字符串非数字字符则为0，因此a=val(字母),则a=0，0<=30结果为true,当然执行分支1

收到的鲜花

• magicsky1394 于 2013-03-28 12:27 送鲜花  3朵   附言：我很赞同

彻底明白了。非常感谢！

好吧，解决了就路过算了。。