我在做一个基于ACCESS的AUTHORWARE随机出题系统，大家帮忙看下这段程序，因为加上这段命令后无法运行。

显示全部楼层 · 2013-7-5 10:45:18

--产生随机数
--首先清空数组sui中的内容
sui:=""
sui:=[]
--产生tizong个不同的随机数
--获得第一t个介于1和总题数tishu之间的随机数
sui[1]:=Random(1,tishu,1)
--获得后面的随机数的循环
i:=2
repeat while i<=tizong

flag:=0--设置一个标产生一个随机数，在依次与前面所产生的随机数进行比较

--如果有相同的就重新产生
repeat while flag=0

sui[1]:=Random(1,tishu,1)

flagl:=0

repeat with p:=1 to i-1

if sui[1]=sui[p] then flagl:=1

end repeat

--如果产生的随机数和前面都不同，更改标志值

if flagl=0 then flag:=1
end repeat
i:=i+1
end repeat
dxsui:=CopyList(sui)
--设置变量a，用来记录当前的题数
a:=1

千问 · 2013-7-5 10:45:18

将此计算图标设置为自定义函数，就可以运行了...