能否在VB的If语句中使用数组简化多条件OR判断？

你期望的_value = OR(Array1)这种写法不可行，因为VB（包括VB6和VB.NET）没有内置的OR函数能直接接收数组并完成这种匹配判断。不过可以通过以下几种方式实现类似的简化效果：

1. VB.NET 方案（推荐） #

利用.NET框架提供的Contains方法直接判断值是否在数组中，代码更简洁：

首先定义数组：

Dim Array1 As Integer() = {1, 2, 4, 5}
Dim Array2 As Integer() = {21, 22, 24, 25}

然后改写判断逻辑：

If Array1.Contains(_value) Then
    '执行对应操作
ElseIf Array2.Contains(_value) Then
    '执行对应操作
Else
    '执行默认操作
End If

注意：如果项目未默认引入System.Linq命名空间，需要在代码顶部添加Imports System.Linq。

2. VB6 方案 #

VB6没有内置的数组包含判断方法，需要自定义一个函数来实现：

先实现判断函数：

Function IsInArray(ByVal checkValue As Variant, ByVal targetArray As Variant) As Boolean
    Dim element As Variant
    For Each element In targetArray
        If element = checkValue Then
            IsInArray = True
            Exit Function
        End If
    Next element
    IsInArray = False
End Function

然后使用该函数完成判断：

Dim Array1 As Variant
Dim Array2 As Variant
Array1 = Array(1, 2, 4, 5)
Array2 = Array(21, 22, 24, 25)

If IsInArray(_value, Array1) Then
    '执行对应操作
ElseIf IsInArray(_value, Array2) Then
    '执行对应操作
Else
    '执行默认操作
End If

关于AND逻辑的补充 #

如果需要实现AND逻辑的批量判断（比如判断值同时满足多个条件），可以将条件封装为函数，或在VB.NET中使用All方法（结合LINQ）来实现类似的数组化条件管理。

内容的提问来源于stack exchange，提问作者Nelson