怎么用vb随机抽取几个字组成一段话？

{A|The|Any|Some sort of|A new|Your|A good|Some} {A fabulous|An important|The latest|A real|A good solid|Another|An absolute|An|A very|One particular|Each|A suitable|One|An actual|Any kind of|The right|Your own}

就像上面这段，有两个大括号，每个大括号里用竖线分成了好几个，我就像从每个大括号里按竖线分隔随机抽取一个词 组成一段话，比如从第一个大括号里抽Some sort of，从第二个大括号里抽A fabulous，把这两个词组合起来输出，这样应该怎么实现呢？ --------------------编程问答-------------------- 随机函数很容易啊 --------------------编程问答-------------------- 随机函数很容易啊 --------------------编程问答-------------------- 用Split函数首先切割{}，得到几个数组。

再进一步切割|，得到单词。对每个大括号切割的数组计算出单词数量，随机产生一个0-（数量-1）的数字，根据这个数字取下标，取得一个单词。

最后连起来。 --------------------编程问答-------------------- 你启动VB6
在窗体上放一个按钮，不要给按钮改名
双击该按钮，把这时看到的两行代码删掉，把我下面写的代码粘进去，运行程序，点下按钮看看
看了可以再点，内容会变

Private Sub Command1_Click()

Randomize

s = "A|The|Any|Some sort of|A new|Your|A good|Some"

a = Split(s, "|")

s = "A fabulous|An important|The latest|A real|A good solid|Another|An absolute|An|A very|One particular|Each|A suitable|One|An actual|Any kind of|The right|Your own"

B = Split(s, "|")

Cls

For i = 1 To 20

    Print a(Int(Rnd(1) * UBound(a))) + " " + B(Int(Rnd(1) * UBound(B)))

Next

End Sub

--------------------编程问答-------------------- 关键这段话里 有的在括号内有的不在 比如abc{a|b|c|d}jugas{h|k|j}
大括号外的正常输出，括号内的随机输出，这样就比较麻烦了吧 --------------------编程问答--------------------

引用 5 楼  的回复:

关键这段话里 有的在括号内有的不在 比如abc{a|b|c|d}jugas{h|k|j}
大括号外的正常输出，括号内的随机输出，这样就比较麻烦了吧

这个自己可以改改4楼的代码……学习机会，自己不要放弃…… --------------------编程问答--------------------

引用 6 楼  的回复:

引用 5 楼  的回复:
关键这段话里 有的在括号内有的不在 比如abc{a|b|c|d}jugas{h|k|j}
大括号外的正常输出，括号内的随机输出，这样就比较麻烦了吧
这个自己可以改改4楼的代码……学习机会，自己不要放弃……

嗯 就是脑子里好乱  不知道从哪下手 --------------------编程问答-------------------- 看来这个题目可以检验你是否适合做这样的工作。

补充：VB ,  基础类