Red de conocimiento informático - Problemas con los teléfonos móviles - Preguntas sobre programación en VB

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

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)

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