A、B、C、D

比如第一种，得出A的，这样写

iif((A-B>4 OR A-B<-4) AND (A-C>4 OR A-C<-4) AND (A-D>4 OR A-D<-4),\'A\', \'否则继续其余的判断\')

得出A、B这样写

iif((A-B>4 OR A-B<-4) AND (A-C>4 OR A-C<-4) AND (A-D>4 OR A-D<-4),\'A\', iif((B-A>4 OR B-A<-4) AND (B-C>4 OR B-C<-4) AND (B-D>4 OR B-D<-4),\'B\',\'否则继续其余的判断\'))

-------------------------- 拼凑起来，就是一大段判断

比如第一种的情况，就这样处理。其余你的，你照着逻辑写代码就行。分别判断。

Dim ary1() As String = {"A", "B", "C", "D"}
Dim ary2() As Integer = {-3, 7,  -1, -11}

For i As Integer = 0 To ary1.Length - 1
    Dim flag As Boolean = True
    For j As Integer = 0 To ary2.length - 1
        If i<>j AndAlso Math.Abs(ary2(i)-ary2(j)) < 4 Then
            flag = False
            Exit For
        End If
    Next
    If flag  = True Then
        msgbox(ary1(i))
        Return Nothing
    End If
Next

洗牌要这样

Dim cnt As Integer = DataTables("表A").DataRows.Count
Dim str As New List(of Integer) \'用于存储洗牌前的位置

For i As Integer = 0 To cnt -1 \'准备初始的牌
    str.add(i)
Next

For i As Integer = 1 To str.count \'洗牌测次数
    Dim rnum1 As Integer = Rand.Next(str.count -1)
    Dim rnum2 As Integer = Rand.Next(str.count -1)
    Dim temp As String = str(rnum1)
    str(rnum1) = str(rnum2)
    str(rnum2) = temp   
Next

For i As Integer = 0 To 5 - 1 \'5为要抽取的行数
    output.show(str(i))
Next

先数组排序，从高到低分别为 a1 a2 a3 a4

b1 = a1 - a2

b2 = a2 - a3

b3 = a3 - a4

后面代码很简单，只要对比b就可以了如下：

if b1 > 4 then

（就是第一种情况（单高），为什么呢：因为如果b1>4，由于a1>=a2 ,所以 a1-a3 肯定也是大于4的，a1- a4也肯定大于4.所以可以直接下结论,后面同理）

elseif b1 < 3 and b2 >4

(双高)

elseif b1 < 3 and b2 < 3 and b3 > 4

(三高)

elseif b1 < 3 and b2 < 3 and b3 < 3

无法判断

else

end if