[练习题][VBA第4期]字符串首尾相连

ldy · 发表于 2007-11-16 23:26

创建VBA VB 流和提高V 特创 平的 能有一个 小组和 的机会 了让大家 BA开 立的版块 和独立 为了 个交流 家能 开发水平 会特 兴趣小 A开发兴首尾相连初级 蓝色区域只能串成一句话输出到B1格如果有人参与解答，再出一道复杂些的 内容会长一些，结果将产生多句话。例如  创建VBA   和 A开发兴    连成“创建VBA开发兴” 已仔细检查过参考答案，确认无误

[此贴子已经被作者于2007-11-17 20:53:55编辑过]

hhzjxss · 发表于 2007-11-17 00:06

老师真厉害！[em17]

hhzjxss · 发表于 2007-11-17 00:10

原来还没有代码，这个问题我想都不敢想！

djyjysxxs · 发表于 2007-11-17 01:03

抛砖引玉:Sub 首尾相连() '请添加代码，结果保存到[B1] Dim arr2(1 To 19), arr3(1 To 19) arr = [a1:a19] str1 = arr(1, 1) k = 1 Do While k < 19   be = Left(str1, 1)   en = Right(str1, 1)   For i = 1 To 19     If be = Right(arr(i, 1), 1) Then         str1 = Left(arr(i, 1), Len(arr(i, 1)) - 1) & str1         arr(i, 1) = ""         k = k + 1     ElseIf en = Left(arr(i, 1), 1) Then        str1 = str1 & Right(arr(i, 1), Len(arr(i, 1)) - 1)        arr(i, 1) = ""        k = k + 1     End If   Next i Loop [b1] = str1 End Sub

[此贴子已经被作者于2007-11-17 1:08:30编辑过]

ldy · 发表于 2007-11-17 03:17

鼠兄的速度够快的，请做一下中级的

Luckyguy2008 · 发表于 2007-11-17 18:55

还没仔细研究，不过第一感觉中级题的字符串通过排列组合应该不止8句，比如参考结果的第一行，把“为了让大家”换成“大家”，又多了1句。 是否要把所有可能的组合都要列举出来。

ldy · 发表于 2007-11-17 19:13

把所有可能的组合都要列举出来应该是8 句

ldy · 发表于 2007-11-17 20:13

2008的第一感觉是对的，出题时只是目测了几次。编代码运行一次，结果出乎自己意料---- 不重复组合一共55句看来人脑始终赶不上电脑。附件已更新参考答案。

[此贴子已经被作者于2007-11-17 20:15:43编辑过]

djyjysxxs · 发表于 2007-11-17 21:22

刚回家上网，看到题已更新。再努力试试[em04]

ldy · 发表于 2007-11-17 22:40

2008 做过EH的29期VBA竞赛题吧?此题就是从那里转化而来。2008做此题应该不会太困难。

		自动登录	找回密码
密码			注册

[练习题][VBA第4期]字符串 首尾相连

本帖子中包含更多资源

[练习题][VBA第4期]字符串首尾相连