故城发电机维修:VB中产生几个不重复的随机数字，（尽量要简单点）

来源：百度文库编辑：神马品牌网时间：2024/05/14 02:23:26

Dim n(10) As Integer
Private Sub Form_Load()

For i = 0 To 10
n(i) = abc(i)
Next
MsgBox n(0) & "," & n(1) & "," & n(2) & "," & n(3) & "," & n(4) & "," & n(5) & "," & n(6) & "," & n(7) & "," & n(8) & "," & n(9) & "," & n(10) & ","
End Sub
Function abc(ByVal i As Integer) As Integer
Randomize
a = Int(Rnd() * 100)
For j = 0 To i - 1
If n(j) = a Then
a = abc(i)
End If
Next
abc = a
End Function

用随机数啊

Randomize Timer()

a = Rnd()

重复的随机数字

VB中产生几个不重复的随机数字，（尽量要简单点）怎么在C++中，随机产生几个数字，（不重复的） VB产生几个不同的随机数字。怎么做到？随机产生15个不重复的A~Z的大写字母,存放在字符数组中 asp中产生48到57之间的随机数字 9个数随机产生不重复的4个数的数是那些 1到33的数字，要把他排列成不重复的6位数字，会有几个？在vc++中什么函数具有随机产生数字的功能？如何在VC++中随机产生一个数字？ C++中如何随机会产生数字啊？