将值存储在要在Select Case语句中使用的字符串中

Question

说我有一个看起来像这样的字符串......

Dim Value as String
Value = "373, 273"

我的目标是能够在案例陈述中使用VALUE字符串...

这就像

那样

Dim Number as integer
Number = 273

Select Case Number

Case Value
   Msgbox "Value is 273"

Case else
  'do nothing
End select

当我运行这个case语句时 - 它不会读取VALUE（273）因此它只是转到其他情况。

如何在我的select case语句中使用VALUE，以便识别它的值???

Answer 1

试试这个（未经测试）：

Dim Number as Integer = 273
Dim Value = "373, 273"

Dim numAsString = CStr(Number)
If InStr(1, Value, numAsString)
    MsgBox("Value is " & numAsString)
End If