怎么用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()--------------------编程问答-------------------- 关键这段话里 有的在括号内有的不在 比如abc{a|b|c|d}jugas{h|k|j}
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
大括号外的正常输出，括号内的随机输出，这样就比较麻烦了吧 --------------------编程问答-------------------- 这个自己可以改改4楼的代码……学习机会，自己不要放弃…… --------------------编程问答--------------------
嗯 就是脑子里好乱 不知道从哪下手 --------------------编程问答-------------------- 看来这个题目可以检验你是否适合做这样的工作。
补充：VB , 基础类
