Microsoft Word - chA.doc

Transcription

1 VB 常用類別與函式 APPENDIX A 一. ArrayList 類別 在.NET Framework 另外提供一個 ArrayList 類別, 讓你可以建立不定長度的陣列, 由於此種陣列的資料型別為 Object, 因此在陣列中的陣列元素允許存放不同型別的資料 ArrayList 類別是包含在 System.Collections 的命名空間中, 所以, 要先在程式的最開頭撰寫如下敘述引用 System.Collections 命名空間, 這樣才可以使用較簡潔的物件名稱來建立 ArrayList 物件類別 Imports System.Collections 使用上面敘述引用 System.Collections 命名空間後, 接著可以使用下列語法來建立 ArrayList 物件 : Dim 陣列名稱 As New ArrayList() 下面介紹 ArrayList 類別常用屬性與方法 成員名稱 Count 屬性 Item 屬性 Add 方法 Insert 方法 Remove 方法 Clear 方法 說明取得 ArrayList 中陣列元素的總數目 設定或取得由索引 (Index) 所指的陣列元素的內容 將物件加入到 ArrayList 的最後 將物件插入到 ArrayList 所指定陣列索引的位置 由 ArrayList 移除第一個符合指定物件的陣列元素 清除 ArrayList 中所有的陣列元素

2 Visual Basic 程式設計經典 CopyTo 方法 IndexOf 方法 Sort 方法 Reverse 方法 BinarySerach 方法 將 ArrayList 中全部或部分陣列元素複製到另一個一維陣列中 傳回 ArrayList 中第一個符合指定物件的索引值 若找不到, 會傳回一個負值 將 ArrayList 中所有元素以遞增方式排序 將 ArrayList 中所有元素反轉 若對 ArrayList 先做 Sort 再做 Reverse 相當於對 ArrayList 做降冪排序 使用二分搜尋法由 ArrayList 找尋所指定的物件, 若有找到傳回該物件的索引 ; 若沒找到傳回一個負值 使用此方法之前, 必須先將 ArrayList 做遞增排序 二. Char 字元類別 在.NET Framework 的 System.Char 對 Char 資料型別 ( 即 Char 類別 ) 提供下列成員, 以方便您對字元作各種處理 : 成員名稱 說明 語法 :Char.Equals(objectA,objectB) 功能 : 若物件 A 與物件 B 相等則傳回 True, 否則傳回 False Equals 範例 :Dim result As Boolean Dim char1 As Char = "a" Dim char2 As Char = "c" result=char.equals(char1,char2) ' 傳回 False Console.WriteLine(result.ToString()) ' 顯示 False 語法 :Char.GetNumericValue(MyChar) 功能 : 指定字元是否為數字, 若是傳回該數字, 否則傳回 -1 GetNumericValue 範例 :Dim MyChar As Char = "9" Console.WriteLine(Char.GetNumericValue(MyChar)) ' 顯示 9 Console.WriteLine(Char.GetNumericValue("6")) ' 顯示 6 Console.WriteLine(Char.GetNumericValue("k")) ' 顯示 -1 語法 :Char.IsControl(s, index) IsControl 功能 : 判斷指定字串的指定位置之字元是否為控制字元 範例 :Dim s As String = "lung" A-2

3 APPENDIX A VB 常用類別與函式 Dim result2 As Boolean = Char.IsControl(s,0) Console.WriteLine(result2) ' 顯示 False 語法 :Char.IsDigit(s, index) IsDigit 功能 : 判斷指定字串的指定位置之字元是否為十進位數 範例 :Dim s As String = "a1c3" Dim result2 As Boolean = Char.IsDigit(s,1) ' 檢查 "1" 字元 Console.WriteLine(result2) ' 顯示 True 語法 :Char.IsLetter(s, index) 功能 : 判斷指定字串的指定位置之字元是否為字母字元 IsLetter 範例 :Dim s As String = "a1c3" Dim result3 As Boolean = Char.IsLetter(s,2) ' 檢查 "c" 字元 Console.WriteLine(result3) ' 顯示 True 語法 :Char.IsLetterOrDigit(s, index) 功能 : 判斷指定字串的指定位置之字元是否為字母或數字字元 IsLetterOrDigit 範例 :Dim s As String = "a1c3" Dim result3 As Boolean=Char.IsLetter(s,2) ' 檢查 "c" 字元 Console.WriteLine(result3) ' 顯示 True 語法 :Char.IsLower(s, index) 功能 : 判斷指定字串的指定位置之字元是否為字母或數字字元 IsLower 範例 :Dim s As String = "A1c3" Dim result3 As Boolean = Char.IsLower(s,0) ' 檢查 "A" 字元 Console.WriteLine(result3) ' 顯示 False 語法 :Char.IsNumber(s, index) IsNumber 功能 : 判斷指定字串的指定位置之字元是否為十進或十六進制數字字元 範例 :Dim s As String ="a1c3" Dim result3 As Boolean = Char.IsNumber(s,3) ' 檢查 "3" 字元 Console.WriteLine(result3) ' 顯示 True 語法 : Char.IsPunctuation(s, index) IsPunctuation 功能 : 判斷指定字串的指定位置之字元是否為標點符號字元 範例 :Dim s As String ="a1,c3" A-3

