조각별 기능을 사용자 정의하고 N번째 점수를 찾으면 도움이 필요한 친구들이 참조할 수 있습니다. 다음과 같이 코드 코드를 복사합니다.
함수 Splitx(strs1을 문자열로, strs2를 문자열로, n을 정수로)
'사용자 정의 분할 함수 Splitx([string], 구분 기호, n번째 세그먼트)
Dim groupST()를 문자열로
groupST = 분할(strs1, strs2)
UBound(groupST) < n - 1이면
스플릿x=0
또 다른
스플릿x = 그룹ST(n - 1)
종료 조건
기능 종료
'/-------------------------------
함수 minx(KSMC As String, lb As String, kmi As String, n As String)
'N위 점수 minx([시험명],[범주],[과목],n)
객체로서의 딤콘
희미한 RS를 객체로
희미한 stsql As String
문자열로 희미한 kmf
kmf = 중간(kmi, 1, 1) 및 그룹
설정 = Application.CurrentProject.Connection
RS 설정 = CreateObject(ADODB.Recordset)
STRSQL = 점수 목록에서 상위 1위 & kmi & 표준 점수로 선택
STRSQL = STRSQL + WHERE ((( & kmf & ) <= & n & ) And ((범주) = ' & lb & ' 및 시험 이름=' & KSMC & '))
STRSQL = STRSQL + ORDER BY & kmi
RS.Open STRSQL, con, 3, 3
RS.EOF이면
최소값 = 0
또 다른
minx = RS(표준점수)
종료 조건
RS.닫기
RS = 없음으로 설정
con=아무것도 설정하지 않음
기능 종료