带空格位置的组合算法

FBR2002

谢谢cuxun帮忙！

我先学习消化一下。

FBR2002

谢谢cuxun的初稿！

按照你的思路，我觉得可以在W3前对第二行先进行选出5个的组合，然后：
1、选出刚好有5个数的行（因为有的行空格站位后实际的数没有5个）；
2、把第一行（4个数）分别插入选出的行（得到需要的9个数）。

感觉这样在第1步会有许多无用的组合。不知我思路是否正确，有没有更简单的算法呢？

FBR2002

在网上找的组合程序，修改了一下

Function NFormM(ByVal iStar As Integer, iEnd As Integer, Num As Integer, Optional StrAll As String)
Dim i, j, k As Integer
Dim W1(14), W2(14), W3(14) As String
  If Num = 0 Then
      Me.Text30 = Me.Text30 & StrAll & vbCrLf
  Else
  k = 0
    For j = 1 To 14
        W1(j) = ""
        W1(j) = Nz(Me.Controls("W1" & Format(j, "00")), "N")
        W2(j) = ""
        W2(j) = Nz(Me.Controls("W2" & Format(j, "00")), "N")
        If W1(j) = "N" Then
           k = k + 1
           If W2(j) <> "N" Then
              W3(k) = W2(j)
           End If
        Else
           k = k + 1
           W3(k) = W1(j)
        End If
    Next j
      For i = iStar To iEnd
      DoEvents
        NFormM i + 1, iEnd, Num - 1, StrAll & W3(i) & " - "
      Next i
  End If
End Function

但还是没解决空格和必选项的问题

FBR2002

原帖由 cuxun 于 2007-10-13 19:07 发表
Dim i, j, k As Integer
这样只是给K定义了整型的值,i,j是没定义类型的.

Dim i As Integer
Dim  j As Integer
Dim  k  As Integer

问题不在这儿。好象可以用逗号分开定义的。

关键还是在组合函数的定义：NFormM i + 1, iEnd, Num - 1, StrAll & W3(i) & " - "

FBR2002

对组合函数的定义做了些改动，代上文本编号是乎是一种方法。

W204=0  W205=1  W208=1  W209=3  W211=0  
W204=0  W205=1  W208=1  W209=3  W213=1  
W204=0  W205=1  W208=1  W209=3  W214=1  
W204=0  W205=1  W208=1  W211=0  W213=1  
W204=0  W205=1  W208=1  W211=0  W214=1  
W204=0  W205=1  W208=1  W213=1  W214=1  
W204=0  W205=1  W209=3  W211=0  W213=1  
W204=0  W205=1  W209=3  W211=0  W214=1  
W204=0  W205=1  W209=3  W213=1  W214=1  
W204=0  W205=1  W211=0  W213=1  W214=1  
W204=0  W208=1  W209=3  W211=0  W213=1  
W204=0  W208=1  W209=3  W211=0  W214=1  
W204=0  W208=1  W209=3  W213=1  W214=1  
W204=0  W208=1  W211=0  W213=1  W214=1  
W204=0  W209=3  W211=0  W213=1  W214=1  
W205=1  W208=1  W209=3  W211=0  W213=1  
W205=1  W208=1  W209=3  W211=0  W214=1  
W205=1  W208=1  W209=3  W213=1  W214=1  
W205=1  W208=1  W211=0  W213=1  W214=1  
W205=1  W209=3  W211=0  W213=1  W214=1  
W208=1  W209=3  W211=0  W213=1  W214=1

FBR2002

已经解决。谢谢cuxun！