4 Visual Basic 程式設計經典 Dim result3 As Boolean=Char.IsPunctuation(s,2) ' 檢查 "," 字元 Console.WriteLine(result3) ' 顯示 True 語法 :Char.IsSeparator(s, index) IsSeparator 功能 : 判斷指定字串的指定位置之字元是否為分隔符號字元, 如空白鍵即是分隔符號 範例 :Dim s As String="Good Day" Dim result3 As Boolean=Char.IsSeparator(s,4) ' 檢查 " " 字元 Console.WriteLine(result3) ' 顯示 True 語法 :Char.IsSymbol(s, index) 功能 : 判斷指定字串的指定位置之字元是否為符號字元 IsSymbol 範例 :Dim s As String = "Good+Day!" Dim result3 As Boolean = Char.IsSymbol(s,4) ' 檢查 "+" 字元 Console.WriteLine(result3) ' 顯示 True 語法 :Char.IsUpper(s, index) 功能 : 判斷指定字串的指定位置之字元是否為大寫字元 IsUpper 範例 :Dim s As String ="Good+Day!" Dim result3 As Boolean=Char.IsUpper(s,5) ' 檢查 "D" 字元 Console.WriteLine(result3) ' 顯示 True 語法 :Char.IsWhiteSpace(s, index) 功能 : 判斷指定字串的指定位置之字元是否為空白字元 IsWhiteSpace 範例 :Dim s As String ="Good Day!" Dim result3 As Boolean = Char.IsWhiteSpace(s,4) ' 檢查 " " 字元 Console.WriteLine(result3) ' 顯示 True 語法 :DataType.MaxValue MaxValue MinValue 功能 : 取得該資料型別的最大值 範例 :Console.WriteLine(Integer.MaxValue) ' 2,147,483,647 Console.WriteLine(AscW(Char.MaxValue)) ' 65,535 Console.WriteLine(Single.MaxValue) ' E+38 語法 :DataType.MinValue 功能 : 取得該資料型別的最小值 A-4

5 APPENDIX A VB 常用類別與函式 範例 :Console.WriteLine(Integer.MinValue) '-2,147,483,648 Console.WriteLine(AscW(Char.MinValue)) ' 0 Console.WriteLine(Single.MinValue) ' E+38 語法 :Char.Parse(s) Parse 功能 : 將指定的字串轉換成它對等的 Unicode 字元 範例 :Console.WriteLine(Char.Parse("A")) ' "A" 語法 :Char.ToLower(c) ToLower 功能 : 將 UniCode 字元值轉換成它的對等小寫字元 範例 :Console.WriteLine(Char.ToLower("A")) ' "a" Dim ch As Char = "B" Console.WriteLine(Char.ToLower(ch)) ' "b" 語法 :Char.ToUpper(c) 功能 : 將 UniCode 字元值轉換成它的對等大寫字元 ToUpper 範例 :Console.WriteLine(Char.ToUpper("a")) ' "A" Dim ch As Char = "b" Console.WriteLine(char.ToUpper(ch)) ' "B" 語法 :Char.ToString(c) ToString 功能 : 將 UniCode 字元值轉換成它的對等的字串 範例 :Dim c As Char="B" Console.WriteLine(Char.ToString(c)) ' "B" Console.WriteLine(c.ToString()) ' "B" 三. String 字串類別 VB 可使用.NET Framework 所提供 System.String 基底類別來對字串做各種處理 下表各範例假設都已對整數變數 n, 字串變數 str1 str2 str3 和 str4 做過宣告 : 成員名稱 Length 屬性 說明語法 :n=str1.length 功能 : 傳回 str1 字串的長度 範例 :str1="vb.net 上市 " n=str1.length ' n 值為 8 A-5

