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

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

谢谢，我再捣鼓捣鼓~顺便帮我看下另一个问题吧，随机抽取5行记录，代码如下，为啥他有时显示3行、有时4行、有时5行？？

洗牌要这样

 

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

额 .....代码复制过去，把表名改了后，点击按钮，没反应0.0

Tables("题库").StopRedraw()
DataTables("题库").ReplaceFor("抽取",False)
For i As Integer = 0 To 5 - 1 '5为要抽取的行数
    DataTables("题库").DataRows(str(i))("抽取") = True
Next
Tables("题库").Filter = "[抽取] = True"
Tables("题库").ResumeRedraw()

楼主，你的第一个问题做好了？

狐大大，没有解决，目前还是人工判断，真个系统就这个一个缺陷，好复杂0.0