看板 Visual_Basic 關於我們 聯絡資訊
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
chentsungmin:將由大排到小結果,再切一半,將前半部再反轉一次@@ 02/16 14:42