求一段组合的代码

vikingleo 2004-11-30 05:32:10
有一数组: "A" ,"B" ,"C","D","E"
求他们的组合可以是:
A
AB
BA
ABC
CAB
ABCD
BCDA
要求列出全部组合,和组合的个数
...全文
104 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
AprilSong 2004-12-03
  • 打赏
  • 举报
回复
这代码有意思~~
flyingscv 2004-12-03
  • 打赏
  • 举报
回复
要加个Command1和一个List1
Private Sub Command1_Click()
a ("")
End Sub

Function a(s As String) As String
If s <> "" Then List1.AddItem s
If Len(s) = 5 Then Exit Function
If InStr(s, "a") = 0 Then a (s & "a")
If InStr(s, "b") = 0 Then a (s & "b")
If InStr(s, "c") = 0 Then a (s & "c")
If InStr(s, "d") = 0 Then a (s & "d")
If InStr(s, "e") = 0 Then a (s & "e")
End Function

莫情莫钱 2004-12-03
  • 打赏
  • 举报
回复
想设置密码吗?
没考虑过
得研究一下
vikingleo 2004-12-03
  • 打赏
  • 举报
回复
自己UP 一下.....求1到5位的组合
happy_sea 2004-11-30
  • 打赏
  • 举报
回复
不简单。。。
江语 2004-11-30
  • 打赏
  • 举报
回复
想生成密码字典?
AprilSong 2004-11-30
  • 打赏
  • 举报
回复
这个~
http://dev.csdn.net/article/23/23809.shtm
Abyss-Xu 2004-11-30
  • 打赏
  • 举报
回复
先顶一下。然后再研究研究

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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