随机生成十个整数

Dim a(1 To 10) As Integer

Private Sub Command1_Click()

 Form_Load

End Sub

 

Private Sub Form_Load()

  Dimp As String  'p用来显示随机生成的10个数

 Randomize

     p = ""

  Fori = 1 To 10 '生成10个随机整数

       Do

  x =Int(Rnd * 90) + 10 '存放中间生成的一个随机整数，范围是10到99之间的整数

  yes= 0  '用来判断生成的x要还是不要，0表示要，1表示不要

  Forj = 1 To i - 1 '对你生成的第一个随机整数进行检测，检测结果存放Yes中

  Ifx = a(j) Then yes = 1: Exit For

Next

   Loop While yes = 1

      a(i) = x

      p = p & Str(a(i)) & ","

Next

 Label1.Caption = LTrim(Left(p, Len(p) - 1)) '用Label显示最后结果

End Sub