6 Visual Basic 程式設計經典 語法 :str1=n.tostring() ToString 方法 功能 : 將數值轉成字串 範例 :n=1234 str1=n.tostring() ' str1 = "1234" 語法 :n=string.compare(str1,str2) Compare 方法 功能 :str1 字串和 str2 字串作比較, 若 : str1>str2 傳回 1 str1=str2 傳回 0 str1<str2 傳回 -1 範例 :str1="visual Basic" str2 ="C#.NET" n=string.compare(str1,str2) ' n 值為 1 語法 :n=str1.compareto(str2) CompareTo 方法 功能 :str1 字串和 str2 字串作比較, 若 : str1>str2 傳回 1 str1=str2 傳回 0 str1<str2 傳回 -1 範例 :str1 ="Visual Basic.NET" str2 = "C#.NET" n = str1.compareto(str2) ' n =1 語法 :str1.toupper() / str1.tolower() ToUpper 方法 ToLower 方法 功能 : 將 str1 字串變數中所有字母以大 / 小寫顯示 範例 :str1="visual Basic.NET" str2=str1.toupper() ' str2 = "VISUAL BASIC.NET" str2=str1.tolower() ' str2 = "visual basic.net" 語法 :str1=string.copy(str2) 功能 : 將 str2 字串複製給 str1 字串變數 Copy 方法 CopyTo 方法 範例 :str1="hello" str2="world!" str1=string.copy(str2) ' str1 = "World!" 語法 :str1.copyto(n1,arraya,n2,n3) 功能 : 將 str1 字串的第 n1 個位置開始複製 n3 個字元放到 arraya A-6

7 APPENDIX A VB 常用類別與函式 字元陣列, 由第 n2 個位置開始放起 範例 :Dim arraya(7) As Char str1 = "David 張,How are you!" str1.copyto(4, arraya, 2, 4) For n As Integer = 0 To arraya.length - 1 str2=" 第 " & n.tostring() & " 個元素 : " Console.WriteLine(str2 & arraya(n)) Next 結果 語法 :Dim a As Boolean = str1.startswith(str2) Dim a As Boolean = str1.endswith(str2) StartsWith 方法 EndsWith 方法 功能 : 若 str2 字串是 str1 字串的開頭 / 結尾字串, 若是傳回 True; 否則傳回 False 範例 :str1 ="Hello World!" str2 = "World" Console.WriteLine(str1.StartsWith(str2).ToString()) ' False Console.WriteLine(str1.EndsWith(str2).ToString()) ' False 語法 :String.Concat(str1,str2) Concat 方法 功能 : 將 str1 字串和 str2 字串連接 範例 :str1 ="Hello" str2="world!" Console.WriteLine(String.Concat(str1,str2)) 語法 :str1.equals(str2) Equals 方法 Insert 方法 功能 : 檢查 str1 字串是否和 str2 字串相等 範例 :If str1.equals(str2) Then ' 判斷 str1 是否等於 str2 If str1= str2 Then ' 判斷 str1 是否等於 str2, 同上面敘述語法 :str1.insert(n,str2) 功能 : 將 str2 字串插在 str1 字串的第 n 個位置 ( 由 1 算起 ) A-7

8 Visual Basic 程式設計經典 範例 :str1=" " str2="abc" str3=str1.insert(5,str2) ' str3 = "01234abc56789" 語法 :str1.padleft(n, "*") / str1.padright(n, "*") PadLeft 方法 PadRight 方法 功能 :str1 字串靠左 / 靠右對齊, 以指定的字元補足使其長度為 n 範例 :str1 ="abc" str2=str1.padleft(5, "*") ' str2 = "**abc" str2=str1.padright(5, "*") ' str2 = "abc**" 語法 :n=str1.indexof(str2) n=str1.lastindexof(str2) IndexOf 方法 LastIndexOf 方法 功能 :IndexOf 由 str1 字串找出 str2 字串第一次出現位置, 位置由最前面 (0) 開始算起 ; 若找不到傳回值為 -1 LastIndexOf 由 str1 字串找出 str2 字串最後出現的位置, 位置由最前面 (0) 開始算起 範例 :str1 ="C#.NET ASP.NET C#.NET" str2=".net" n=str1.indexof("asp") ' 傳回 7 n=str1.lastindexof(str2) ' 傳回 17 n=str1.indexof("o") ' 傳回 -1 ( 找不到 ) 語法 :str1.tochararray(n1,n2) ToCharArray 方法 功能 : 將 str1 字串放入字元陣列, 由字元陣列的第 n1 個元素開始取出 n2 個元素 範例 :str1=" " str2=str1.tochararray(2,4) ' str2 = "2345" 語法 :String.Join( 分隔字元或符號, 陣列名稱 ) Join 方法 功能 : 會複製陣列內型別為 String 的字串, 並透過指定的分隔字元或符號來組合成字串 範例 :str1="time to say goodbye" Dim myarray(3) As String myarray(0)= "Time" : myarray(1)= "to" myarray(2)= "say" : myarray(3)= "goodbye" Console.Writeline(String.Join("*",myArray) ) 結果 :Time*to*say*goodbye A-8

