※ 引述《a2764231 (今天得月亮好大)》之銘言：
: 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
: 請會得人給個提示吧
不知道這是不是你要的..
Dim X() As Integer = {60, 100, 80, 30, 90, 70, 20, 50, 10, 40}
Dim X2(X.Length / 2 - 1) As Integer
Array.Sort(X)
Array.Reverse(X)
Array.Copy(X, 0, X2, 0, CInt(X.Length / 2))
Array.Reverse(X1)
Array.Copy(X2, 0, X, 0, CInt(X.Length / 2))
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.160.177.84