《化学平衡的移动-》课件8

網頁開發技術

函數和陣列國立台灣師範大學工業教育研究所戴建耘教授龍清榮主任吳美華組長主要參考書目教你用VisualBasicScriptNow（碁峰）

吳國柱譯者戴建耘&龍智工作群校閱1網頁開發技術

函數和陣列國立台灣師範大學1本章重點字串函數陣列亂數函數時間、數字函數2本章重點字串函數2有用的字串函數String(個數,字元)：重覆用某個字元Lcase(字串)：使字串的字元變成小寫Ucase(字串)：使字串的字元變成大寫X=StrComp(A,B)：比較兩字串A<B –1A=B 0A>B 1A或B其中一個為空字串 Null3有用的字串函數String(個數,字元)：重覆用某個字元3去除空白的函數Trim:去除空白Ltrim：去除右邊空白Rtrim：去除右邊空白4去除空白的函數Trim:去除空白4字串分析如果一個一個字元分析使用者輸入的字串：For每個字元每個字元要做的處理Next5字串分析如果一個一個字元分析使用者輸入的字串：5分析字串函數

Len,Mid,Left和RightLen：算出字串長度Mid(字串,啟始[,長度])第一個參數是你要分析的字串第二個參數是要取出的字元位置第三個參數是設定取出字元個數(雙位元的中文字也代表一個字元),Left(字串,啟始)：從字串前面開始Right(字串,啟始)：從字串尾端開始算起6分析字串函數

Len,Mid,Left和RightLen：算Replace函數語法：Replace(Expression,Find,Replacewith[,Start[,Count[,Compare]]])範例：Test="Javaisthebestprogramminglanguage"Test=Replace(Test,"Java","VBScript")結果：Test="VBScriptisthebestprogramminglanguage"被取代原字串尋找取代字串更換字串7Replace函數語法：被取代原字串尋找取代字串更換字串7用InStr和InStrRev函數來尋找子字串語法：Instr([Start,]OriginalString,Substring[,Compare])Start設定從原字串的第幾個字元開始搜尋，如果省略此參數表示從頭開始尋找OriginalString表被搜尋的原字串Substrin表欲查詢的子字串Compare參數設定搜尋字串是否有大小寫之分InStrRev函數自字尾開始尋找子字串8用InStr和InStrRev函數來尋找子字串語法：8陣列DIM陣列名稱(索引值)清單方塊內的項目都是儲存在一個特別的清單屬性中例如：lstBox1.List(0)表示陣列第一個項， lstBox1.List(1)是第二項，以此類推。ListCount屬性是表示此清單方塊有幾項注意：清單陣列是從0開始算起 最後一項是lstBox1.List(ListCount-1)9陣列DIM陣列名稱(索引值)9動態與固定陣列固定大小的陣列：DIMA(10)要改變大小需用REDIM指令，但資料會全部刪除。動態陣列，可改變大小：DIMA()Ubound函數：傳回陣列的陣列的大小括號內不放入最大索引值10動態與固定陣列固定大小的陣列：DIMA(10)括號內不放入多重陣列範例：九九乘法表DimMultiplicationTable(9,9)ForI=0To9ForJ=0To9MultiplicationTable(I,J)=(I+1)*(J+1) NextNext這種陣列是十行十列，有100個空間。(注意：陣列的開始是0)11多重陣列範例：九九乘法表11儲存變數到陣列中DimAA=Array(1,2,3,4)1放到陣列A(0)，把2放到陣列A(1)DimATable,MultiplicationTable(9,9)ATable=MultiplicationTable12儲存變數到陣列中DimA12清單方塊放置在陣列雖清單方塊list屬性是陣列，但現在不能直接加入到陣列中，需用迴圈一個個傳送。範例：DimIReDimArrayC(lstBox1.ListCount-1)ForI=0TolstBox1.ListCount-1

