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

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

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

谢谢热心的楼上们

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

优化一下

'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编辑过]

LS也挺热心的嘛

我KAO,LS的又在水帖,快帮我解决问题

可不可以用集合,不断把新的数字添加进去,直到10个数字满

不好意思，看不懂...也试不出来..