La clasificación ASP no admite directamente las funciones del sistema, y la clasificación numérica, la clasificación de caracteres y la clasificación pinyin que a menudo necesitamos usar son inseparables de la clasificación. Copie el código de código de la siguiente manera:
'Clasificar
Función Ordenar1(ario)
Dim KeepChecking,I,Primer valor,Segundo valor
Seguir comprobando = VERDADERO
Hacer hasta que KeepChecking = FALSO
Seguir comprobando = FALSO
Para I = 0 a UBound(ary)
Si I = UBound(ary) entonces salga por
Si ary(I) > ary(I+1) Entonces
PrimerValor = ario(I)
SegundoValor = ario(I+1)
ario(I) = SegundoValor
ario(I+1) = PrimerValor
Seguir comprobando = VERDADERO
Terminar si
Próximo
Bucle
Ordenar1=ario
Función final
llegada tenue
arr = Matriz(a,c,b)
arr = Ordenar1(arr)
Para i=0 a ubound(arr)
Respuesta.Escribir(arr(i)&<br />)
Próximo