VB条件语句错误在哪里？ - 编程论坛

#2

wp2319572013-03-28 10:52

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

#3

magicsky13942013-03-28 11:15

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

#4

lowxiong2013-03-28 11:22

关系运算符一般不能连续运算，中间一般条件用运算符连接。
如果连续使用的话会从左至右扫描，先做“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 编辑 ]

#5

magicsky13942013-03-28 11:28

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

#6

lowxiong2013-03-28 11:37

回复 5楼 magicsky1394

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

#7

magicsky13942013-03-28 11:42

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

#8

lowxiong2013-03-28 12:24

回复 7楼 magicsky1394

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

#9

magicsky13942013-03-28 12:26

彻底明白了。非常感谢！

#10

qq3725058552013-03-28 17:47

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