Preguntas sobre la programación en VB

---------------

En el módulo estándar

'* * *****************************

'Generar un conjunto de números aleatorios que son diferentes entre sí

' p>

' n números

' Inferior Inferior

' Superior Superior

' NotSameRnd devuelve una matriz larga

' **********************************

Función pública NotSameRnd (ByVal n Mientras, ByVal Inferior Mientras, ByVal Superior Mientras Largo) Mientras()

Dim tmp() Mientras

Si Superior - Inferior n - 1 Entonces; MsgBox "Rango demasiado pequeño": Salir de la función

ReDim tmp( n - 1)

Aleatorizar

Para i = LBound(tmp) A UBound(tmp)

tmp(i) = Int((Superior - Inferior 1) * Rnd)

Hacer hasta (j = i) o (i = LBound (tmp))

Para j = LBound (tmp) A i - 1

Si tmp(j) = tmp(i) Entonces

tmp(i) = Int((Superior - Inferior 1) * Rnd Inferior)