2017-11-11 66 views
0

的案例声明我收到指出错误使用了一系列数字

结束语句错误预期

我应该使用,除了to的东西吗?我试过or&,并且收到类似的错误。

Dim interp As String = "" 
    Select Case BmiValue 
     Case Is < 18.5 
     interp = "Underweight" 
     Case Is <18.5 to >=24.9 
     interp = "Normal" 
     Case Is <24.9 to >=29.9 
     interp = "Overweight" 
     Case Else >/= 30.0 
     interp = "Obese" 

回答

0

您的代码后面需要一个End Select

Dim interp As String = "" 
Select Case BmiValue 
    Case Is < 18.5 
     interp = "Underweight"   
    Case Is <18.5 to >=24.9 
     interp = "Normal" 
    Case Is <24.9 to >=29.9 
     interp = "Overweight" 
    Case Else >/= 30.0 
     interp = "Obese" 
End Select 
+0

我尝试了这个建议,仍然收到相同的错误。我将尝试复制/粘贴我的所有代码,看看这是否有助于解决问题。 “的BMI值的回归解释 公共共享功能解释(BYVAL BmiValue作为双人)作为字符串 昏暗的interp作为字符串=‘’ 选择事例BmiValue 情况<18.5的interp =‘体重不足’ 情况<18.5 to > = 24.9口译=“正常” 情况<24.9 to > = 29.9插补=“增持” 案例品>/= 30.0插补=“肥胖” 最终选择 返回插补 端功能 末级 –

+0

错误仍然说“语句的结束预期'所有的'案件是'行 –

+0

我编辑了我的答案。你需要把'interop =“字符串”'放在一个单独的行上。 –

0

终于明白了!!!!!我在每行中取出'to'和> +之间的'/',并且它工作正常!不知道为什么它这次有效,而不是其他100次我尝试了不同的事情!