vb 怎样随机数数组

Question

vb 怎样随机数数组

Answer 1

首先介绍一下随机数函数
函数名称Randomize 用法Randomize（x） 说明：初始化随机数发生器
函数名称rnd 用法rnd（x） 返回[0，1）之间的随机数
其中x可以省略
用rnd产生的数字是小数，必须另外设定格式，比如要0-99之间的随机整数，即
dim s as integer
s=rnd()*100
就行了
如果需要多次，大量产生随机数（对随机数要求高一些）就在rnd（）语句前面一行插入randomize（x）
如果要对一个一维数组（比如上界为5）赋值：
.........
dim shuzu(5) as integer, i as short
for i=0 to 5
a(i)=rnd()
next
.........
如果需要多维数组利用循环的嵌套就可以了

Answer 2

好整 先刷新随即数组 然后再获取一个随即数组
Randomize '就是初始化随机数
rnd() '这个就是返回的随机数 你随便找个变量一赋值就哦了
要想返回整数有个公式 Int(Rnd() * (M-N+1)) +N 用来返回一个m n之间的整数
要是不使用Randomize 我保你半年以上时间返回的随即数都是一个数
rnd()函数可以加参数 默认是时间为基数
你要生成数组可以循环语句分别给已知数组复制

Answer 3

Dim a(1 To 10) As Integer
Private Sub Command1_Click()
For i = 1 To 10
a(i) = Int(Rnd * 100)
Print a(i)
Next i

End Sub

随即产生一个[m,n]的正数公式int（rnd*（n-m+1）+m）
祝你学习愉快~~

Answer 4

楼主你好
Randomize'初始化，设置随机种子。
让你每次的随机数都不一样
Dim a(1 To 10) As Integer
Private Sub Command1_Click()
For i = 1 To 10
a(i) = Int(Rnd * 100)'让每次循环的那次i为下标,那么a(i)等于这个随机数。循环10次,也就是给分10次给数组每一个元素赋值
Print a(i)
Next i

End Sub