推 chentsungmin:將由大排到小結果,再切一半,將前半部再反轉一次@@ 02/16 14:42
Protected Sub Page_Load(ByVal sender As Object, ByVal e As
System.EventArgs)
Dim X() As Integer = {60, 100, 80, 30, 90, 70, 20, 50, 10, 40}
Dim I, J, K, Temp As Integer
For I = 0 To 8
For J = I + 1 To 9
If X(I) > X(J) Then
Temp = X(I)
X(I) = X(J)
X(J) = Temp
End If
Next
Response.Write("第" & I + 1 & "回合比較:")
For K = 0 To 9
Response.Write(X(K) & " ")
Next
Response.Write("<BR>")
Next
Response.Write("<BR>")
End Sub
該如何讓資料由大至中再由中至小排列想了好久想不出來呀
目前只曉得把X(I) > X(J)改成小於可以弄成
10,9,8,7,6,5,4,3,2,1
那要如何才能變成
6,7,8,9,10,5,4,3,2,1
請會得人給個提示吧
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.174.213.233