วิธีแก้ไขการเรียงลำดับฟอง ASP ที่ถูกต้อง? เพื่อนหลายคนมีปัญหากับปัญหานี้ดังนั้นลองมาดูการปรับเปลี่ยนการเรียงลำดับฟอง ASP ที่ถูกต้องตอนนี้ เพื่อนที่ยังไม่รู้โปรดดู
รหัสที่ฉันค้นหาทางออนไลน์เหมือนกับรหัสนี้
การจัดเรียงฟังก์ชั่น (ARY)
Dim Keepchecking, I, FirstValue, SecondValue
Keepchecking = true
ทำจนกว่าจะทำการตรวจสอบ = เท็จ
Keepchecking = FALSE
สำหรับ i = 0 ถึง Ubound (ary)
ถ้า i = ubound (ary) ออกจาก
ถ้า ary (i)> ary (i+1) แล้ว
FirstValue = ary (i)
secondValue = ary (i+1)
ary (i) = secondValue
ary (i+1) = FirstValue
Keepchecking = true
สิ้นสุดถ้า
ต่อไป
วง
sort = ary
ฟังก์ชันสิ้นสุด
มีข้อผิดพลาด - - - - -
เพียงแค่ทดสอบออก
s = "11,3,1"
s = sort (split (s, ","))
สำหรับ i = 0 ถึง Ubund (s)
Response.write S (I) & "<br>"
ต่อไป
ผลการพิมพ์คือ
1
11
3
ฟังก์ชั่นที่ถูกต้องคือ:
การจัดเรียงฟังก์ชั่น (ARY)
ck = true
ทำจนกระทั่ง CK = FALSE
ck = false
สำหรับ f = 0 ถึง ubound (ary) -1
ถ้า clng (ary (f))> clng (ary (f+1)) แล้ว
v1 = clng (ary (f))
v2 = clng (ary (f+1))
ary (f) = v2
ary (f+1) = v1
ck = true
สิ้นสุดถ้า
ต่อไป
วง
sort = ary
ฟังก์ชันสิ้นสุด
เพียงหนึ่ง clng ()
ข้างต้นเป็นวิธีที่ถูกต้องในการแก้ไขการเรียงลำดับฟอง ASP แต่สิ่งที่ตลกคือบางอาร์เรย์สามารถจัดเรียงได้อย่างถูกต้องด้วยฟังก์ชั่นการเรียงลำดับผิด