作业帮 > 综合 > 作业

算法设计:int rand()是一个能产生(0,65565)的随机数函数,怎么随机产生十个(1,300000)的不相等的

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/11/06 07:28:23
算法设计:int rand()是一个能产生(0,65565)的随机数函数,怎么随机产生十个(1,300000)的不相等的数
在单位格中写入 =int(rand()*300000+1)
这样就产生1 到 300000 的随机整数,随机很难保证不重出现,如果要不相等,就比较复杂了,得用到VBA,做一个循环,如果出现相同重新随机, 下面的代码是在第1列生成100个不重复的随机数的代码
在excel表格中选 工具-->宏-->VB编辑器-->插入模块-->粘贴下面的代码--->运行
Sub 生成100个不重复随机数()
For i = 1 To 100
Cells(i, 1).Select
cxsj:
Sheet1.Cells(i, 1).Value = Int(Rnd() * 30000 + 1)
If i > 1 Then
For j = 1 To i - 1
If Sheet1.Cells(i, 1).Value = Sheet1.Cells(j, 1).Value Then GoTo cxsj
Next
End If
Next
End Su