Office中国论坛/Access中国论坛

标题: 随机问题,用rnd()会重复的问题 [打印本页]

作者: kunlun 时间: 2005-9-21 17:03
标题: 随机问题,用rnd()会重复的问题
随机问题

我有6个图片,分别命名为1.jpg 2.jpg...6.jpg

我想让它随机出现,请问有什么办法?我现在用的方法是定义6个变量,每个变量用rnd()随机出现

一个一位小于7的数字,然后通过app.path & "\" & 变量 & ".jpg"调用,但这种方法重复的概率很高,有没有更好的方法,请教各位

作者: 海狸先生 时间: 2005-9-21 17:14
一个网上的例子Dim n(1 To 370), i, j, q



   For i = 1 To 370

   n(i) = 0

   Next

   j = 0

   Randomize Timer

   While j < 10

   q = Int(Rnd(1) * 369 + 1)

   If n(q) = 0 Then

   Print q

   n(q) = 1

   j = j + 1

   End If

   Wend

作者: laixiaoj 时间: 2005-9-21 17:42
一个网上的例子Dim n(1 To 370), i, j, q



   For i = 1 To 370

   n(i) = 0

   Next

   j = 0

   Randomize Timer

   While j < 10

   q = Int(Rnd(1) * 369 + 1)

   If n(q) = 0 Then

   Print q

   n(q) = 1

   j = j + 1

   End If

   Wend

作者: kunlun 时间: 2005-9-21 17:56
呵呵.不会吧.这个例子这么有名呀,你们都发这个贴子给我呀.可是,,我还是不态明白哦.我去试一下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)