Personalice la función por partes/encuentre la puntuación enésima, los amigos que la necesiten pueden consultarla. Copie el código de código de la siguiente manera:
Función splitx(strs1 como cadena, strs2 como cadena, n como entero)
'Función de segmentación personalizada splitx([cadena], separador, enésimo segmento)
Grupo tenueST() como cadena
grupoST = Dividir(cadenas1, cadenas2)
Si UBound(groupST) < n - 1 Entonces
dividirx=0
Demás
dividirx = grupoST(n - 1)
Terminar si
Función final
'/------------------------------------------
Función minx(KSMC como cadena, lb como cadena, kmi como cadena, n como cadena)
'Puntuación del enésimo lugar minx([nombre del examen],[categoría],[tema],n)
Dim con como objeto
Atenuar RS como objeto
Dim stsql como cadena
Dim kmf como cadena
kmf = Medio(kmi, 1, 1) y grupo
Establecer con = Aplicación.CurrentProject.Connection
Establecer RS = CrearObjeto(ADODB.Recordset)
STRSQL = SELECCIONE los 1 mejores y kmi y como puntuación estándar DE la lista de puntuaciones
STRSQL = STRSQL + WHERE ((( & kmf & ) <= & n & ) Y ((categoría) = ' & lb & ' y nombre del examen =' & KSMC & '))
STRSQL = STRSQL + ORDENAR POR & kmi
RS.Abrir STRSQL, estafa, 3, 3
Si RS.EOF Entonces
descarada = 0
Demás
minx = RS(puntuación estándar)
Terminar si
RS.Cerrar
Establecer RS = Nada
Establecer con=Nada
Función final