Ingrese un número entero positivo desde el teclado y luego inserte el número en la secuencia existente en vb. La secuencia aún se ordenará en orden descendente después de la inserción.
Dim?n?As?Integer
n?=?InputBox("Ingrese un número para insertar")
Dim?a( 20),?temp,?x?As?Integer
Dim?b(21)?La columna original es "? &?vbCrLf
For?i?=?1? A ?20
Aleatorio()
a(i)? =?Int(Rnd()?*?90?+?10)
str? = ?str??"
Siguiente
str?=?str?&?vbCrLf?La matriz ordenada es "? &?vbCrLf
Para?i ?=?1?To?20
Para?j?=?1?To?
Si a(j) temp=a(j?+?1) a(j?+?1)=a(j) a(j)=temp Finalizar si Siguiente j Siguiente i ¿Para? b(i) =?a (i) str =?str??" Siguiente b(21) =?0 Si?n? <=?b(20) Entonces b(21) =?n ElseIf?n?>=?b(1) Entonces ¿Para? x?=?21?A?Paso-1 b(x)=b(x?-?1) Siguiente paso b(1 )=n Si no ¿Para?i?=?1?a?19 Si?n?<=?a(i)?Y? n?>?a(i?+?1)?Entonces ¿Para?x?=?21?A?i?+?2?Paso? Siguiente paso p> b(i?+?1) =?n ¿Salir?Para ¿Fin?Si Siguiente ¿Fin?Si str?=?str?&?vbCrLf?La matriz insertada es "? &?vbCrLf For?i?=?1?To?21 str?=?str?&?b(i)? &?" Siguiente TextBox6.Text?