我现在用 random () 来调用我的试题庫里的东东，但是去发现在所调的题有重复现像，不知道怎样写能避免这一点呢？
我用的是
wordlist:=ReadExtFile(FileLocation^"\\dicru\\wordsound--1\\wordlist.txt")
x:=Random(2,2,1) --共六道题
y:=Random(0,2,1)
z:=Random(0,2,1)
datanumber:=x+y+z
datalist:=GetLine(wordlist,datanumber)
word:=GetLine(datalist,2,2,Tab)
这里面有什么地方不对吗？
请各位大侠帮助!

这个方法你参考一下：

1、在一个计算图标中输入以下内容

-- 设置范围
lower:= 1 -- 最小数
upper:= 200   -- 最大数

randomList := [ ]    --随机数列表
tempList := [ ]  -- 所有可能的数列表
counter := 0

--  将所有可能数赋值给templist[ ]
repeat with i := lower to upper
    counter := counter + 1
    tempList[counter] := i
end repeat
 
-- 将tempList[ ]内容随机地赋值给randomList[ ]
repeat with i := 1 to counter
    elementPos := Random( 1, ListCount( tempList ), 1)
    elementValue := tempList[elementPos]
    randomList[i] := elementValue
    DeleteAtIndex(tempList, elementPos)
end repeat

2、在显示图标中输入"{randomList}"可以随机显示lower到upper间的数字