VB语言如何实现同时满足多条件匹配过滤问题

Question

只有http://pan.baidu.com/s/1ntkITV7
最好解析一下

Answer 1

Option Explicit

Private Sub JudgeFilter(ByRef nFilter() As Integer, ByVal myValue As Integer)
' 条件1
If myValue = 1 Or myValue = 2 Or myValue = 3 Then
nFilter(0) = nFilter(0) + 1
End If
' 条件2
If myValue = 2 Or myValue = 3 Or myValue = 6 Or myValue = 7 Or myValue = 8 Or myValue = 9 Then
nFilter(1) = nFilter(1) + 1
End If
' 条件3
If myValue = 1 Or myValue = 3 Or myValue = 6 Or myValue = 9 Or myValue = 10 Or myValue = 11 Then
nFilter(2) = nFilter(2) + 1
End If
' 条件4
If myValue = 11 Or myValue = 12 Or myValue = 13 Or myValue = 14 Or myValue = 15 Then
nFilter(3) = nFilter(3) + 1
End If
' 条件5
If myValue = 2 Or myValue = 5 Or myValue = 6 Or myValue = 9 Or myValue = 11 Or myValue = 15 Then
nFilter(4) = nFilter(4) + 1
End If
End Sub

Private Sub cmdGetArray_Click()
Dim arr(0 To 5) As Integer
Dim i As Integer
Dim j As Integer
Dim nFilter(0 To 4) As Integer
Dim nTemp As Integer
Dim bNotFind As Boolean
Dim sOutput As String
Dim bFindAList As Boolean

bFindAList = False
Do
' 初始化数组
For i = 0 To 4
nFilter(i) = 0
Next i

' 初始化随机数列
Randomize

' 生成1-15随机数序列
nTemp = Int(15 * Rnd + 1)
arr(0) = nTemp

JudgeFilter nFilter, arr(0) ' 判断条件

For i = 1 To 5
' 如果与之前的重复就重新生成一个随机数
Do
bNotFind = True
nTemp = Int(15 * Rnd + 1)
For j = 0 To i - 1
If nTemp = arr(j) Then
bNotFind = False
End If
Next j
Loop Until bNotFind = True
arr(i) = nTemp

JudgeFilter nFilter, arr(i) ' 判断条件
Next i

bFindAList = nFilter(0) >= 1 And nFilter(0) <= 2
bFindAList = bFindAList And nFilter(1) >= 1 And nFilter(1) <= 3
bFindAList = bFindAList And nFilter(2) >= 0 And nFilter(2) <= 2
bFindAList = bFindAList And nFilter(3) >= 0 And nFilter(3) <= 2
bFindAList = bFindAList And nFilter(4) >= 1 And nFilter(4) <= 2
Loop Until bFindAList

' 排序
For i = 0 To 4
For j = i + 1 To 5
If arr(i) > arr(j) Then
nTemp = arr(i): arr(i) = arr(j): arr(j) = nTemp
End If
Next j
Next i

' 输出
sOutput = ""
For i = 0 To 5
sOutput = sOutput + Format(arr(i), "00")
If i < 5 Then sOutput = sOutput + ","
Next i

edtOutputList.Text = sOutput + vbCrLf + edtOutputList.Text
End Sub

追问

你给个源代码文件吧直接代码不行

追答

你得给我一个邮箱，我发给你