如何用vb编个 每次产生的随机数与之前产生过的都不同?求代码

来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/20 00:02:32
如何用vb编个每次产生的随机数与之前产生过的都不同?求代码如何用vb编个每次产生的随机数与之前产生过的都不同?求代码如何用vb编个每次产生的随机数与之前产生过的都不同?求代码Private 

如何用vb编个 每次产生的随机数与之前产生过的都不同?求代码
如何用vb编个 每次产生的随机数与之前产生过的都不同?求代码

如何用vb编个 每次产生的随机数与之前产生过的都不同?求代码
Private Sub Command1_Click()
Text1.Text = ""
Dim A(1 To 20)
For I = 1 To 20
    Randomize: Randomize
    A(I) = Int(Rnd * 90 + 10)
Next I
'下面对数组排序
For I = 1 To 19
    For J = 1 To 20 - I
        If A(J) > A(J + 1) Then
            XX = A(J)
            A(J) = A(J + 1)
            A(J + 1) = XX
        End If
    Next J
Next I
'下面判断是否有重复数据,有后面数据+1
For I = 1 To 19
    For J = 1 To 20 - I
        If A(J) = A(J + 1) Then
            A(J + 1) = A(J + 1) + 1
        End If
    Next J
Next I
For I = 1 To 20
    Text1.Text = Text1.Text & A(I) & Space(4)
Next I
End Sub

如何用vb编个 每次产生的随机数与之前产生过的都不同?求代码 如何用VB产生一个每次都不一样的随机数啊,用rnd的话只能产生一个固定的数字 如何用VB求30个100-3000的随机数 如何用VB产生2~99之间的1次1个随机数,可以重复的,另外求如何用VB产生1~n之间的1次20个随机数用VB产生1~n之间的1次20个随机数,这个不能重复... 如何用matlab编一个随机数啊,例如编1000+—300,产生五十个随机数, 如何用Fortran生成与实践相关的随机数?Fortran95.call random_seed()在循环外边用的.但是还是产生的是伪随机数,每次都一样. 如何用C语言产生一个六位数的随机数?请问如何用C语言编一个程序算出随机的一个六位数随机数啊? 如何用C++产生随机数 如何用c产生随机数 VB编程产生100个[10,99]的随机数 请问如何用excel产生6组5个3-20的不重复的随机数 如何用VB制作随机数程序用VB制作一个 0-9十个数中随机出8个不重复的数字,例如：01235689, 如何用c#产生1000个0到1之间不同的 随机数 如何用c#产生1000个0到1之间不同的 随机数 如何用vB程序随机产生30个不同的字母? VB中如何在2-200中产生10个随机数,且如何计算其中素数的和?求代码 VB产生500以内的随机数 如何用rand函数产生一个随机数