VB整好的话就追加100分啦 一个程序的编程 对我初学者来说很难 追加100分 困扰我很久了

求做两程序，要求
如输入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
就这些
本人这几天也整了个程序
前段还好,后段就错了
如果可以的话,请百度联系. 我可以把我做的发过来;以作为参考

再补充一点好啦

VB抽奖程序 100分。好的话再追加，在线等 着急 翻译一大段话...好的话追加100分 好的话追加40分 谁来帮帮我啊!!谢谢了啦 好的话再追加分诺! 热血江湖问题,好的话追加100分 高分求几首欧美舞曲。好的话追加100分 推荐个鼠标，推荐的好的话追加100分！ 菜地的土壤种类(好的话追加100分) 电脑中毒了,高手来.好的话追加100分! 初二下数学练习题(华东师大)好的话追加100分