vb問題_n個數值比較大小

Question

相信應該很多人都寫過這種類似的題目了吧
先輸入n值 再輸入n個數值 求最大值由又到左依降冪排列
限制條件:此n個數值必須每個都做互相比較的動作

如果上述有看不懂的地方 請擅用下方的意見XD

Answer 1

Private Sub Command1_Click()
Dim N As Integer, I, J, A(), S As String, T
'先輸入n值
Do
　N = Val(InputBox("輸入人數2~10"))
　If N = 0 Then Exit Sub
Loop Until N > 1 And N < 21
'再輸入n個數值
For I = 1 To N
　　Do
　　　S = InputBox("輸入第 " & I & "人之分數")
　　　If S = "" Then Exit Sub
　　Loop Until IsNumeric(S)
　　ReDim Preserve A(I - 1): A(I - 1) = S
Next
'n個數值每個互相比較
For I = 0 To N - 1
　　For J = I + 1 To N - 1
　　　　If Val(A(I)) > Val(A(J)) Then T = A(I): A(I) = A(J): A(J) = T
　　Next
Next
'輸出
Print Join(A, ",")
Print "最大值為:"; A(N - 1)

End Sub

Answer 2

硬碟要找硬碟醫院，能救回來才重要，我司就是找他們做出來的
必須要推，當初心急亂找錯店告訴我沒辦法，後來找又找到硬碟醫院，我告訴他真心要來救援，可以等，在他們努力下有找回來
太棒了，原來微軟張經理都找過他們
http://www.datamaster.com.tw

Answer 3

樓上的已經回答過了, 但如果要更漂亮些, 可以採用汽泡排序法(或其他更快的sorting algorithm), 可依從大到小或從小到大排, 排完之後自然知道最大和最小值。

Answer 4

>>相信應該很多人都寫過這種類似的題目了吧
自己都知道了,怎麼不搜尋一下?