9 APPENDIX A VB 常用類別與函式 Split 方法 語法 :str1.split( 分隔字元或符號 ) 功能 : 按照字串中所指定的字元作分隔符號, 將字串隔開, 再將這些分隔的字串依序放入指定的字串陣列中 範例 :str1="time to say goodbye" Dim myarray(3) As String myarray=str1.split(" ") ' 以空白當分隔符號結果 :myarray(0)= "Time" myarray(1)= "to" myarray(2)= "say" myarray(3)= "goodbye" 語法 :str1.remove(n1,n2) Remove 方法 功能 : 將 str1 字串的第 n1 個字元開始往後刪除 n2 個字元 範例 :str1=" " str2=str1.remove(2,3) ' str2 = " " 語法 :str1.replace(str2,str3) 功能 : 由 str1 字串中找出 str2 字串以 str3 字串取代 若沒找到符合的字串, 則不做取代維持原字串 Replace 方法 範例 :str1=" " str2="456" str3="abcd" str4=str1.replace(str2,str3) ' str4 = "0123abcd789" 語法 :str1.substring(n1.n2) SubString 方法 功能 : 由 str1 字串第 n1 個字元開始取 n2 個字元 範例 :str1="how are you 李先生 " str2=str1.substring(8,4) ' str2 = "you 李 " 語法 :str1.trimstart() / str1.trimend() / str1.trim() TrimStart 方法 TrimEnd 方法 Trim 方法 功能 : 將字串最前面 / 最後面 / 前後的空白去除 範例 :str1=" Happy " ' 前後各留三個空白 str2=str1.trimstart() ' str2 = "Happy " str2=str1.trimend() ' str2 = " Happy" str2=str1.trim() ' str2 = "Happy" A-9

10 Visual Basic 程式設計經典 四. DateTime 日期時間類別.NET Framework 類別庫中的 DateTime 類別可用來設定日期與時間 下表僅列出 DateTime 部分屬性 使用 DateTime 類別中某些屬性時, 必需使用 New 建立 DateTime 物件實體才可使用 以下範例中 datetime1 是使用 DateTime 類別所建立的日期時間物件實體, 此日期時間物件為西元 2014 年 1 月 23 日上午 4 時 5 分 6 秒 7 豪秒 Dim datetime1 As New DateTime(2014,1,23,4,5,6,7) 成員名稱 Now Today Date Year Month Day Hour 說明 語法 :DateTime.Now 功能 : 取得這部電腦上當地目前日期和時間, 使用 Now 屬性不需要建立 DateTime 類別的物件實體 範例 :DateTime.Now 傳回 DateTime 型別傳回值為 2014/9/30 下午 07:40:50 語法 :DateTime.Today 功能 : 取得目前的日期, 使用 Today 屬性不需要建立 DateTime 類別的物件實體 範例 :DateTime.Today 傳回 DateTime 型別傳回值為 2014/9/30 上午 12:00:00 語法 :datetime1.date 功能 : 取得 DateTime 物件的日期 範例 :datetime1.date 傳回 DateTime 型別傳回值為 2014/1/23 上午 12:00:00 語法 :datetime1.year 功能 : 取得 DateTime 物件的年份, 為 Int32 數值型別 範例 :datetime1.year 傳回值為 2014 語法 :datetime1.month 功能 : 取得 DateTime 物件的月份, 為 Int32 數值型別 範例 :datetime1.month 傳回值為 1, 為 Int32 型別 語法 :datetime1.day 功能 : 取得 DateTime 物件的日期, 為 Int32 數值型別 範例 :datetime1.month 傳回值為 23 語法 :datetime1.hour 功能 : 取得 DateTime 物件的小時, 為 Int32 數值型別 範例 :datetime1.hour 傳回值為 4 A-10

