根据行李的不同重量计算运费，为什么输入字母的时候，仍然显示“免费”？
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

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

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

上个问题我清楚了。
现在，我的问题是，如果条件 只有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 编辑 ]

彻底明白了。非常感谢！