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

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/01 08:39:39

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 Su

如何用VB产生一个每次都不一样的随机数啊,用rnd的话只能产生一个固定的数字求vb随机数代码我又厚着脸皮来了,继续求随机数代码,求一段vb代码,三个text文本框,其中前两个为随机数产生的范围,如如何用VB产生2~99之间的1次1个随机数,可以重复的,另外求如何用VB产生1~n之间的1次20个随机数急求vb代码单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数 VB中如何在2-200中产生10个随机数,且如何计算其中素数的和?求代码如何用matlab编一个随机数啊,例如编1000+—300,产生五十个随机数, 如何通过vb 产生1-33的随机数和1-16的随机数,在1个文本中显示出来,并且从小到大排列,求代码~ 如何用vB程序随机产生30个不同的字母? 用VB在1-100中产生10个随机整数,按从小到大的顺序排列如题..求代码 vb中产生随机数的到底是哪个公式?我怎么两个都看到过? VB编程产生100个[10,99]的随机数用VB编一个程序,随机产生10个100以内的不同的偶数

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

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