第1个回答 2011-09-27
Dim n,i,j
n = 1
i = ""
j=""
While n <= 60 Randomize
a = Int(60 * Rnd + 1)
If Instr(i,Chr(a)) = 0 Then
i = i & Chr(a)
j=j & a &","
n=n+1
End If
Wend
MessageBox j
以上代码是随机生成不重复的60内数字，然后每个数字你自己对应一种你的粘贴内容即可！
或者用下面这个....
//功能：随机抽取预设的说话内容且不重复的说出来
dim i,s,a,n,text(100)
//初始化随机数发生器
Randomize
//这只是个范例，在实际应用中最好将要说的话用外部文件保存，将读到的字符串再赋值到数组就方便多了
text(0)="第一句话"
text(1)="第二句话"
text(2)="第三句话"
text(3)="第四句话"
text(4)="第五句话"
text(5)="第六句话"
i=1:s=0
//UBound(text):得到数组最大有效下标
For UBound(text)
//如果数组变量没内容，则跳出循环
If text(i)=""
Goto 开始说话
EndIf
//将可用数组下标组成一个字符串
s=s&i
i=i+1
EndFor
Rem 开始说话
//取下标字符串长度
n=Len(s)
//如果长度为0（即说完所有的话了）结束脚本
If n=0
Goto over
EndIf
//在下标字符串中随机抽取一个字符
a=Mid(s,int((n)*Rnd)+1,1)
//移除下标字符串中抽取到的字符（将说过的话T掉）
s=Replace(s,a,"")
SayExpression (text(a)&vbCr)
Rem over
EndScript
第3个回答 2016-01-09
每一个人都经历过挫折，而有的人在挫折的面前不低头，坚强的挺了过来；有的人在挫折面前做牛做马，永远也见不到明天的太阳……中国古代有一个文学家说过：失败是成功之母。只有面对挫折永不低头、永不放弃的人，才能取得最后的胜利。有些人把挫折看作动力；有的人把挫折看作负担；有些人把挫折看作魔鬼；有些人居然妄想自己的一生都不会有挫折……在生活中处处都有挫折，处处都被挫折笼罩，如果你想摆脱挫折，就一定要面对挫折，面对了挫折才能创建出新的未来。就拿我来说吧，以前我认为挫折是一种很害怕的一件东西，后来慢慢地我明白了挫折其实是一种财富，挫折是给我力量的源泉，挫折是打开我知识的大门，是让我成长中不可缺少的一部分。到现在我才明白挫折是人类生命的泉源，一个人如果一生中没有挫折，这个人就如同植物人，只会呆呆的站着，在原地踏步，没有前进的动力。我从挫折中悟出了：挫折是人生不可缺少的，挫折是无法取代的。我还悟出人生经历的挫折越多，成就越大。