11 APPENDIX A VB 常用類別與函式 Minute Second Millisecond 語法 :datetime1.minute 功能 : 取得 DateTime 物件的分鐘, 為 Int32 數值型別 範例 :datetime1.minute 傳回值為 5 語法 :datetime1.second 功能 : 取得 DateTime 物件的秒數, 為 Int32 數值型別 範例 :datetime1.second 傳回值為 6 語法 :datetime1.day 功能 : 取得 DateTime 物件的毫秒, 為 Int32 數值型別 範例 :datetime1.millisecond 傳回值為 7 五. Math 數學類別.NET Framework 類別程式庫中的 Math( 數學 ) 類別, 提供許多有關三角函數 對數以及其它常見的數學函數與常數 成員名稱 說明 語法 :Math.Sign(n) Math.Sign 功能 : 判斷 n 數值的正負 若 n> 0, 則傳回值為 1 若 n = 0, 則傳回值為 0 若 n < 0, 則傳回值為 -1 範例 :Math.Sign(12) 傳回值為 1 Math.Sign(-12) 傳回值為 -1 Math.Sign(0) 傳回值為 0 Math.Floor Math.Ceiling Math.Round 語法 :Math.Floor(n) 功能 : 傳回小於或等於 n 的最大整數 範例 :Math.Floor(4.4) 傳回值為 4 語法 :Math.Ceiling(n) 功能 : 傳回大於或等於 n 的最小整數 範例 :Math.Ceiling(4.4) 傳回值為 5 語法 :Math.Round(n) 功能 : 傳回數值 n 的整數部份, 而小數第一位四捨六入 範例 :Math.Round(4.5) 傳回值為 4 Math.Round(5.5) 傳回值為 6 A-11

12 Visual Basic 程式設計經典 Math.Abs Math.Sqrt Math.Pow Math.Sin Math.Cos Math.Tan Math.Asin Math.Acos Math.Atan Math.Atan2 Math.Sinh Math.Cosh 語法 :Math.Abs(n) 功能 : 傳回同樣數值型別的絕對值 範例 :Math.Abs(5.3), 傳回值為 5.3 Math.Abs(-5.3), 傳回值為 5.3 語法 :Math.Sqrt(n) 功能 : 傳回數值 n 的平方根 範例 :Math.Sqrt(0.49), 傳回值為 0.7 語法 :Math.Pow(x,y) 功能 : 傳回數值 x 的 y 次方, 即 x y 範例 :Math.Pow(5, 3), 傳回值為 125 語法 :Math.Sin( r ) 功能 : 傳回數值 r 的正弦函數值 r 是一個 radians 弳度量 範例 : 若 angle = 30 * (Math.PI / 180) 即角度 (Degree) 為 30, 則 Math.Sin(angle), 傳回值為 0.5 語法 :Math.Cos( r ) 功能 : 傳回數值 r 的餘弦函數值 範例 :r = 30 * (Math.PI / 180) Math.Cos(r), 傳回值為 語法 :Math.Tan( r ) 功能 : 傳回數值 r 的正切函數值 範例 :Math.Tan(45 * (Math.PI / 180)), 傳回值為 1 語法 :Math.Asin(x) 功能 : 傳回數值 x 的反正弦函數值 語法 :Math.Acos(x) 功能 : 傳回數值 x 的反餘弦函數值 語法 :Math.Atan(x) 功能 : 傳回數值 x 的反正切函數值 語法 :Math.Atin2(x,y) 功能 : 傳回 tan -1 (y/x) 數值 語法 :Math.Sinh( r ) 功能 : 傳回數值 r 的雙曲線正弦函數值 語法 :Math.Cosh( r ) 功能 : 傳回數值 r 的雙曲線餘弦函數值 A-12

13 APPENDIX A VB 常用類別與函式 Math.Tanh Math.Exp Math.Log Math.Log10 Math.Max Math.Min Math.PI Math.E 語法 :Math.Tanh( r ) 功能 : 傳回數值 r 的雙曲線正切函數值 語法 :Math.Exp(x) 功能 : 傳回 e x 值 E 為自然對數, 大小約 語法 :Math.Log(x) 功能 : 傳回 loge x 值 loge x 在數學上經常用 ln x 表示 語法 :Math.Log10(x) 功能 : 傳回 Log10 x 值 語法 :Math.Max(n1,n2) 功能 : 比較 n1 n2 的大小, 傳回較大值 範例 :Math.Max(4,10) 傳回值為 10 語法 :Math.Min(n1,n2) 功能 : 比較 n1 n2 的大小, 傳回較小值 範例 :Math.Min(4,10) 傳回值為 4 語法 :Math.PI ( 數學屬性 ) 功能 :Math.PI = , 即為 π 的值語法 :Math.E ( 數學屬性 ) 功能 :Math.E = , 即為 e 的值 六. Random 亂數類別亂數的應用隨著電腦的普及, 更加顯示其重要性 在.NET Framework 類別程式庫中提供了 Random 類別, 此類別為 System.Random 型別, 其功能可用來產生亂數 使用 Random 類別中的方法時, 必須建立 Random 物件實體才可使用 以下範例中 rnd1 是使用 Random 類別所建立的亂數物件實體 Dim rnd1 As New Random() Random 類別沒有屬性, 此類別常用的方法如下表說明 : Next 成員名稱 說明語法 :rnd1.next() ' 傳回大於等 0 的亂數, 且小於 Integer 型別的最大值 rnd1.next(n1) ' 傳回 0 到 n1-1 的亂數值 rnd1.next(n1, n2) ' 傳回 n1 到 n2-1 的亂數值 A-13

