VB一维数组

来源：百度知道 编辑：UC知道 时间：2024/05/12 15:16:34
A(1 TO n) (1 to 40 的 随机数)
取A的前m个不重复的数，组成
B(I)
随机整数
m=10
解释清楚一点，谢谢

Dim A(1 To n), B(m)
Dim i, rn As Integer 'rn为随机数
'初始化 1~n
For i = 1 To n
A(i) = 0
Next i
'生成不相同随机数
Randomize
For i = 0 To m-1
begin:
rn = Int((n - 1 + 1) * Rnd + 1)
If A(rn) = 0 Then
A(rn) = 1
Else
GoTo begin
End If
B(i) = rn
Next i

很简单的一个不重复方法，希望对你有所帮助