Preguntas sobre programación en VB
La razón para estar fuera de límites es que el bucle i y el bucle c se basan en el tamaño de b, y en el bucle, el tamaño de b cambia, por lo que está fuera de límites p>
Private Sub Form_Click ()
Imprimir
Imprimir "El número original es:"
Atenuar a() como entero, b() Como entero, c Como entero, i Como entero, j Como entero
ReDim a(20)
Para i = 1 a 20
a(i) = Int(Rnd * 20) p>
Imprimir a(i);
Siguiente i
Imprimir
Imprimir "El número actual es :"
c = 1
ReDim b(1)
b(1) = a(1)
Para i = 2 A UBound(a)
Para j = 1 A i - 1
Si a(i) = a(j) Entonces salga para
Siguiente j
Si j = i Entonces
c = c + 1
ReDim Preserve b(c)
b(c) = a (i)
Finalizar si
Siguiente i
Para i = 1 a UBound(b)
Imprimir b(i);
Siguiente i
Fin Sub