El lenguaje es simple. ¿Se pueden ordenar los números en el cuadro de edición de pequeños a grandes?

.Especificación de biblioteca de soporte

.Ensamblaje de ventana de ensamblaje 1

.Longitud de variable de ensamblaje, entero

.Variable de ensamblaje a , entero

Variable de ensamblaje b, entero

Decimal, entero

Número grande de variable de programa, entero

. , entero

Resultado de reemplazo de variable de ensamblado, tipo de texto

Número temporal de variable de ensamblado, entero

. p> p>

.Subroutine_Button1_Clicked

Editbox2.content = ""

a = 1

b = 2

Longitud = Obtener la longitud del texto (Editbox1.content)

Medio = Valor de retorno (Editbox1.content)

Cuenta el primer párrafo del bucle (longitud - 1,)

Llamar a subrutina (y algoritmo de comparación, , )

Cola de bucle de conteo ()

Algoritmo de comparación de subrutina

Número menor = valor (. Tome la parte media del texto (al texto (número del medio), 1, 1)))

Primer recuento de bucles (longitud - a,)

Número mayor = al valor. (al texto medio (número del medio), b, 1))

. Si es verdadero (número menor > número mayor)

número tentativo = número menor

número menor = número mayor

Número mayor = número tentativo

. Finalizar si es verdadero

b = b + 1

.Fin del bucle de conteo ()

Cuadro de edición 2. contenido = cuadro de edición 2. contenido + a texto ( número menor)

a = a + 1

.Si es verdadero (a = longitud)

Editbox2.content = Editbox2.content + a texto (número mayor )

.End if true

b = 2

Resultado de la sustitución = sustitución de subtexto (editbox1.content, a texto (número menor), "", , 1, verdadero)

Número del medio = valor (resultado de la sustitución)

'''''''''''''''' '''' '''''''''''''''''''''''''''''''''''' '''''''' '''''''''''''''''''''''''''''' '''''''''''''' ''

Yo lo probé, no hay problema. Me tomó una hora conseguir 10 puntos