قم بتخصيص الدالة متعددة التعريف/ابحث عن النتيجة N، ويمكن للأصدقاء المحتاجين الرجوع إليها. انسخ رمز الكود كما يلي:
وظيفة سبليتكس (strs1 كسلسلة، strs2 كسلسلة، n كعدد صحيح)
'وظيفة التجزئة المخصصة Splitx([سلسلة]، فاصل، الجزء n)
مجموعة DimST () كسلسلة
المجموعة ST = تقسيم (strs1، strs2)
إذا كان UBound(groupST) < n - 1 إذن
سبليتكس=0
آخر
سبليتكس = مجموعة ST(ن - 1)
نهاية إذا
وظيفة النهاية
'/-----------------------------------------
وظيفة minx (KSMC كسلسلة، lb كسلسلة، kmi كسلسلة، n كسلسلة)
'درجة المركز التاسع مينكس([اسم الامتحان]،[الفئة]،[الموضوع]،ن)
خافت يخدع ككائن
خافت RS ككائن
خافت stsql كسلسلة
خافت kmf كسلسلة
كمف = منتصف (كمي، 1، 1) والمجموعة
تعيين يخدع = Application.CurrentProject.Connection
تعيين RS = CreateObject(ADODB.Recordset)
STRSQL = حدد أعلى 1 وkmi وكنتيجة قياسية من قائمة النتائج
STRSQL = STRSQL + WHERE ((( & kmf & ) <= & n & ) و ((الفئة) = ' & lb & ' واسم الامتحان=' & KSMC & '))
STRSQL = STRSQL + ORDER BY & kmi
RS.Open STRSQL، يخدع، 3، 3
إذا RS.EOF ثم
مينكس = 0
آخر
مينكس = RS (النتيجة القياسية)
نهاية إذا
RS.إغلاق
تعيين RS = لا شيء
تعيين يخدع = لا شيء
وظيفة النهاية