1,216
社区成员
发帖
与我相关
我的任务
分享vb+oracle的摇奖程序。。选随机数
大家好：
这里我遇到了一个问题。
在一个oracle表中有一个字段（唯一的。应该叫主要的字段吧。我说不清它的专业术语但却是这个意思。。可能叫主键（见笑了））
这个主键是一个7位数字。
现在用VB把这个字段中所有的数据做一个随机数。。（就是一个摇奖程序，把他们按无序排列，然后抓取若干个数据作为中奖者。）
请各位帮忙说一下这个VB的函数。。因为我对程序接触不够。意思可能不清。
还请大家原谅。尽量帮忙。谢谢啦。。。。
这里我遇到了一个问题。
在一个oracle表中有一个字段（唯一的。应该叫主要的字段吧。我说不清它的专业术语但却是这个意思。。可能叫主键（见笑了））
这个主键是一个7位数字。
现在用VB把这个字段中所有的数据做一个随机数。。（就是一个摇奖程序，把他们按无序排列，然后抓取若干个数据作为中奖者。）
请各位帮忙说一下这个VB的函数。。因为我对程序接触不够。意思可能不清。
还请大家原谅。尽量帮忙。谢谢啦。。。。
...全文
请发表友善的回复…
发表回复
northwolves 2004-04-10
- 打赏
- 举报
先把该字段所有记录加入集合TEMP中。
DIM I AS LONG,K AS LONG
FOR K=1 TO 10 '取10个
RANDOMIZE
I=int(rnd*temp.count)+1 '随机取出一个，
DEBUG.PRINT TEMP(I)
TEMP.REMOVE I
NEXT
DIM I AS LONG,K AS LONG
FOR K=1 TO 10 '取10个
RANDOMIZE
I=int(rnd*temp.count)+1 '随机取出一个，
DEBUG.PRINT TEMP(I)
TEMP.REMOVE I
NEXT
ukyoxh 2004-04-10
- 打赏
- 举报
MyValue = Int(Rnd()*10000000)
duanye 2004-04-10
- 打赏
- 举报
哦。。对不起。可能是我没说对。。
我说的7位数字是这样的。。从0000000到9999999这些数字。。
请在回复。谢谢。。。
感激。
我说的7位数字是这样的。。从0000000到9999999这些数字。。
请在回复。谢谢。。。
感激。
射天狼 2004-04-10
- 打赏
- 举报
MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值
