作者kclsixbig30 (...)
看板Visual_Basic
标题[VB6 ] 关於取乱数不重复
时间Thu Jun 26 17:30:40 2008
我是一个刚接触的ＶＢ的新手，最近学到取乱数
下面是我写的程式码
Private Sub Command1_Click()
For i = 1 To 7
Text1 = Int(Rnd * 46) + 1
Text2 = Int(Rnd * 46) + 1
Text3 = Int(Rnd * 46) + 1
Text4 = Int(Rnd * 46) + 1
Text5 = Int(Rnd * 46) + 1
Text6 = Int(Rnd * 46) + 1
Text7 = Int(Rnd * 46) + 1
Next i
End Sub
如何取到不重复的阿
顺便在问一下，我有２个表单，现在想把form2的资料，在form1中使用command显示出来
谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.132.59.49
1F：推 harehsi:我到的烂方法是把取到的数先和已取到的数比较 06/26 18:14
2F：→ harehsi:要是没有重覆再存到阵列里 06/26 18:15
3F：→ harehsi:因为你只要７个,应该不会太浪费吧? 06/26 18:16
4F：推 albb0920:拿一个阵列存候选，抽索引值 06/26 18:50
5F：推 jokkson:用HashTable 06/26 22:09