作者a2764231 (今天得月亮好大)
看板Visual_Basic
标题[.NET] 想请问一个小问题
时间Sat Feb 16 11:02:15 2008
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
1F：推 chentsungmin:将由大排到小结果，再切一半，将前半部再反转一次@@ 02/16 14:42