主题：合成的字符串如何转换成逻辑表达式

常量Group的值为a

Dim group as string = “a”

If group = “a” or group = “b” or group = “c” then

Msgbox(1)

End if

条件成立

如果象下而定样合成，就会成为一个字符串，如何将其转换为逻辑表达式？

Dim s As String

Dim group As String = "a"

Dim names() As String = {"a","b","c"}

For Index As Integer = 0 To names.Length - 1

    s = s & " group = """ & names(Index) & """ Or "

Next

s = s.TrimEnd(" ")

s = s.TrimEnd("r")

s = s.TrimEnd("O")

msgbox(s)

If s Then

msgbox(1)

End If