脈衝光

12.鄉之祈 (修改) 作詞：陳旭光 作曲：黃仁清 [ 晨風喚醒黎明重現曙光　是多麼溫暖地方 清風掀起田園綠波浪　鳳凰木　迎風揚

11.溫暖 (修改) 作詞：林煌坤 作曲：李嘉東 當你得到了　溫暖　是否想到有人正在受風寒 你是否常常　問自己　有沒有替別人著想

體驗媽媽懷孕的樣子讓幼兒體驗媽媽懷孕的樣子,我們背著小Baby(書包)吃飯.玩溜滑梯.創作作品.刷牙.洗臉.睡覺喔!幼兒體驗完後,分享媽媽懷孕時好辛苦,做很多事情時都不方便,而且還要保護小寶貝不受傷,所以幼兒說要幫媽媽做家事,感恩媽媽的照顧..

冰棒棍.黏土拼貼畫第一堂課:將冰棒棍貼在紙上,組合成房子,我們的房子有一層樓.兩層樓.第二堂課:將黏土做好造型,貼在冰棒棍的房子上裝飾,完成圖畫作品..

攻頂 最年輕的金控專業經理人 林克孝非凡新聞e周刊(62)攻頂 最年輕的金控專業經理人 林克孝||~乙510q-6璘~[2007-06-24出版]~[dd982849] 作者：出版社：非凡出版出版日期：2007-06-24書籍條碼：97718194110042.露天拍賣 > 書刊、文具 > 雜誌 > 其他雜誌  .

悲歌 神豬遭灌食虐殺 「人類太殘忍」 vs 廢掉神豬比賽? 飼主.廟方不認同http://tw.news.yahoo.com/article/url/d/a/110811/143/2woa6.html悲歌 神豬遭灌食虐殺 「人類太殘忍」 更新日期:2011/08/11 06:30.

心情?記~旅遊分享~前幾天!我ㄑ台中....ㄉ"谷關"."新社"."古坑"........等等ㄉ!!我ㄑ那ㄦ~當然是ㄑ玩呀!!ㄑ谷關~我們有"泡湯".....等等ㄉ!!另外我們還ㄑㄌ"新社古堡"."卓蘭"."鯉魚潭水庫"......等等ㄉ!!.

預購新a專輯 大家喜歡ㄉ~飛輪海~&~周杰倫~在9月開始發行新片團體:飛輪海專輯名稱:飛輪海最新專輯(8/30開始預購)發行公司/日期: 華研國際 2006/9/15即日起開始預購 9/12截止 9/15發行 預購贈品為寫真冊 與CD同步贈與藝人:周杰倫專輯名稱:依然范特西CD+DVD(8/23開始預購)發行公司/日期:阿爾發(亞律) 2006/9/08即日起開始預購 -9/5止 發行日9/8 預購贈品:周杰倫新專輯與11月的蕭邦海報各一張(數量有限,限網路預購) 以先下單為確定額 謝謝.

花蓮美兆廚房精緻小館美兆廚房在花蓮可說是名氣超大的餐廳，而且聽說是常常客滿的狀態，還好我們這次二個月前就預先訂位，不然…到現場真的是客滿，一個空位都沒有開胃小菜→魯海帶~美兆三拼→由醉雞、香腸、臘腸所組成，醉雞調的超入味，其他二個普普~三寶排骨→三寶指白菜、苦瓜、菜頭，讓人感動的一道菜，滷的超級透，好吃又回甘，用三寶滷排骨讓排骨更加鮮甜， 所有食材都能入口即化鐵板花枝→花枝的鮮加上洋蔥的甜，對味好下飯炸軟蟹→普普芋頭魚肉褒清蒸魚→魚鮮肉質彈牙，超美味霜降牛肉→超下飯料理鳳梨蝦球→蝦球真材實料，超大塊又彈牙，可惜麵衣炸的不夠酥酸菜白肉鍋→超美味酸白菜，配上微酸的湯頭，很開胃美兆銀絲捲醬肉卦包→外皮酥脆色澤呈現均勻的金黃色油炸銀絲卷切段後，中間夾著香菜和醬燒肉，很特別的料理 五更腸旺→超下飯的料理以上一桌4400元，平均每人400元電話：03-8321058.

花蓮友樂町日式火烤二吃位於前中華路福建街上上個月新開的大型日式燒烤店友樂町是經過民宿老闆推薦而來用餐~店家主打299吃到飽(服務費另加一成)，而且是火鍋、燒烤二吃，當然一定要來試試囉!火鍋湯底(三選一)，我們選擇麻辣+原味湯~五更腸旺及主食區~餐廳空間，坪數超大，約可容納上百人~食材區~食材區~章魚燒~壽司及鮭魚飯~壽司~即食區~飲料區及冰品區~烤海鮮中~青菜區~食材區~肉品區~海鮮區~海鮮區~沙拉、水果區~地址：花蓮縣花蓮市福建街471號.

全排列與迴文題目來源http://tw.group.knowledge.yahoo.com/students-1/message_board/view?tid=11題目 A迴文數目輸入檔: pa.in /輸出檔: pa.out所謂的「迴文」，就是指一個字串從頭開始唸跟倒著唸結果完全一樣。例如abccaaccba就是一個迴文字。而所謂的「全排列」，則是指一個字串裡的每個字母在經過順序的調換以後所能得到的各種排列。例如abcd的全排列就是：abcd abdc acbd acdb adbc adcbbacd badc bcad bcda bdac bdcacabd cadb cbad cbda cdab cdbadabc dacb dbac dbca dcab dcba請寫出一個程式，對於輸入的字串，算出在這個字串的全排列裡有多少個是迴文。例如aabb的全排列為：aabb abab abba baab baba bbaa其中abba和baab是迴文，因此aabb的全排列裡有2個迴文。輸入檔說明：輸入檔第一行是一個整數 N (1 ? N ? 50) 代表題目的數目。接下來N行輸入，每一行會有一個長度不超過40的字串，這個字串會完全由小寫的英文字母構成。﹝字串的長度最少是1﹞輸出檔說明：對每一行字串，請在每行輸出這個字串的全排列裡有幾個迴文﹝如果全排列裡一個迴文都沒有的話，就輸出0﹞。輸出的數字不會超過integer的大小。範例輸入：3aabbaabc範例輸出:210題目好長, 感覺比答案還長由於題目沒有要求列舉, 算出組合數就好了首先, 判斷傳入字串能否形成迴文迴文的定義是, 字串對半切開, 左右是對稱的所以決定了左邊, 右邊也就不能改變了又, 因為左右相同, 所以只有正中間的文字能是奇數個, 其他都是偶數個ex: abc,a,cba ; a:3個,b:2個,c:2個或是全部都是偶數個ex: abc,cba ; a:2個,b:2個,c:2個所以只需要統計字串中每個字母的數量檢查是否有兩個以上的字母有奇數個, 有的話就不能形成迴文若能形成迴文, 接下來就輪到算組合數剛剛說過迴文是左右對稱, 能決定排序的只有半邊, 另一半會隨著這半邊決定後跟著固定ex:abc,a,cba , 我們只需知道左半邊"abc"的全排列數量, 就知道迴文數量了之前已經統計過字串中每個字母的數量, 要算全排列數量的公式(不盡相異排列) = (字串長)! / (字母1數量)! (字母2數量)! (字母3數量)!...(字母n數量)! 因為只剩半邊, 全排列迴文數量 = (字串長\2)! / (字母1數量\2)! (字母2數量\2)! (字母3數量\2)!...(字母n數量\2)! ("\"為整除運算子, !是階層的意思 n! = n*(n-1)*(n-2)*...*3*2*1ex: abb,a,bba： a:3個 b:4個全排列迴文數量 = (7\2)! / (3\2)! (4\2)! = 3! / 1!2! = 3只有3種 列一下給大家看abb,a,bbabab,a,babbba,a,abb至此解說完畢, 以下為實作, 使用Collection做為統計字母用, 可能比較難懂, 可以自己改寫成用迴圈窮舉統計, 反正小寫英文字母也才26個  1: Option Explicit 2:   3: Private Sub Command1_Click() 4: Print "abccaccba"; PMTT("abccaccba") 5: Print "aabb"; PMTT("aabb") 6: Print "a"; PMTT("a") 7: Print "abc"; PMTT("abc") 8: Print "dfaeredafa"; PMTT("dfaeredafa") 9: Print "abccaaccba"; PMTT("abccaaccba") 10: End Sub 11:   12: Function PMTT(ByVal s As String) 13: Dim i As Long 14: Dim word As String 15: Dim col_word As New Collection 16: Dim col_index As New Collection 17: Dim wordcount() As Integer 18: Dim index As Integer 19: Dim str_Len As Long 20: Dim f_c As Double 21: Dim have_odd As Boolean 22: 23: str_Len = Len(s) 24: 25: If str_Len = 0 Then 26: PMTT = 0: Exit Function 27: ElseIf str_Len = 1 Then 28: PMTT = 1: Exit Function 29: End If 30: 31: For i = 1 To str_Len 32: word = Mid(s, i, 1) 33: On Error Resume Next 34: index = col_index.Item(word) 35: If Err.Number = 5 Then 36: Err.Clear 37: ReDim Preserve wordcount(col_word.Count) 38: wordcount(col_word.Count) = 1 39: col_word.ADD word, word 40: col_index.ADD col_index.Count, word 41: ElseIf Err.Number = 0 Then 42: wordcount(index) = wordcount(index) + 1 43: End If 44: Next 45: 46: f_c = factorial(Int(str_Len / 2)) 47: have_odd = False 48: For i = 1 To col_word.Count 49: If wordcount(col_index(i)) And 1 Then 50: If have_odd = True Then PMTT = 0: Exit Function 51: have_odd = True 52: End If 53: f_c = f_c / factorial(Int(wordcount(col_index(i)) / 2)) 54: Next 55: PMTT = f_c 56: End Function 57:   58: Function factorial(n As Integer) 59: Dim i As Integer 60: factorial = 1 61: For i = 2 To n 62: factorial = factorial * i 63: Next 64: End Function.

How many 0's? (.NET).NET的使用者可以使用以下程式碼取代原先的HMOs_zero函數使用Mod與"\"整除運算子代替字串處裡，在VB6中容易溢位但在.NET中測試效率較字串處理高上不少  1: Private Function HMOs_zero(ByVal N As Double) As Double 2: If N < 0 Then 3: HMOs_zero = 0 4: Exit Function 5: End If 6:   7: Dim b As Byte 8: Dim max_level As Integer 9: Dim count As Double 10: Dim i As Integer 11: Dim str_N As String 12:   13: str_N = CStr(N) 14: count = 1 15: max_level = Strings.Len(CStr(N)) 16:   17: '以整除"\"與餘數Mod運算子代替字串處裡, VB6中使用很容易溢位 18: For i = max_level To 2 Step -1 19: b = N \ 10 ^ (i - 1) 20: N = N Mod 10 ^ (i - 1) 21: count = count + CDbl(b) * (i - 1) * 10 ^ (i - 2) 22: Next 23:   24: '以下為誤差修正 25: Dim leave_N As Double 26: Dim tmp_N As Double 27:   28: leave_N = N Mod 10 29: N = CDbl(str_N) \ 10 30: i = 1 31: Do While N 32: tmp_N = N Mod 10 33: If tmp_N = 0 Then 34: count = count - (10 ^ i - 1 - leave_N) 35: End If 36: leave_N = leave_N + tmp_N * 10 ^ i 37: N = N \ 10 38: i = i + 1 39: Loop 40:   41: HMOs_zero = count 42: End Function.