[VB6 ] 大小排序
我想要用inputbox讓user輸入十個數字，
然後讓電腦去排序這些數字。
由大到小將十個數字列出來
可是我寫出來的程式，很明顯是錯的~"~
請板上高手幫我解惑一下看是哪裡出了問題。
Private Sub Form_Load()
Dim x(1 To 10)
For i = 1 To 10 '告訴user輸入數值
x(i) = InputBox("請輸入第" & i & "個數字")
Next
For i = 1 To UBound(y)
For j = i + 1 To UBound(y)
If y(i) < y(j) Then '將較大的數值移到前面
m = y(i)
n = y(j)
y(i) = n
y(j) = m
End If
Next
Next
For i = 1 To 10 '將結果顯示在Label2
Label2.Caption = y(i)
Next
End Sub
謝謝~"~
--
﹒﹒˙ · ．
‥ ˙ ·
﹒﹒˙ · 人從來沒有完美的，只有盡力做到最好的。 nicky
￣￣￣￣￣￣﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉￣￣￣￣￣￣。˙、﹒
· ．﹒‧·．﹒
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.128.142.241
推
05/22 22:28, , 1F
05/22 22:28, 1F
推
05/23 00:10, , 2F
05/23 00:10, 2F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
