الرمز الذي بحثته عبر الإنترنت هو نفسه هذا الرمز
وظائف (آري)
DimkeepChecking ، أنا ، أول ، القيمة الثانية
keepchecking = صحيح
dountilkeepChecking = خطأ
KeepCheCking = خطأ
fori = 0toubound (آري)
ifi = ubound (ary) therexitfor
ifary (i)> ary (i+1) ثم
FirstValue = ary (i)
SecondValue = ary (i+1)
ary (i) = SecondValue
ary (i+1) = firstvalue
keepchecking = صحيح
Endif
التالي
حلقة
فرز = آري
الوظيفية
هناك خطأ. . . . . .
فقط اختبرها
s = "11،3،1"
s = الفرز (الانقسام (s ، "،")))
fori = 0toubund (s)
الرد. writes (i) و "<br>"
التالي
نتيجة الطباعة
1
11
3
الوظيفة الصحيحة هي:
وظائف (آري)
CK = صحيح
dountilck = خطأ
CK = خطأ
forf = 0toubound (ary) -1
ifclng (ary (f))> clng (ary (f+1)) ثم
v1 = clng (ary (f))
v2 = clng (ary (f+1))
آري (و) = v2
ary (f+1) = v1
CK = صحيح
Endif
التالي
حلقة
فرز = آري
الوظيفية
واحد فقط clng ()
ولكن الأمر المضحك هو أنه يمكن ترتيب بعض المصفوفات بشكل صحيح باستخدام وظيفة الفرز الخاطئ.