完全是送分的问题,是关于"或"的判断

[TreelightLSH]

例如判断Text1.Text="a"或"b"或'c"
如何写?各位不要见笑哦,小弟初学

[northwolves]

呵呵，

Private Sub Command1_Click()
MsgBox UBound(Filter(Array("a", "b", "c"), Text1.Text)) = "-1" '不包含
End Sub

[986753421]

好像还没人写下面的方法：
select case text1.text
case "a","b","c"
msgbox "呵呵"
end select

[d1ll]

观摩中。。。。。

羡慕中。。。。

^^

[online]

Option Explicit

Private Sub Command1_Click()
If Text1.Text = "a" Or Text1.Text = "b" Or Text1.Text = "c" Then
MsgBox "通过"
Else
MsgBox "没有"
End If

End Sub

[pigpag]

Select Case Text1.Text
Case "a", "b", "c"
' 是
...
End Select

[shortppsy]

or

[pigpag]

原来已经写过了……

这是个提升代码可读性的方案，推荐

[chinaren502]

Private Sub Command1_Click()
If Text1.Text = "a" Or Text1.Text = "b" Or Text1.Text = "c" Then
.......
Else
.........
End If

End Sub

[tztz520]

可能有很多种方法,楼上的比

[Wenking003]

使用逻辑操作符 Or

[tztz520]

不好意思,按错键发了出去.

If Switch(Text1.Text = "a", 1, Text1.Text = "b", 1, Text1.Text = "c", 1, 1 = 1, 0) = 1 Then
MsgBox "通过"
Else
MsgBox "不能通过"
End If

[Mi_Bo]

If text1.text="a" or text1.text="b" or text1.text="c" then ……

[haipingma]

用or就可以了

[hackate]

哈哈，可能很多人开始都写成

if text1.text="a" or "b" or "c"

这样是不行的，呵呵，偶那时候就笨得这样啊，搞了半天，一想，好像不能这样啊，哈哈，

楼上大狭们的方法就对了都

[TreelightLSH]

我的程序如下:
If Combo1.Text = "单价" Or "实际购价" Then
MsgBox ("good")
End If
会提示"类型不匹配"
如何解决?

[shortppsy]

dim temp as string
temp=str(combo1l.text)
If Combo1.Text = "单价" Or "实际购价" Then
MsgBox ("good")
End If

[射天狼]

我晕`~~~~~``

[online]

Private Sub Command2_Click()
If Combo1.Text = "单价" Or Combo1.Text = "实际购价" Then
MsgBox ("good")
End If
End Sub

[shortppsy]

晕，不好意思，我看错了

[silverblade]

用LIKE运算符最方便，但不保证性能
if text1.text like [abc] then