14 Visual Basic 程式設計經典 NextDouble 語法 :rnd1.nextdouble() 功能 : 傳回 0.0 到 1.0 之間的亂數 七. VB 常用字串函式 程式設計時經常會對字串作處理, 傳統 VB 將一些常用處理字串的方法寫成函式, 讓你只要將欲處理的字串放入緊接在函式名稱後面括號內的引數 ( 或稱參數 ), VB 會將處理的結果傳回 下表即是 VB 所提供常用字串函式 範例中假設事先已分別對整數變數 n, 字串變數 str1 str2 str3 str4 做過宣告 : 函式名稱 Len Space LCase/UCase Asc Chr 說明語法 :Len(str1) 功能 : 傳回字串的長度 範例 :str1="visual Basic 2013 隆重上市 " n=len(str1) ' n 值為 21 語法 :Space(n) 功能 : 由目前游標處插入 n 個空白 範例 :str2 ="VB 2013" str2=space(2) & str2 & space(3) 'str2=" VB 2013 " 語法 :UCase(str1) / LCase(str1) 功能 : 將 str1 字串變數中所有字母以大 / 小寫顯示 範例 :str1 ="Visual Basic 2013" str2=ucase(str1) ' str2 <-- "VISUAL BASIC 2013" str2=lcase(str1) ' str2 <-- "visual basic 2013" 語法 :Asc(str1) 功能 : 傳回字串第一個字元的 ASCII 值 範例 :str1 ="Visual Basic 2013" n=asc(str1) ' n 裡面存放 "V" 的 ASCII 值 86 語法 :Chr(n) 功能 : 傳回 n 所代表 ASCII 值的對應字元,(n:0~255) 範例 :str2 =Chr(65) & Chr(10) & Chr(13) Console.WriteLine(str2) ' 顯示大寫字母 A ' Chr(10) 為 LineFeed 字元 ' Chr(13) 為 Carriage Return 字元 A-14

15 APPENDIX A VB 常用類別與函式 Ltrim/Rtrim/Trim 語法 :LTrim(str1) / RTrim(str1) / Trim(str1) 功能 : 分別將 str1 字串的左邊空白 / 右邊空白 / 前後空白處清除 範例 :str1 =" Visual Basic 2013 " str2=ltrim(str1) ' str2 = "Visual Basic 2013 " str2=rtrim(str1) ' str2 = " Visual Basic 2013" str2=trim(str1) ' str2 = "Visual Basic 2013" Mid/Left/Right 語法 :Left(str1) / Right(str1) / Mid(str1) 功能 : 由 str1 字串最左邊 / 最右邊 / 中間取多少個字元範例 :str1 ="Visual Basic 2013" str2=microsoft.visualbasic.left(str1,8) ' str2="visual B" str2=microsoft.visualbasic.right(str1,4) ' str2= "2013" str2=microsoft.visualbasic.mid(str1,8,5) ' str2= "Basic" Instr 語法 :InStr( [start,] str1, str2 [,Compare] ) 功能 : 傳回 str2 字串由 start 位置開始找起在 str1 字串中首次出現的位置 範例 :str1 = "Visual Basic 2013" str2="basic" n=instr(str1,str2) ' 傳回 8 n=instr(3,str1,str2) ' 傳回 8 n=instr(13,str1,str2) ' 傳回 0 ( 沒找到 ) StrComp 語法 :StrComp(str1,str2 [,compare] ) 功能 : 傳回 str1 字串和 str2 比較的結果 若 compare=0 表示大小寫有分 ;compare=1 表示大小不分 StrReverse 若 str1>str2, 傳回值為 1 若 str1=str2, 傳回值為 0 若 str1<str2, 傳回值為 -1 若 str1 或 str2 為空字串, 傳回值為 Nothing 範例 :str1="vb 2013" str2="vb 2013" n=strcomp(str1,str2,0) ' 傳回 -1 n=strcomp(str1,str2,1) ' 傳回 0 語法 :StrReverse(str1) 功能 : 將 str1 字串順序顛倒後的結果傳回 範例 :str1 ="VB 2013" str2=strreverse(str1) str2 <-- "0102 BV" A-15

