En este grupo En todos

Grupo de Iniciate en Visual Basic 6



Como hago para que el resultado de esta función no me devuelva una cadena de texto

Miguel
Costa Rica, Costa Rica
Escrito por Miguel Garcia
el 10/01/2019

Buen día,

Como hago para que el resultado de esta función no me devuelva una cadena de texto sino mas bien un listado de numeros en la columna y rango indicados?


Function AleatoriosUnicos(Inferior As Integer, Superior As Integer, Cantidad As Integer) As String


Dim iArr As Variant

Dim i As Integer

Dim r As Integer

Dim temp As Integer


Application. Volatile


ReDim iArr(Inferior To Superior)

For i = Inferior To Superior

IArr(i) = i

Next i


For i = Superior To Inferior + 1 Step -1

R = Int(Rnd() * (i - Inferior + 1)) + Inferior

Temp = iArr(r)

IArr(r) = iArr(i)

IArr(i) = temp

Next i


For i = Inferior To Inferior + Cantidad - 1

AleatoriosUnicos = AleatoriosUnicos & " " & iArr(i)

Next i


AleatoriosUnicos = Trim(AleatoriosUnicos)

End Function