急求关于抽奖程序的问题！
有一foxpro的自由表，是手机库，我想做一个表单，作为抽奖程序，一次抽出5个中奖手机号码！需要如何做，我还没有头绪，各位指点一下，或者给我例子参考,
给全部分数！！！
问题点数：100、回复次数：5Top
1 楼apple_8180（十豆三）回复于 2005-06-02 17:04:26 得分 100
*利用RAND函数取随机数，如：
CLEAR
USE 你的表
gnLower = 1
gnUpper = RECCOUNT()
FOR I=1 TO 5
lnRecno=INT((gnUpper - gnLower + 1) * RAND( ) + gnLower)
GO lnRecno
?手机号码
ENDFOR
*这样每运行一次，将抽出你的表中的随机的5个手机号码Top
2 楼ajoy（ajoy）回复于 2005-06-02 17:08:03 得分 0
我的表单上有5个文本框，一点开始，要让数据库中的手机号码在5个文本框中滚动，可以吗？Top
3 楼ajoy（ajoy）回复于 2005-06-02 17:11:29 得分 0
好象需要用到计时器空间，让手机号码在文本框内快速滚动！Top
4 楼apple_8180（十豆三）回复于 2005-06-02 17:31:07 得分 0
1、用1个计时器（Timer），
计时器的ENABLED设为.F.，
INTERVAL设为100（即0.1秒刷新一次，这个根据实际情况来调整）
计时器的Timer事件：
SELECT 你的表名 &&此表要先打开
gnLower = 1
gnUpper = RECCOUNT()
FOR I=1 TO 5
lnRecno=INT((gnUpper - gnLower + 1) * RAND( ) + gnLower)
GO lnRecno
lcString='Thisform.text'+ALLTRIM(STR(I))+'.Value'
&LcString=你的手机号码字段名
ENDFOR
2、开始抽奖按钮的Click事件：
ThisForm.Timer1.Enabled=.T.
3、结束抽奖按钮的Click事件：
ThisForm.Timer1.Enabled=.F.Top
5 楼LuckyNT（LuckyNT）回复于 2005-06-02 17:38:01 得分 0
我提点建议,呵呵
RAND( )是取0.01到0.99的随即数
gnUpper - gnLower + 1) * RAND( ) + gnLower
有可能一次抽出来的是一个2位数```还需要改一下Top
