怎么用VB编写点生成按钮产生1000个8位不重复的随机数呢?

来源：学生作业帮编辑：灵鹊做题网作业帮分类：综合作业时间：2024/06/17 23:55:53

我想点生成显示1000个验证下8位随机数是否有重复,该要怎么改写代码呢?

for i=0 to 1000
a=int(rnd*90000000)+10000000
list1.additem a
next'生成1000个随机数
for i=0 to 1000
aa:
a=int(rnd*90000000)+10000000
for m=0 to list1.listcount-1
if list1.list(m)=a then
goto aa
end if
next m
list1.additem a
next'生成1000个无重复的随机数字
再问：能改写成点了生成按钮在TextBox里列出随机数吗？貌似你写的跟我的不一样，
再答：可以，不过那样不太方便编程检查是否有重复数字
再问：这样啊，你的可以改写成点击生成按钮再提出一个8位随机数吗？我是用vb6.0软件。
再答：你把代码放到
Private Sub Command1_Click()
和
End Sub之间就好了
还要在窗体上添加列表框
再问：我只要点生成按钮只要生成一个随机数就OK 了，咋改？还有我想把listbox里生成的内容复制出来---我是vb小白
再答： Private Sub Command1_Click()
randomize'重新生成随机数表
a=int(rnd*90000000)+10000000‘获得一个随机数

list1.additem a'输出到list

End Sub

复制代码
for i=0 to list1.listcount-1
text1.text=text1.text + list1.list(i) & chr(13)'复制到文本框中
next

怎么用VB编写点生成按钮产生1000个8位不重复的随机数呢? VB 编写程序,生成10个无重复数（即互不相等）的两位随机数 VB中有两个按钮,第一个按钮产生两个随机数,第二个按钮时计算这两个随机数的和,怎么把第一个按钮产生的 VB生成不重复的随机数用vb怎样生成10个不重复的（1到10）随机数? 怎么生成6位不重复的随机数用vb怎么生成3位随机数用vb编写一段程序,产生4位随机数,但是这四位数各不相同,如何编写,麻烦详细点,我知道是用rnd（）函数急求vb代码单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数 VB 生成四位正整数随机数,公式没错却会产生三位数是为什么呢 java随机生成6位数,要求每次产生的随机数与已生成的随机数不重复,小弟觉得用random产生的数可能重复. 怎么生成8的位随机数,并且在15内不会重复?