16 Visual Basic 程式設計經典 Replace 語法 :Replace(str1,str2,str3) 功能 : 將 str1 字串中和 str2 字串相同的部份以 str3 字串取代 範例 :str1 ="1234abcd1234abcd" str2="ab" str3="xy" str4=replace(str1,str2,str3) ' str4 = "1234xycd1234xycd" Join 語法 :Join(arrayName [,delimiter] ) 功能 : 將字串陣列所有元素內的字串按順序連結成字串 範例 :Dim str(2) As String str(0)= "Welcome" str(1)= "to" str(2)= "VB 2013" str2=join(str, " ") ' str2 = "Welcome to VB 2003" 八. VB 資料型別轉換函式 下表列出 VB 常用的型別轉換函式 範例中假設 n, r,x,y 為數值變數,str 為字串變數,check 為布林變數 CByte 函式名稱 CShort 說明 語法 :CByte(n) 功能 : 傳回 n 的整數部份, 小數第一位四捨六入 傳回值屬 Byte 數值型別 範例 :n=cbyte(4.6) ' n = 5 n=cbyte(5.5) ' n = 6 個位數為奇數進位 n=cbyte(4.5) ' n = 4 個位數為偶數不進位 語法 :CShort(n) 功能 : 傳回 n 的整數部份, 小數第一位四捨六入 傳回值屬 Short 數值型別 範例 :n=cshort(4.6) ' n = 5 n=cshort(5.5) ' n = 6 個位數為奇數進位 n=cshort(4.5) ' n = 4 個位數為偶數不進位 A-16

17 APPENDIX A VB 常用類別與函式 CInt CLng CSng CDbl CDec CStr Val 語法 :CInt(n) 功能 : 傳回 n 的整數部份, 小數第一位四捨六入 傳回值屬 Integer 資料型別 範例 :n=cint(4.6) ' n = 5 n=cint(5.5) ' n = 6 個位數為奇數進位 n=cint(4.5) ' n = 4 個位數為偶數不進位 語法 :CLng(n) 功能 : 傳回 n 的整數部份, 小數第一位四捨六入 傳回值屬 Long 數值型別 範例 :n=clng(4.6) ' n = 5 n=clng(5.5) ' n = 6 個位數為奇數進位 n=clng(4.5) ' n = 4 個位數為偶數不進位 語法 :CSng(n) 功能 : 數值 n 轉換成 Single 數值型別 語法 :CDbl(n) 功能 : 數值 n 轉換成 Double 數值型別 語法 :CDec(n) 功能 : 數值 n 轉換成 Decimal 數值型別 語法 :CStr(n) 功能 : 數值 n 轉換成字串型別 語法 :Val(str) 功能 : 將具有字串型別的數字 ( 文數字 ) 轉換成數值型別 範例 :n=val("2457") ' n = 2457 n=val("2 45 7") ' n = 2457 將空白字元刪除在合併 n=val("24 and 57") ' n = 24 若有字串取前面部分數字 CBool 語法 :CBool( 運算式 ) 功能 : 將邏輯運算式或算術運算式的結果轉換為布林資料型別 (True 或 False) 範例 :check=cbool(6>5) ' check=true, 因為 6>5 成立 CDate 語法 :CDate(str) 功能 : 將字串資料轉換為日期資料型別 字串資料必需符合日期的格式 範例 :mydate=cdate("#2/12/1969#") ' 傳回 1969/2/12 mydate=cdate("lung") ' 錯誤, 因為不是日期的格式 A-17

