Re: [VB6 ] 大小排序
※ 引述《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
推
05/22 22:22, , 1F
05/22 22:22, 1F
推
05/22 22:25, , 2F
05/22 22:25, 2F
→
05/22 22:26, , 3F
05/22 22:26, 3F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
