十个随机数的生成

Dim a(1 To 10) As Integer  '定义一个十个数的a(1 to 10)

Private Sub Command1_Click()

Dim p As String   '定义一个字符串用来盛放随机的十个数

  Randomize '生成随机数种子

  

  p = ""

  For i = 1 To 10

  Do

  x = Int(Rnd * 90) + 10 '随机数的范围是10到99包括10和99

  

  yes = 0   '定义了一个yes,若yes=0则留下这个随机生成的数，否则就舍去

  

  For j = 1 To i - 1 'j是1到i-1的一个数

  

  If x = a(j) Then yes = 1 '如果x=a(j),那么这个随机数就舍去，继续进行这个循环

  

  Exit For

  Next

  Loop While yes = 1

  a(i) = x

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

  Next

  Print p

  

End Sub