pc23th 電腦學習

難度：easy 地圖：高等精靈 守備：下路 ========== 賣掉水藥 買200    企鵝 買500    回血戒 買500    回血戒 ======= 買300    企鵝升鳥 =====猛禽鎧甲===== 買500    回血戒 買150    藤蔓護肩 買150    藤蔓護肩 買750    猛禽鎧甲 買750    猛禽鎧甲 =====死霸裝===== 買775        鐵劍 買1650      武士刀 買550       女神的祝福 買1500     合成書 =====死霸裝===== 買775      鐵劍 買1650    武士刀 買550      女神的祝福 買1500    合成書 =====猛禽鎧甲===== 買150      藤蔓護肩 買750      猛禽鎧甲 =====死霸裝===== 買775      鐵劍 買1650    武士刀 買550      女神的祝福 買1500    合成書 ========= 全合死霸 留最後一格，看錢多少再做決定 =========技能========= 技能以第三技為主，第一技為輔

            UBTmp = UBound(arr_Tmp, 1)              LBTmp = LBound(arr_Tmp, 1)             For j = LBTmp To UBTmp - 1                 k1 = Application.Large(arr_Tmp, j)                 k2 = Application.Large(arr_Tmp, j + 1)                 If k1 <> k2 Then                     str_k = str_k & k2 & ","    '值寫成字串                 End If             Next j         '再將字串轉換成陣列，成為不重覆資料             str_k = Application.Large(arr_Tmp, 1) & "," & str_k             len_Str = Len(str_k)             ReStr = Left(str_k, len_Str - 1)             arrStr = Split(ReStr, ",")

   function 使用after  '初始值         Dim intStar_Rng As Integer, Str_ShtBase As String,All_Ball as integer         All_Ball =39         intStar_Rng = 6         Str_ShtBase = "基本分佈圖"         strBall = Fn1_取得球號字串(All_Ball)     '變數設定         Dim ShtBaseImg As Object         Set ShtBaseImg = Sheets(Str_ShtBase)     '         With ShtBaseImg             lLastRow = .Range("A" & Cells.Rows.Count).End(xlUp).Row             Set Rng = .Cells(7, 3).Resize(lLastRow - intStar_Rng, All_Ball)             'Debug.Print Rng.Columns(1).Address             For j = 1 To All_Ball                 Result = Application.CountA(Rng.Columns(j))                 Dim arrTab                 ReDim arrTab(1 To Result)                 For i = 1 To Result                     If i = 1 Then                         Set S_Rng = Rng.Cells(1, 1)                     Else                         Set S_Rng = tmpRng                     End If                     Set tmpRng = Rng.Find(what:=strB

<h2 style="font-family:yui-tmp;">Samsung Galaxy S II 褲袋自焚, 險傷命根子</h2> 發表時間：2011/12/06 分享 <dl class="noimg"><dd> 上星期先有新聞報導過 iPhone 4在澳航飛機的新聞，沒料到接下來就爆出Samsung Galaxy S II 的同類新聞。 一名外國網友於討論區貼相留言，指出朋友剛新買兩週的Galaxy S II於褲袋內自焚消息。據網友Silly22表示，險被炸傷命根子的朋友起初聽到褲袋傳來聲音，然後於腿間感到燃燒的熱力，朋友從褲袋取出所有物品，赫然見到待機中的Galaxy S Ii正在冒煙 透過相片可以見到電池和SIM卡位置燒至焦黑 </dd></dl> <dl class="cimg"><dt> </dt><dd> </dd></dl> <dl class="cimg"><dt> </dt><dd> </dd></dl> <dl class="cimg"><dt> </dt><dd> </dd></dl> <dl class="cimg"><dt> </dt