请帮助，如何产生十个不重复的随机数？？？ - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 请帮助，如何产生十个不重复的随机数？？？

标题：请帮助，如何产生十个不重复的随机数？？？

只看楼主

yjyjipc

等　级：新手上路
帖　子：4
专家分：0
注　册：2007-8-17

楼主

问题点数：0 回复次数：13

请帮助，如何产生十个不重复的随机数？？？

请教高手们如果实现用抽奖按钮实现按十次出现十次不同的数字 1~10，或显示在10个Label上。
代码怎么实现？？？谢谢

搜索更多相关主题的帖子: 随机数　数字　 Label　按钮　

2007-08-21 10:46

随风逐流

来　自：passerby
等　级：版主
威　望：8
帖　子：4054
专家分：271
注　册：2007-6-13

第 2 楼

得分:0

这个问题,很早以前就解决过

[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]

2007-08-21 10:47

随风逐流

来　自：passerby
等　级：版主
威　望：8
帖　子：4054
专家分：271
注　册：2007-6-13

第 3 楼

得分:0

http://bbs.bc-cn.net/viewthread.php?tid=152311&star=at#

[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]

2007-08-21 10:48

yjyjipc

等　级：新手上路
帖　子：4
专家分：0
注　册：2007-8-17

第 4 楼

得分:0

谢谢热心的楼上们

2007-08-21 11:58

multiple1902

等　级：贵宾
威　望：42
帖　子：4881
专家分：671
注　册：2007-2-9

第 5 楼

得分:0

谢谢热心的楼上“们”……

2007-08-21 12:02

multiple1902

等　级：贵宾
威　望：42
帖　子：4881
专家分：671
注　册：2007-2-9

第 6 楼

得分:0

优化一下

'context: sub or function

Dim tmps As String
tmps="|"
Randomize 'initialize the random generator
Dim i As Integer,tmpI As Integer
Do ' 原 For i=1 to 10
Tmpi=Int((100 - 1 + 1) * Rnd + 1)
If Instr(1,tmps,"|" & Tmpi & "|")=0 Then
tmps=tmps & tmpi & "|"
End If
Loop Until UBound(split(tmps,"|"))=12 '12=10+2 ' 原 Next
Dim result() As Integer
Result=split(tmps,"|")

'当然也可以用空格代替"|"

[此贴子已经被作者于2007-8-21 18:19:35编辑过]

2007-08-21 12:07

缘吇弹