不太懂vb,帮忙看下成语接龙的程序,或一起讨论以下成语接龙的算法(100分)

Even713 2007-10-26 10:31:28
我这里有40000多词库成语,想利用sqlserver来编写成语接龙,让这条龙很长,网上好象有能接到5000多个词的龙了.
下面有一个vb编写的程序,不过看不懂,似乎蛮经典的,有人能解释吗?或者提一些你们关于成语接龙的想法.能提供思路的一定给分,谢谢了!

'stack类模块代码:

Option Compare Database
Option Explicit
Dim StackColl As New Collection

Public Property Get Count() As Variant
Count = StackColl.Count
End Property

Public Sub Push(Var As Variant)
StackColl.Add (Var)
End Sub

Public Function fetch() As Variant
fetch = StackColl.Item(StackColl.Count)
StackColl.Remove (StackColl.Count)
End Function

Public Property Get AllString() As Variant
Dim strItem As Variant
For Each strItem In StackColl
AllString = AllString & "'" & strItem & "',"
Next
End Property

'Form_接龙模块代码:

Option Compare Database
Option Explicit

Private Sub 命令0_Click()
Me.显示接龙 = GetLink(Me.选择成语, Me.接龙长度)
End Sub

Public Function GetLink(StartWord As String, Lenth As Integer) As String
Dim MaxLen As Integer, i As Integer
Dim objStackA As New stack
Dim objStackB As New stack
Dim EndWord As String
Dim rst As Recordset
Randomize
objStackB.Push StartWord
Do While MaxLen < Lenth And objStackB.Count > 0
StartWord = objStackB.fetch
Set rst = CurrentDb().OpenRecordset("Select CM from cy where Head='" & Right(StartWord, 1) & "' AND CM Not In (''," & objStackA.AllString & ")" & IIf(Int(2 * Rnd) = 0, "", " Order by CM Desc"))
If Not rst.EOF Then
Do While objStackA.Count > 0
EndWord = objStackA.fetch
If Right(EndWord, 1) = Left(StartWord, 1) Then
objStackA.Push EndWord
Exit Do
End If
Loop
objStackA.Push StartWord
If objStackA.Count > MaxLen Then
GetLink = objStackA.AllString
MaxLen = objStackA.Count
End If
Do While Not rst.EOF
objStackB.Push rst![CM]
rst.MoveNext
Loop
End If
Loop
End Function
...全文
313 11 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
Even713 2007-11-01
  • 打赏
  • 举报
回复
就是一个递归
一直循环
直到达到你要求的成语数 或者 未达到要求的数量但查询完毕 后返回
-----------------------------------------
这样简单的做是达不到比较长的龙的,一般一百多个成语,但是该vb程序可以达到len=2000个龙.我觉得这个不一般的,有一定的算法在里面,而且他在生成上百个成语时速度也理想.

其实就是希望大家能讨论一下算法,我觉得达到最优的,最长的龙可能不现实,不知道有什么算法能逼近这样的龙呢?
Even713 2007-11-01
  • 打赏
  • 举报
回复
谢谢楼上的.
我现在做成了一个,蛮长的了.
http://topic.csdn.net/u/20071031/16/986e63a4-f1cd-4927-94d1-c5dbab3c8650.html
大家看看,继续讨论一下算法吧.我的算法一定不是最优的.
  • 打赏
  • 举报
回复
我只是描述下 你贴的代码的思路
  • 打赏
  • 举报
回复
就是一个递归
一直循环
直到达到你要求的成语数 或者 未达到要求的数量但查询完毕 后返回

至于优化
写成SQL过程或者函数其实效率上差别不大
应该从算法上去改进

Even713 2007-10-31
  • 打赏
  • 举报
回复
谢谢 vansoft
objStackA和objStackB分别存储什么的?
If objStackA.Count > MaxLen Then
GetLink = objStackA.AllString
MaxLen = objStackA.Count
End If
又是在做什么方面的比较呢?
vansoft 2007-10-31
  • 打赏
  • 举报
回复
你贴的代码用了集合+数据库
vansoft 2007-10-31
  • 打赏
  • 举报
回复
不停的循环而已,

先取一个词,
然后就是这个词的尾字做查询,
一直到查不到为止。

用递归就行了。
Even713 2007-10-29
  • 打赏
  • 举报
回复
我在sql那里也开了个贴的,楼上的可以参见http://topic.csdn.net/u/20071026/22/2bfcec7a-5133-4654-9e6c-88e11cbf04d3.html
应该说简单的算法很容易想到,但是最简单的算法是不现实的.因为需要太久了,否则我也不会贴上来,我想理解上面vb的算法,然后写成sql版,多谢了!
Even713 2007-10-29
  • 打赏
  • 举报
回复
怎么没有人回答呢,至少懂vb的人应该能看懂这个程序吧?顶者有分!请多多帮忙!
tantaiyizu 2007-10-28
  • 打赏
  • 举报
回复

哈 ,不明白你是要自己写? 还是将这个继续呢?

可以都放在一个表里啦

然后去数据库查询首字和末尾字匹配就ok了

偶觉得还好了,不是很难了
Even713 2007-10-28
  • 打赏
  • 举报