ArrayC(I)=lstBox.List(I)Next現在不能用ArrayC=lstBox.List這是陣列這是清單方塊13清單方塊放置在陣列雖清單方塊list屬性是陣列，但現在不能直字串分離函數SplitSplit函數用空白做為分隔，把字串分離開範例：DimTest,A,ITest="BertrandArthurWilliamRussell"A=Split(Test)ForI=0ToUBound(A)MsgBoxA(I)Next注意：A並非宣告成陣列最後A可成為陣列，並得到分離字串14字串分離函數SplitSplit函數用空白做為分隔，把字串分Filter函數Filter函數把字串中符合條件的字元過濾到新的字串，或是符合條件的不傳回到新字串中。語法：Filter(InputStrings,Value[,Include[,Compare]])範例：找出字串陣列沒有alt.FilteredNewsgroups=Filter(NewsgroupNames,"alt.",False)15Filter函數Filter函數把字串中符合條件的字元過濾到格式化輸出FormatNumber：設定傳回幾位數字FormatPercent：把小數點轉成百分比FormatCurrency：傳回字串前選擇加入 何種符號FormatDateTime：轉換成日期的格式16格式化輸出FormatNumber：設定傳回幾位數字16Rnd函數與Randomize敘述Rnd函數產生了10個0到1之間的亂數Randomize讓Rnd函數產生不同的秩序亂數範例： ForI=1To10Document.WriteRndDocument.Write"<BR>"Next17Rnd函數與Randomize敘述Rnd函數產生了10個0到模擬骰子公式：Fix((上限-下限+1)*Rnd)+下限例如骰子是1到6公式是fix(6*Rnd)+118模擬骰子公式：18進階Rnd函數和Randomize敘述19進階Rnd函數和Randomize敘述19Int和Fix函數Int函數的功能和Fix很相似。Int函數給予此數最小的整數。Int如果是負數就數到下一個負數例如Int(-3.5)等於-4，Int(-4.1)等於-5，以此類推。Fix和Int函數在正數時是一樣，負數就不同，Int函數會使帶有小數的負數加上-1而大於此整數。20Int和Fix函數Int函數的功能和Fix很相似。20各種Date和Time函數(一)函數 描述Date 傳回現在日期DateAdd 將指定日期加一段時間DateDiff 傳回兩個日期的差距DatePart 傳回日期指定DateSerial 傳回日期參數的組合DateValue 把字串轉換成日期型態Day 傳回數字轉成日期型態Hour 傳回數字轉成的小時Minute 傳回數字轉成的分鐘21各種Date和Time函數(一)函數 描述21各種Date和Time函數(二)函數 描述Month 傳回數字轉成的月份MonthName 傳回月份的全名Now 傳回現在的日期和時間Second 傳回數字轉成的秒鐘Time 傳回現在的時間TimeSerial 傳回日期參數組合資料Weekday 傳回指定是一週第幾天WeekdayName傳回指定日期星期名稱Year 傳回數字轉成年代22各種Date和Time函數(二)函數 描述22時間函數的實作倒數千禧年txtDaysToGo文字方塊cmdCalculate按鈕主要副程式SubcmdCalculate_ClicktxtDaysToGo=#1/1/2000#-DateEndSub23時間函數的實作倒數千禧年23Round(四捨五入)遇上偶數，而且其小數點後一位是5則捨去。

Round(4.5)=4

遇上奇數，而且其小數點後一位是5則進位。

Round(5.5)=6第二位參數決定保留第幾位小數點。

Round(4.567,2)=4.57

24Round(四捨五入)遇上偶數，而且其小數點後一位是5則捨去Sgn(判斷正負數)如果是正數傳回1，負數傳回-1，0則傳回0。範例：只要A不等於B就會執行For-Next迴圈，而不管A大於B或小於B。ForI=AToBStepSgn(B-A)25Sgn(判斷正負數)如果是正數傳回1，負數傳回-1，0則傳回AbsAbs(取絕對值)常用在找兩數間的距離範例：測試實際數值是否在經驗數值容許的範圍內，例如下面的程式是TrueAnswer和EmpiricalValue相差在±.001之內時迴圈停止執行。DoUntilAbs(TrueAnswer-EmpiricalValue)<.00126AbsAbs(取絕對值)常用在找兩數間的距離26其他函數Sqr平方根函數是取括號內數值的平方根，但是參數不能是負數。Exp函數是取自然對數e的x次方，其運算結果是雙精密度的數值。Log函數是取自然對數，一般都是以10