18 Visual Basic 程式設計經典 CType 語法 :CType( 變數名稱, 資料型別 ) 功能 : 將指定的變數做資料型別轉換 欲轉換的變數必須對目的資料型別是有效的, 否則會出現錯誤 範例 :Dim N As Long ' 宣告 N 為長整數變數 Dim NewN As Single ' 宣告 NewN 為單精確度變數 N = 1000 ' 變數 N 內存放 1000 ' 將變數 N 轉為單精確度型別, 然後再將變數 N 指定給 ' 變數 NewN, 此時變數 NewN 的值為 1000 NewN = CType(N, Single) Dim btn As Button ' 宣告 btn 是屬於 Button 類別的物件 ' 使用 CType 將表單的 Button1 控制項轉換為 Button 物件 ' 再指定給 btn, 因此 btn 是一個參考到 Button1 控制項物件 btn = CType(Button1, Button) ' 將等號右邊字串顯示在 btn 所參考的 Button1 控制項上 btn.text = " 這是新按鈕 " 九. VB 常用數值函式 下表僅列出 VB 所提供經常使用到數值函式 範例中, 假設 n, r,x, y 皆為數值變數,str 為字串變數 str,check 為布林變數 函式名稱 說明 Fix 語法 :Fix(n) 功能 : 傳回的整數部份, 小數部份無條件捨去 範例 :n=fix(99.8) ' n = 99 n=fix(-99.8) ' n = -99 Int 語法 :Int(n) 功能 : 傳回小於或等於 number 的最大整數 範例 :n=int( 9.8) ' n = 9 n=int(-9.8) ' n = -9 IsNumeric 語法 :IsNumeric( 運算式 ) 功能 : 當運算式為數值資料或數值字串時會傳回 True, 否則傳回 False A-18

19 APPENDIX A VB 常用類別與函式 Rnd Randomize 範例 :check=isnumberic(53) ' 傳回 True check=isnumberic("459.5") ' 傳回 True, 為數值字串 check=isnumberic("14help") ' 傳回 False, 含一般字串 語法 :Rnd() 功能 : 產生介於 0 到 1 之間的隨機亂數 語法 :Randomize() 功能 : 在使用 Rnd() 函式之前, 先以此函式當作亂數產生器的種子 若不在 Rnd() 函式之前使用此函式來產生亂數的種子, 則每次執行 Rnd 函式, 都會得到相同順序的亂數 範例 : 產生 1~5 之間可重複的亂數 Dim n As Integer Randomize() For i As Integer = 1 To 5 n=fix(10*rnd())+1 Console.WriteLine(" 第 {0} 個亂數 : {1}", i, n) Next 結果 十. VB 常用日期間函式 下表列出 VB 常用的日期時間函式 範例中假設 datetime 為日期型別變數 函式名稱 說明 IsDate 語法 :IsDate( 運算式 ) 功能 : 若該運算式為日期型別變數時, 傳回 True; 否則傳回 False 範例 :check=isdate("#7/15/2014#") ' 傳回 True check=isdate("hello") ' 傳回 False Today 語法 :Today 功能 : 設定或傳回目前系統的日期 A-19

20 Visual Basic 程式設計經典 TimeOfDay Now Year Month Day Hour Minute Second 語法 :TimeOfDay 功能 : 設定或傳回目前系統的時間 語法 :Now 功能 : 傳回目前系統的日期與時間 語法 :Year(datetime) 功能 : 傳回西元年份 範例 :n=year("#7/15/2014#") ' n=2014 語法 :Month(datetime) 功能 : 傳回 1~12 月份 範例 :n=month("#7/15/2014#") ' n=7 語法 :Microsoft.VisualBasic.Day(datatime) 功能 : 傳回日 範例 :n=microsoft.visualbasic.day("#2/12/1969#") ' n=12 語法 :Hour(datetime) 功能 : 傳回時間的時刻, 其值為 0~23 的數值資料 範例 :n=hour ("#11:19:59 PM#") ' n=23 n=hour ("#11:19:59 AM#") ' n=11 語法 :Minute(datetime) 功能 : 傳回時間的分鐘, 其值為 0~59 的數值資料 範例 :n=minute ("#11:19:59 PM#") ' n=19 語法 :Second(datetime) 功能 : 傳回時間的秒數, 其值為 0~59 的數值資料 範例 :n=second ("#11:19:59 PM#") ' n=59 MonthName 語法 :MonthName( 月份 ) 功能 : 傳回相對應的月份的名稱 範例 :str=monthname(3) ' str= 三月 WeekDay WeekdayName 語法 :WeekDay(datetime) 功能 : 傳回星期幾, 其值為 1~7 若傳回 1, 表示星期日 ; 傳回 2, 表示星期一 以此類推 範例 :n=weekday("#7/15/2014#") ' n=4, 表示這天為星期五 語法 :WeekdayName(n) 功能 : 傳回一星期中的第幾天 n 為 1, 則傳回星期日 ;n 為 2, 傳回星期一 以此類推 範例 :str=weekdayname(5) ' str= 星期四 A-20

21 APPENDIX A VB 常用類別與函式 Timer 語法 :Microsoft.VisualBasic.Timer 功能 : 傳回由午夜 0 時 0 分 0 秒開始到目前累計的總秒數, Timer 適合用來設定延遲時間 A-21