推 adku:怕x混淆 不過好像是多此一舉="= 05/22 22:22
推 adku:而且我如果加上Dim m, n As Integer 05/22 22:25
→ adku:他會說沒有定義這個SUB或FUNCTION 我不懂="= 05/22 22:26
※ 引述《adku (╮(╯_╰)╭)》之銘言：
: Private Sub Form_Load()
: Dim x(1 To 10)
宣告時最好加上型別，如 Double 或 Integer
: For i = 1 To 10 '告訴user輸入數值
: x(i) = InputBox("請輸入第" & i & "個數字")
: Next
: For i = 1 To UBound(y)
^ 怎麼變成 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
交換可以不用這樣寫，另外，你的 m,n 也都沒宣告喔。
m = y(i)
y(i) = y(j)
y(j) = m
這樣就夠了。
: End If
: Next
: Next
: For i = 1 To 10 '將結果顯示在Label2
: Label2.Caption = y(i)
: Next
這樣寫會使 Label2 的內容一直閃動
建議使用字串串接
Label2.Caption = Label2.Caption + str(y(i)) + " "
: End Sub
: 謝謝~"~
--
鬼壓床怎麼辦
騎上去啊
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.217.134