作者jerick (杰.J)
看板Visual_Basic
标题Re: [.NET] 想请问一个小问题
时间Sat Apr 5 06:58:10 2008
※ 引述《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