Dim s As String = """张三"",""李四"""
Dim s2 As String = "张三"
Select Case s2
Case s
MessageBox.show(1)
Case Else
output.show(2)
End Select
老师好，这个代码执行出来为什么是输出2
Dim s2 As String = "张三"
Select Case s2
Case "张三","李四"
MessageBox.show(1)
Case Else
output.show(2)
End Select
这样就可以输出1，需要判断的范围 “张三，李四” 会经常变化，所以想把它放在词典表里，方便修改；但是从词典表里读过来的那个字符串好像不是很好使
Dim Names As New List(Of String)
Names.Add("张三")
Names.Add("李四")
Names.Add("王五")
if Names.Contains("张三") orelse Names.Contains("李四")
MessageBox.show(1)
else
MessageBox.show(2)
end if
好嘞，谢谢，不过还是觉得select case 那样好点，哈哈