VB 做好追加100分

来源:百度知道 编辑:UC知道 时间:2024/05/11 00:30:59
如输入aaaa 结果显示 4a
如输入abababab 结果显示4(ab)
如输入 aaaaabab 结果则显示 4a2(ab)
如输入 aababaababaababaabab 结果显示 4(a2(ab)) 遇到多重括号与此类推。
要求程序为function

其中 a b 其实只是个例子
真正的是 Asc("a") To Asc("z")

关于追加分的问题 请大家不用担心 我可以重新提问解决的 。
问题补充:说错 是一个程序 不是两个程序

有其他程序办法的话 只要VB能够调用就可以。
aaaaababababaaaaababaababaababaababaababaababaababaababaabab=4a 4(ab)4a2(ab)4(a(2ab) (这里没有空格) 这是我的一个例子

我再补充一点吧,其实这个程序的重复单元是可以知道的 并且重复单元我已经按照重复单元分解了后字符的个数从多到少 列入数组 排列出来了 数组名称为 括号循环() 数组个数为 Ubound(括号循环)
如 4(ab) 其字符串个数就是8 3(abc) 字符串个数是9 这样在数组里 3(abc)就排在4(ab)之前
3(abc)完全拆解后就是 abcabcabc
就这些
本人这几天也整了个程序
前段还好,后段就错了
如果可以的话,请百度联系. 我可以把我做的发过来;以作为参考

有点像编译代码或破译编码之类的东东。可以发你的来看看吗chixun99@163.com.
---------------------------------------------------------------------
你提出的计算程序好像有个问题,
输入aaaa时显示4a,但是那样也可以显示为2(2a)吧?
输入aaaaabab显示4a2(ab),计算机很容易就可以把它识别为5abab了
输入aababaababaababaabab这段的话,可以出现的歧义拆解为2a3(2(ba)a)bab;
我的意思是你给的算法有很多歧义的地方,计算机运行时不一定都能按你所想的意思组合,得出的结果会千奇百怪吧。

看样子很简单啊,我看了下,双数组26元素套质数判断在加上Boolean检查提取变化

可能质数判断都不需要,直接加减法都可以