史萊姆論壇 - 查看單個文章

2002-12-12, 11:54 AM

試試這個吧!
For i = 0 To w-1
if c(i+1)="" then exit for
If c(i) < c(i+1) Then
swap n(i),n(i+1)
swap c(i),c(i+1)
swap e(i),e(i+1)
i=0
End If
Next i

2002-12-12, 11:54 AM	#5 (permalink)
kpopo 榮譽勳章勳章總數 UID - 在線等級: 文章: n/a 精華:	試試這個吧! For i = 0 To w-1 if c(i+1)="" then exit for If c(i) < c(i+1) Then swap n(i),n(i+1) swap c(i),c(i+1) swap e(i),e(i+1) i=0 End If Next i
kpopo 榮譽勳章勳章總數 UID - 在線等級: 文章: n/a 精華:
	送花文章: 0, 收花文章: 0 篇, 收花: 0 次