cells(4,2)~cells(4,7) For j = 1 To 5 m = Cells(4, 2) p = 2

For i = 2 To 7 - j

If m < Cells(4, i + 1) Then m = Cells(4, i + 1) p = i + 1

End If Next s = Cells(4, 7 - j + 1) Cells(4, 7 - j + 1) = Cells(4, p) Cells(4, p) = s

Next Key = Cells(1, 3) l = 2 r = 7 Do While l <= r m = Int((l + r) / 2) If Key > Cells(4, m) Then l = m + 1 Else

If Key < Cells(4, m) Then r = m - 1 Else MsgBox ("在" & m & "找到" & Key) Exit Do End If

End If Loop If l > r Then MsgBox ("沒找到" & Key) End If

好亂....

= =我有超

問題是看不懂-.-

真的!!!!

.....用想故事的

..........

超亂

一條一條慢慢跑就看懂了~

我家沒程式-.-

阿良我友分享我今天中午說的"山里老鼠"XD

我有聽了

有夠北七= = 從頭到尾都只有3句-.-

就是山李老鼠超無聊-.-

盧學瑞的新歌-遇見自己比較好

阿良掰埃~~

kevin84156: 阿良要罩我喔!!!

程設幾點考?

等我學會再說

9:30

我家的exal cells=()括號中間打,竟然錯誤-.-

原來是我打錯 哈哈

不用=