回复
没有人吗?提一些自己的想法也行啊,请高手不吝赐教啊!
DirectX修复工具(DirectX Repair)是一款系统级工具软件,简便易用。本程序为绿色版,无需安装,可直接运行。 本程序的主要功能是检测当前系统的DirectX状态,如果发现异常则进行修复。程序主要针对0xc000007b问题设计,可以完美修复该问题。本程序中包含了最新版的DirectX redist(Jun2010),并且全部DX文件都有Microsoft的数字签名,安全放心。 本程序为了应对一般电脑用户的使用,采用了傻瓜式一键设计,只要点击主界面上的“检测并修复”按钮,程序就会自动完成校验、检测、下载、修复以及注册的全部功能,无需用户的介入,大大降低了使用难度。 本程序适用于多个操作系统,如Windows XP(需先安装.NET 2.0,详情请参阅“致Windows XP用户.txt”文件)、Windows Vista、Windows 7、Windows 8、Windows 8.1、Windows 8.1 Update、Windows 10,同时兼容32位操作系统和64位操作系统。本程序会根据系统的不同,自动调整任务模式,无需用户进行设置。 本程序的V3.3版为标准版、增强版以及在线修复版。其中的标准版以及增强版都包含完整的DirectX组件。除此之外,增强版中还额外包含了c++ Redistributable Package,因此增强版不但能解决DirectX组件的问题,而且还能解决c++组件异常产生的问题。增强版适合无法自行解决c++相关问题的用户使用。在线修复版的功能与标准版相同,只是其所需的文件将通过Internet下载,因此大大减小了程序的体积。本程序的各个版本之间,主程序完全相同,只是配套使用的数据包不同。因此,当您使用标准版数据包时,程序将进行标准修复;当您使用增强版的数据包时,程序将进行增强修复;当数据包不全或没有数据包(即只有DirectX Repair.exe程序)时,程序将进行在线修复。在线修复、离线修复可自由灵活组合,充满足不同用户的需要。 本程序自V2.0版起采用全新的底层程序架构,使用了异步多线程编程技术,使得检测、下载、修复单独进行,互不干扰,快速如飞。新程序更改了自我校验方式,因此使用新版本的程序时不会再出现自我校验失败的错误;但并非取消自我校验,因此程序安全性与之前版本相同,并未降低。 程序有自动更新c++功能。由于绝大多数软件运行时需要c++的支持,并且c++的异常也会导致0xc000007b错误,因此程序在检测修复的同时,也会根据需要更新系统中的c++组件。自V3.2版本开始使用了全新的c++扩展包,可以大幅提高工业软件修复成功的概率。修复c++的功能仅限于增强版,标准版及在线修复版在系统c++异常时(非丢失时)会提示用户使用增强版进行修复。 程序有两种窗口样式。正常模式即默认样式,适合绝大多数用户使用。另有一种简约模式,此时窗口将只显示最基本的内容,修复会自动进行,修复完成10秒钟后会自动退出。该窗口样式可以使修复工作变得更加简单快速,同时方便其他软件、游戏将本程序内嵌,即可进行无需人工参与的快速修复。开启简约模式的方法是:打开程序所在目录下的“Settings.ini”文件(如果没有可以自己创建),将其中的“FormStyle”一项的值改为“Simple”并保存即可。 程序有高级筛选功能,开启该功能后用户可以自主选择要修复的文件,避免了其他不必要的修复工作。同时,也支持通过文件进行辅助筛选,只要在程序目录下建立“Filter.dat”文件,其中的每一行写一个需要修复文件的序号即可。该功能仅针对高级用户使用,并且必须在正常窗口模式下才有效(简约模式时无效)。 本程序有自动记录日志功能,可以记录每一次检测修复结果,方便在出现问题时,及时析和查找原因,以便找到解决办法。 程序的“选项”对话框中包含了4项高级功能。点击其中的“注册系统文件夹中所有dll文件”按钮可以自动注册系统文件夹下的所有dll文件。该项功能不仅能修复DirectX的问题,还可以修复系统中很多其他由于dll未注册而产生的问题,颇为实用。点击该按钮旁边的小箭头,还可以注册任意指定文件夹下的dll文件,方便用户对绿色版、硬盘版的程序组件进行注册。点击第二个按钮可以为dll文件的右键菜单添加“注册”和“卸载”项,方便对单独的dll文件进行注册。请注意,并不是所有的dll文件都可以通过这种方式注册。点击“DirectX版本”选项卡可以自行修改系统中DirectX的版本信息。点击“DirectX加速”选项卡可以控制系统中DirectX加速的开启与关闭。 新版程序集成了用户反馈程序,可以在用户允许的前提下发送检测修复结果。用户也可以在出现问题时通过反馈程序和软件作者进行交流,共同查找问题。反馈是完全自愿和匿名(如果不填写E-mail地址)的。 本程序的通用版基于Microsoft .NET Framework 2.0开发,对于Windows 2000、Windows XP、Windows 2003的用户需要首先安装.NET Framework 2.0或更高版本方可运行本程序。有关下载和安装的详细信息请参阅“致Windows XP用户.txt”文件。对于Windows Vista、Windows 7及后续用户,可以直接运行本程序。 同时鉴于Windows 8(Windows 8.1、Windows 8.1 Update)、Windows 10系统中默认未包含.NET Framework 2.0,因此新版的程序文件夹内将包含一个DirectX_Repair_win8的特别版程序,该程序功能与通用版相同,基于.NET Framework 4.0开发,可以在Windows8(Windows 8.1、Windows 8.1 Update)、Windows 10系统中直接运行(其他系统如果安装了.NET Framework 4.0也可以运行这个特别版的程序)。 本程序的官方博客地址为:http://blog.csdn.net/vbcom/article/details/6962388 所有的更新以及技术支持都可以到该博客上找到。

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