100分悬赏简单问题！

[luocc321]

数据接龙
有6个输入2位数的TEXT，每个TEXT可以输入21个二位数，输入完一个回车后自动清空，存起来，等6个TEXT都输入完后就进行接龙，
比如TEXT1里面输入35，回车，清空，35被保存到一个变量里面，再输入78，回车又清空，78又被保存到一个变量里面。。。。直到TEXT1输入完21个2为数
TEXT2到TEXT6也是一样的操作，等全部把数据输入完后就进行接龙
假如TEXT1里面输入的二位数是35，78。60，29，06。。。。
TEXT2面输入的二位数是56，92，38，70，62。。。。。
TEXT1里输入的数据的个位等于TEXT2数据的十位的，就进行接龙，比如35和56，接起来就是356，29和92，接起来就是292
以此类推，把6个TEXT里面的满足上个TEXT的数据个位等于下一个TEXT的十位的都进行接龙，结果就可以得到很多个7位数
大概有百万个左右
请问上面这个问题如何实现，这百万个7位数如何进行能够保存，需要用到数据库吗，不用数据库可以实现吗？

[贝隆]

飘过

[jhone99]

临时用可以不用数据库

[jhone99]

数据量太大了，还是存入数据库方便

[Tiger_Zhao]

将数字存放在 6x21 的二维数组中，用递归方式很容易实现接龙，结果可以用文本方式输出到文件进行保存。

[vbman2003]

假如TEXT1里面输入的二位数是35，78。60，29，06。。。。
TEXT2面输入的二位数是56，92，52，90，62。。。。。

有多个匹配你要什么结果？比如如上35的个位和56、52的十位同时匹配，用什么规则处理？

[Tiger_Zhao]

递归和输出

Option Explicit

Private a(1 To 6, 1 To 21) As String
Private hFile As Integer

Private Sub Search(ByVal FreeCell As String, ByVal Level As Long)
    Dim sNew As String
    Dim i As Long
    
    For i = 1 To 21
        If Left$(a(Level, i), 1) = Right$(FreeCell, 1) Then
            sNew = FreeCell & Right$(a(Level, i), 1)
            If Level = 6 Then
                Print #hFile, sNew
            Else
                Search sNew, Level + 1
            End If
        End If
    Next
End Sub

Private Sub Command1_Click()
    Dim i As Long
    
    hFile = FreeFile()
    Open "C:\temp\FreeCell.txt" For Output Access Write As #hFile
    
    For i = 1 To 21
        Search a(1, i), 2
    Next
    
    Close #hFile
End Sub

[luocc321]

[Quote=引用 4 楼 vbman2003 的回复:]
假如TEXT1里面输入的二位数是35，78。60，29，06。。。。
TEXT2面输入的二位数是56，92，52，90，62。。。。。

有多个匹配你要什么结果？比如如上35的个位和56、52的十位同时匹配，用什么规则处理？
[/Quote]
都有啊，接起来就是356和352两个啊

[luocc321]

还有人有别的答案吗

[luocc321]

有人知道吗，救命啊~~~

[东方之珠]

你们接龙，我来翻页。

[vbman2003]

Tiger_Zhao的算法不是很好吗？还要什么算法？

[小鱼儿咕噜咕噜]

为什么说都是7位的呢？比如第一个里面的60，它有下一个吗？
用数组把，虽然不是很会第贵，现在脑子也没写代码的欲望，用个数组，单一比较，用第贵的效率应该应该比我说的单一比较效率快很多，最后存在文件里，

[睿睿爸爸]

我也觉得
Tiger_Zhao写的算法就是最佳方案了

如果用数据库也许更麻烦