求N个1-M之间的顺序随机数(vb 或 asp通用)

Function getRnd(i As Integer) As Integer '取1-i之间的随机数一个
  Randomize
  getRnd = Int(Rnd() * i + 1)
End Function

Function getAllRnd(Counter As Integer, jishu As Integer) As Integer()'取Counter个1-jishu之间的随机数
  If (Counter > jishu) Then
    MsgBox "数字个数不能大于基数"
    Exit Function
  End If
  ReDim arr(Counter) As Integer
  i = 0
  Do While i < Counter
    arr(i + 1) = getRnd(jishu)
    found = False
    For x = 1 To i
      If arr(x) = arr(i + 1) Then
        found = True
        Exit For
      End If
    Next
    If Not found Then
      i = i + 1
    End If
  Loop
  
  getAllRnd = arr
End Function

Sub OrderNumber(arr) '从小到大排序
  For i = 1 To UBound(arr)
    For j = i + 1 To UBound(arr)
      If arr(i) > arr(j) Then
        x = arr(i)
        arr(i) = arr(j)
        arr(j) = x
      End If
    Next
  Next
End Sub

Private Sub Command1_Click()
  arr = getAllRnd(5, 10) '取5个1-10之间的随机数
  OrderNumber arr '排序
  For i = 1 To UBound(arr)
    Print arr(i)
  Next
End Sub