本人昨天兴起编了个模拟福利彩票的程序，其中有一个小问题，我查来查去函数、原理都对，可就是查不出在哪，请同行指教！
----------------
原理：在1——35个数字中随机抽机8个数字，顺序是一个抽完一个再抽一个，抽完一个后，应该在数字中删附除刚才抽取的数字，直到8个数字抽完，最后一个为特别号码。
------------
方法：
1）设一个线性表存放1—35个数字
NumberList=[1,2,3,4,5,6,7,8,9,...,35]
2）每抽取一个数字用决策图标，用时间来控制退出，其中用的语句是：(仅举第一个号码，其余类似）
number1:=Random(1,ListCount(NumberList),1)
3）在抽取完第一个号码后，改变线性表，以删除第一个号码：
--找出第1个号码所在的表的位置
index:=Findvalue(numberList, number1)
--在表中删除第1个号码代表的数字
DeleteAtIndex(NumberList, index)
这样得到的NumberList是一个去掉了第一个号码的线性表，然后重复这过程，直到抽完所有的号码。
------------------
错误信息：抽出的号码中，有时会有两个相同的号码，可我在调试信息中看到，每一次的抽取后，经过删除的操作，都删除了前次抽出的号码，又何来相同的号码呢？真是百思不得其解，望朋友们不惜赐教 ！
要源程序的朋友也可来信，顺便帮忙查找原因？！

换个角度考虑一下。
用随机函数在1到35之间抽取一个数。
用变量1读出这个数；再抽出一个数，用变量2读出。用“IF”语句，比较两个数，如果相同，那么，重新进行抽取。否则，完成下一次抽取，再进行比较......依次类推。
应该能完成，不过，实在很抱歉，我没有试过，只是提个建议。

如果不麻烦的话，你能否发一个到我e-mail信箱中，gudyuan@263.net
让我研究和学习一下？

呵呵！要是中了大奖，那就给我也发一个吧！

我同意古道猿的做法，我以前用VB就是这么做的，没问题，请xys
也给我发一份源程序，我研究一下，yanhuo00@yeah.net