主题：[求助]超费脑的逻辑判断，求传说级出来指点下~

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

第二种

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
    For j As Integer = 0 To ary2.length - 1
        If i<>j AndAlso Math.Abs(ary2(i)-ary2(j)) < 3 Then
        Dim flag As Boolean = True
            For k As Integer = 0 To ary2.length -1
                If k <> i AndAlso k <> j Then
                    If math.abs(ary2(k)-ary2(i)) < 4 OrElse math.abs(ary2(k)-ary2(j)) < 4 Then
                        flag = False
                        Exit For
                    End If
                End If
            Next
            If flag  = True Then
                msgbox(ary1(i) & " " & ary1(j))
                Return Nothing
            End If
        End If
    Next
Next

第三种

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

For i As Integer = 0 To ary1.Length - 1
    For j As Integer = 0 To ary2.length - 1
        If i<>j AndAlso Math.Abs(ary2(i)-ary2(j)) < 3 Then
            For k As Integer = 0 To ary2.length - 1
                If k <> j AndAlso k <> i Then
                    If math.abs(ary2(k)-ary2(i)) < 3 AndAlso math.abs(ary2(k)-ary2(j)) < 3 Then
                        For l As Integer = 0 To ary2.length - 1
                            If l <> i AndAlso l <> j AndAlso l <> k Then
                                If math.abs(ary2(l)-ary2(i)) > 4 AndAlso math.abs(ary2(l)-ary2(j)) > 4 AndAlso math.abs(ary2(l)-ary2(k)) > 4 Then
                                    msgbox(ary1(i) & " " & ary1(j)  & " " & ary1(k))
                                    Return Nothing
                                End If
                            End If
                        Next
                    End If
                End If
            Next
        End If
    Next
Next

第四种。

Dim ary1() As String = {"A", "B", "C", "D"}
Dim ary2() As Integer = {1, 2,  3, 0}

For i As Integer = 0 To ary1.Length - 1
    For j As Integer = 0 To ary2.length - 1
        If i<>j AndAlso Math.Abs(ary2(i)-ary2(j)) < 3 Then
            For k As Integer = 0 To ary2.length - 1
                If k <> j AndAlso k <> i Then
                    If math.abs(ary2(k)-ary2(i)) < 3 AndAlso math.abs(ary2(k)-ary2(j)) < 3 Then
                        For l As Integer = 0 To ary2.length - 1
                            If l <> i AndAlso l <> j AndAlso l <> k Then
                                If math.abs(ary2(l)-ary2(i)) > 4 AndAlso math.abs(ary2(l)-ary2(j)) > 4 AndAlso math.abs(ary2(l)-ary2(k)) > 4 Then
                                    msgbox(ary1(i) & " " & ary1(j)  & " " & ary1(k))
                                    Return Nothing
                                Else
                                    msgbox("无法判断")
                                    Return Nothing
                                End If
                            End If
                        Next
                    End If
                End If
            Next
        End If
       
    Next
Next