推 fumizuki:你陣列明明是x 排序和輸出怎麼會是y 05/22 22:28
推 ytlty:for i=1 to Ubound(x)-1 05/23 00:10
我想要用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