System.Math 類中定義了用于數(shù)學(xué)計(jì)算的函數(shù),。Math 類包括三角函數(shù)、對(duì)數(shù)函數(shù)和其他常用數(shù)學(xué)函數(shù)。下列函數(shù)是在 System 名稱空間的 Math 類中定義的函數(shù),。
注意:要使用這些函數(shù),請(qǐng)通過在源代碼頂部添加以下代碼將 System.Math 名稱空間導(dǎo)入到項(xiàng)目中:
Imports System.Math
Abs
Abs 函數(shù)返回指定數(shù)值的絕對(duì)值。
Abs 示例:
本示例使用 Math 類的 Abs 方法來計(jì)算一個(gè)數(shù)值的絕對(duì)值,。
' Code will not compile unless it is put in a Sub or in a Function.
Dim MyNumber As Double
MyNumber = Abs(50.3) ' Returns 50.3.
MyNumber = Abs(-50.3) ' Returns 50.3.
Atan
Atan 函數(shù)返回包含角度的 Double 值。該角度的正切值是指定的數(shù)值,。返回值為正表示角度在 X 軸的逆時(shí)針方向上,。返回值為負(fù)表示順時(shí)針角度。將該返回值乘以 180 再除以 pi (p) 就可以從弧度轉(zhuǎn)換為度,。
Atan 示例:
本示例使用 Math 類的 Atan 方法來計(jì)算 Pi 值,。
' Code is not compiled unless it is put in a Sub or in a Function.
Dim pi As Double
pi = 4 * Atan(1) ' Calculate the value of pi.
Cos
Cos 函數(shù)以弧度表示的角度作為參數(shù),然后返回一個(gè) Double 值,,表示指定角度的余弦值,。
Cos 示例:
本示例使用 Math 類的 Cos 方法返回角度的余弦值。
' Code is not compiled unless it is put in a Sub or in a Function.
Dim MyAngle, MySecant As Double
MyAngle = 1.3 ' Define angle in radians.
MySecant = 1 / Cos(MyAngle) ' Calculate secant.
Exp
Exp 函數(shù)返回一個(gè) Double 值,,包含 e(自然對(duì)數(shù)的底)的指定乘冪,。使用 Pow 方法可計(jì)算其他底的乘冪。Exp 是 Log 的逆運(yùn)算,。
Exp 示例:
本示例使用 Math 類的 Exp 方法返回 e 的乘冪,。
' Code is not compiled unless it is put in a Sub or in a Function.
Dim MyAngle, MyHSin As Double
' Define angle in radians.
MyAngle = 1.3
' Calculate hyperbolic sine.
MyHSin = (Exp(MyAngle) - Exp(-1 * MyAngle)) / 2
Log
Log 函數(shù)返回一個(gè) Double 值,包含一個(gè)指定數(shù)值的對(duì)數(shù),。該方法已重載,,可以返回指定數(shù)值的自然(底數(shù) e)對(duì)數(shù)或指定數(shù)值的指定底對(duì)數(shù)。
Log 示例:
本示例使用 Math 類的 Log 方法返回一個(gè)數(shù)值的自然對(duì)數(shù),。
' Code is not compiled unless it is put in a Sub or in a Function.
Dim MyAngle, MyLog As Double
' Define angle in radians.
MyAngle = 1.3
' Calculate inverse hyperbolic sine.
MyLog = Log(MyAngle + Sqrt(MyAngle * MyAngle + 1))
Round
Round 函數(shù)返回一個(gè) Double 值,,包含與指定值最接近的數(shù)值。其他 Round 函數(shù)可用作內(nèi)部類型的方法,,如 Decimal.Round 方法,。
Round 示例:
本示例使用 Math 類的 Round 方法將一個(gè)數(shù)值四舍五入為最接近的整數(shù)。
' Code is not compiled unless it is put in a Sub or in a Function.
Dim MyVar1 As Double = 2.8
Dim MyVar2 As Double
MyVar2 =Round(MyVar1) ' Returns 3.
Sign
Sign 函數(shù)返回一個(gè)指示某個(gè)數(shù)值的正負(fù)號(hào)的整數(shù)值,。下面的表格顯示了函數(shù)及其返回值的輸入?yún)?shù):指定數(shù)返回值
正數(shù)1
負(fù)數(shù)-1
零0
Sign 示例:
本示例使用 Math 類的 Sign 方法確定一個(gè)數(shù)值的正負(fù)號(hào),。
' Code is not compiled unless it is put in a Sub or in a Function.
Dim MyVar1, MyVar2, MyVar3 As Double
Dim MySign As Integer
MyVar1 = 12
MyVar2 = -2.4
MyVar3 = 0
MySign = Sign(MyVar1) ' Returns 1.
MySign = Sign(MyVar2) ' Returns -1.
MySign = Sign(MyVar3) ' Returns 0.
Sin
Sin 函數(shù)以弧度表示的角度作為參數(shù),然后返回一個(gè) Double 值,,指定該角度的正弦值,。
Sin 示例:
本示例使用 Math 類的 Sin 方法返回一個(gè)角度的正弦值。
' Code is not compiled unless it is put in a Sub or in a Function.
Dim MyAngle, MyCosecant As Double
MyAngle = 1.3 ' Define angle in radians.
MyCosecant = 1 / Sin(MyAngle) ' Calculate cosecant.
Sqrt
Sqrt 函數(shù)返回一個(gè) Double 值,,指定一個(gè)指定數(shù)值的平方根,。
Sqrt 示例:
本示例使用 Math 類的 Sqrt 方法計(jì)算一個(gè)數(shù)值的平方根,。
' Code is not compiled unless it is put in a Sub or in a Function.
Dim MySqr As Double
MySqr = Sqrt(4) ' Returns 2.
MySqr = Sqrt(23) ' Returns 4.79583152331272.
MySqr = Sqrt(0) ' Returns 0.
MySqr = Sqrt(-4) ' Returns NaN (not a number).
Tan
Tan 函數(shù)返回一個(gè) Double 值,包含指定角度的正切值,。Tan 函數(shù)以弧度表示的角度作為參數(shù),。當(dāng)指定的角度是 NaN、NegativeInfinity 或 PositiveInfinity 時(shí),,該方法將返回 NaN,。
注意:乘以 p/180 可將度數(shù)轉(zhuǎn)換為弧度數(shù)。
Tan 示例:
本示例使用 Math 類的 Tan 方法返回一個(gè)角度的正切值,。
' Code is not compiled unless it is put in a Sub or in a Function.
Dim MyAngle, MyCotangent As Double
MyAngle = 1.3 ' Define angle in radians.
MyCotangent = 1 / Tan(MyAngle) ' Calculate cotangent.
使用類型轉(zhuǎn)換函數(shù)
將一個(gè)值從一種數(shù)據(jù)類型更改為另一種數(shù)據(jù)類型的過程稱為轉(zhuǎn)換,。轉(zhuǎn)換或者是擴(kuò)大或者是收縮,這取決于所涉及的類型的數(shù)據(jù)容量,。公共語言運(yùn)行庫支持?jǐn)U大轉(zhuǎn)換和收縮轉(zhuǎn)換兩種。例如,,以 32 位有符號(hào)整數(shù)形式表示的值可以轉(zhuǎn)換為 64 位有符號(hào)整數(shù),。這是一個(gè)擴(kuò)大轉(zhuǎn)換的示例。相反的轉(zhuǎn)換(從 64 位到 32 位)是一個(gè)收縮轉(zhuǎn)換的示例,。使用擴(kuò)大轉(zhuǎn)換信息永遠(yuǎn)不會(huì)丟失,。但是,使用收縮轉(zhuǎn)換信息可能會(huì)丟失,。
以下是 Visual Basic .NET 中定義的類型轉(zhuǎn)換函數(shù):
CBool
CBool 函數(shù)用于將字符串表達(dá)式或數(shù)值表達(dá)式轉(zhuǎn)換為 Boolean 值,。當(dāng)表達(dá)式計(jì)算為一個(gè)非零值時(shí),CBool 函數(shù)將返回 True,。否則,,該函數(shù)返回 False。
CBool 示例:
Dim A, B, C As Integer
Dim Check As Boolean
A = 5
B = 5
Check = CBool(A = B) ' Check is set to True.
C = 0
Check = CBool(C) ' Check is set to False.
CByte
CByte 函數(shù)將指定數(shù)值轉(zhuǎn)換為字節(jié),。輸入?yún)?shù)必須是 0 到 255 之間的一個(gè)數(shù)值,。否則,將出現(xiàn) System.OverflowException,。
CByte 示例:
Dim MyDouble As Double
Dim MyByte As Byte
MyDouble = 125.5678
MyByte = CByte(MyDouble) ' MyByte is set to 126.
CChar
CChar 函數(shù)僅轉(zhuǎn)換指定字符串的第一個(gè)字符,。CChar 的輸入?yún)?shù)必須是數(shù)據(jù)類型的字符串。無法使用 CChar 將數(shù)值轉(zhuǎn)換為字符,,因?yàn)?CChar 無法接受 Numeric 數(shù)據(jù)類型,。
CChar 示例:
本示例使用 CChar 函數(shù)將字符串表達(dá)式的第一個(gè)字符轉(zhuǎn)換為 Char 類型。
Dim MyString As String
Dim MyChar As Char
MyString = "BCD" ' CChar converts only the first character of the string.
MyChar = CChar(MyString) ' MyChar is set to "B".
CDate
CDate 接受日期和時(shí)間的任何有效表示方式,,然后將其轉(zhuǎn)換為 Date 值,。
CDate 示例:
本示例使用 CDate 函數(shù)將字符串轉(zhuǎn)換為 Date 值。
Dim MyDateString, MyTimeString As String
Dim MyDate, MyTime As Date
MyDateString = "February 12, 1969"
MyTimeString = "4:35:47 PM"
' ...
MyDate = CDate(MyDateString) ' Convert to Date data type.
MyTime = CDate(MyTimeString) ' Convert to Date data type.
CDbl
CDbl 函數(shù)用于將數(shù)值表達(dá)式轉(zhuǎn)換為 Double 值,。對(duì)于負(fù)值,,該函數(shù)的輸入?yún)?shù)必須在 -4.94065645841247E-324 到 -1.79769313486231E+308 之間,。對(duì)于正值,該函數(shù)的輸入?yún)?shù)必須在 1.79769313486231E+308 到 4.94065645841247E-324 之間,。
CDbl 示例:
Dim MyDec As Decimal
Dim MyDouble As Double
MyDec = 234.456784D ' Literal type character D makes MyDec a Decimal.
MyDouble = CDbl(MyDec * 8.2D * 0.01D) ' Convert result to a Double.
CDec
CDec 函數(shù)將數(shù)值轉(zhuǎn)換為小數(shù),。
CDec 示例:
Dim MyDouble As Double
Dim MyDecimal As Decimal
MyDouble = 10000000.0587
MyDecimal = CDec(MyDouble) ' Convert to Decimal.
CInt
CInt 函數(shù)將數(shù)值轉(zhuǎn)換為整數(shù)。
CInt 示例:
Dim MyDouble As Double
Dim MyInt As Integer
MyDouble = 2345.5678
MyInt = CInt(MyDouble) ' MyInt is set to 2346.
CLng
CLng 函數(shù)以一個(gè)數(shù)值作為參數(shù),,然后返回一個(gè) Long 值,。
CLng 示例:
Dim MyDbl1, MyDbl2 As Double
Dim MyLong1, MyLong2 As Long
MyDbl1 = 25427.45
MyDbl2 = 25427.55
MyLong1 = CLng(MyDbl1) ' MyLong1 contains 25427.
MyLong2 = CLng(MyDbl2) ' MyLong2 contains 25428.
CObj
CObj 函數(shù)將數(shù)值轉(zhuǎn)換為對(duì)象。
CObj 示例:
Dim MyDouble As Double
Dim MyObject As Object
MyDouble = 2.7182818284
MyObject = CObj(MyDouble) ' Double value is pointed to by MyObject.
CShort
CShort 函數(shù)將數(shù)值轉(zhuǎn)換為 Short 值,。
CShort 示例:
Dim MyByte as Byte
Dim MyShort as Short
MyByte = 100
MyShort = CShort(MyByte) ' Convert to Short.
CSng
CSng 函數(shù)將數(shù)值轉(zhuǎn)換為 Single 值,。
CSng 示例:
Dim MyDouble1, MyDouble2 As Double
Dim MySingle1, MySingle2 As Single
MyDouble1 = 75.3421105
MyDouble2 = 75.3421567
MySingle1 = CSng(MyDouble1) ' MySingle1 is set to 75.34211.
MySingle2 = CSng(MyDouble2) ' MySingle2 is set to 75.34216.
CStr
下面的表格顯示了 CStr 函數(shù)的輸入?yún)?shù)和返回值:輸入?yún)?shù)數(shù)據(jù)類型返回值
Boolean包含 True 或 False 的字符串
Date包含以系統(tǒng)的短日期格式表示的 Date 值(日期和時(shí)間)的字符串
數(shù)值表示數(shù)字的字符串
CStr 示例:
本示例使用 CStr 函數(shù)將數(shù)值轉(zhuǎn)換為字符串。
Dim MyDouble As Double
Dim MyString As String
MyDouble = 437.324
MyString = CStr(MyDouble) ' MyString is set to "437.324".
使用字符串函數(shù)
不同的類中都定義有字符串函數(shù),。這些類包括 Microsoft.VisualBasic.Strings 類和 System.String 類,。
使用 Microsoft.VisualBasic.Strings 類中的字符串函數(shù)
下列函數(shù)是 Microsoft.VisualBasic.Strings 類中定義的字符串函數(shù)。
注意:要使用字符串函數(shù),,請(qǐng)通過在源代碼開始處添加以下代碼將名稱空間 Microsoft.VisualBasic.Strings 導(dǎo)入到項(xiàng)目中:
Imports Microsoft.VisualBasic.Strings
Asc 和 AscW
Asc 函數(shù)和 AscW 函數(shù)返回一個(gè)整數(shù)值,,表示與指定的字符相對(duì)應(yīng)的字符代碼。這兩個(gè)函數(shù)接受任何有效的字符表達(dá)式或字符串表達(dá)式作為參數(shù),。當(dāng)字符串是輸入?yún)?shù)時(shí),,則僅輸入字符串的第一個(gè)字符。當(dāng)字符串不包含任何字符時(shí),,將出現(xiàn) ArgumentException 錯(cuò)誤,。Asc 返回輸入字符的代碼數(shù)據(jù)點(diǎn)或字符代碼。對(duì)于單字節(jié)字符集 (SBCS) 值,,返回值可以是 0 到 255 之間的數(shù)字,。對(duì)于雙字節(jié)字符集 (DBCS) 值,返回值可以是 -32768 到 32767 之間的數(shù)字,。AscW 為輸入字符返回 0 到 65535 之間的 Unicode 代碼數(shù)據(jù)點(diǎn),。
例如:
Dim MyInt As Integer
MyInt = Asc("A") ' MyInt is set to 65.
MyInt = Asc("a") ' MyInt is set to 97.
MyInt = Asc("Apple") ' MyInt is set to 65.
Chr 和 ChrW
Chr 函數(shù)和 ChrW 函數(shù)返回與指定的字符代碼相關(guān)聯(lián)的字符。當(dāng) CharCode 超出 -32768 到 65535 的范圍時(shí),,將出現(xiàn) ArgumentException 錯(cuò)誤,。
例如:
本示例使用 Chr 函數(shù)返回與指定的字符代碼相關(guān)聯(lián)的字符。
Dim MyChar As Char
MyChar = Chr(65) ' Returns "A".
MyChar = Chr(97) ' Returns "a".
MyChar = Chr(62) ' Returns ">".
MyChar = Chr(37) ' Returns "%".
GetChar
GetChar 函數(shù)返回一個(gè) Char 值,,表示指定字符串的指定索引中的字符,。當(dāng)索引小于 1 或大于指定輸入?yún)?shù)中最后一個(gè)字符的索引時(shí),將出現(xiàn) ArgumentException 錯(cuò)誤,。
例如:
本示例顯示了如何使用 GetChar 函數(shù)從字符串的指定索引中返回字符,。
Dim myString As String = "ABCDE"
Dim myChar As Char
myChar = GetChar(myString, 4) ' myChar = "D"
InStr
InStr 函數(shù)返回一個(gè)整數(shù),指定一個(gè)字符串在另一個(gè)字符串中首次出現(xiàn)的起始位置,。
例如:
以下示例使用 InStr 函數(shù)返回一個(gè)字符串在另一個(gè)字符串中首次出現(xiàn)的位置:
Dim SearchString, SearchChar As String
Dim MyPos As Integer
SearchString ="XXpXXpXXPXXP" ' String to search in.
SearchChar = "P" ' Search for "P".
' A textual comparison starting at position 4. Returns 6.
MyPos = InStr(4, SearchString, SearchChar, CompareMethod.Text)
Join
Join 函數(shù)返回一個(gè)字符串,,該字符串是通過連接數(shù)組中包含的子字符串創(chuàng)建的,。包含必須連接的子字符串的一維數(shù)組將作為參數(shù)傳遞給 Join 函數(shù)。該函數(shù)使用 Delimiter,、String 作為可選參數(shù)來分隔返回的字符串中的子字符串,。當(dāng)省略 Delimiter 時(shí),將使用空格(“ ”)作為子字符串之間的分隔符,。當(dāng) Delimiter 是零長度字符串 ("") 時(shí),,數(shù)組中的子字符串將不使用分隔符,而是直接相連,。
例如:
以下示例顯示了如何使用 Join 函數(shù):
Dim myItem(2) As String
Dim myShoppingList As String
myItem(0) = "Pickle"
myItem(1) = "Pineapple"
myItem(2) = "Papaya"
' Returns "Pickle, Pineapple, Papaya"
myShoppingList = Join(myItem, ", ")
LCase
LCase 函數(shù)返回已經(jīng)轉(zhuǎn)換為小寫的字符串或字符,。只有大寫字母被轉(zhuǎn)換為小寫。所有小寫字母和非字母字符均保持不變,。
例如:
以下示例使用 LCase 函數(shù)返回字符串的小寫形式:
Dim UpperCase, LowerCase As String
Uppercase = "Hello WORLD 1234" ' String to convert.
Lowercase = LCase(UpperCase) ' Returns "hello world 1234".
LTrim,、RTrim 和 Trim
這些函數(shù)會(huì)返回一個(gè)包含指定字符串的副本的字符串。在使用 LTrim 時(shí),,沒有起始空格,。在使用 RTrim 時(shí),沒有尾隨空格,。在使用 Trim 時(shí),既沒有起始空格也沒有尾隨空格,。
例如:
以下示例使用 LTrim 函數(shù)刪除字符串變量中的起始空格,,使用 RTrim 函數(shù)刪除字符串變量中的尾隨空格,以及使用 Trim 函數(shù)刪除字符串變量中的起始空格和尾隨空格:
Dim MyString, TrimString As String
MyString = " <-Trim-> " ' Initializes string.
TrimString = LTrim(MyString) ' TrimString = "<-Trim-> ".
TrimString = RTrim(MyString) ' TrimString = " <-Trim->".
TrimString = LTrim(RTrim(MyString)) ' TrimString = "<-Trim->".
' Using the Trim function alone achieves the same result.
TrimString = Trim(MyString) ' TrimString = "<-Trim->".
Replace
Replace 函數(shù)返回一個(gè)字符串,,其中指定的子字符串按指定的次數(shù)替換為另一個(gè)子字符串,。Replace 函數(shù)的返回值是一個(gè)字符串,該字符串在 Start 參數(shù)指定的位置開始,,然后在指定字符串的末尾以 Find 參數(shù)和 Replace 參數(shù)中的值所指定的替換內(nèi)容結(jié)束,。
例如:
本示例演示了 Replace 函數(shù):
Dim myString As String = "Shopping List"
Dim aString As String
' Returns "Shipping List".
aString = Replace(myString, "o", "i")
StrComp
StrComp 函數(shù)返回 –1、0 或 1,。這將基于字符串比較的結(jié)果,。字符串將從第一個(gè)字符開始按字母數(shù)字順序排列的值進(jìn)行比較。
例如:
以下示例使用 StrComp 函數(shù)返回字符串比較的結(jié)果,。如果省略第三個(gè)參數(shù),,則使用選項(xiàng)比較語句或項(xiàng)目默認(rèn)設(shè)置中定義的比較類型。
Dim MyStr1, MyStr2 As String
Dim MyComp As Integer
MyStr1 = "ABCD"
MyStr2 = "abcd" ' Defines variables.
' The two strings sort equally. Returns 0.
MyComp = StrComp(MyStr1, MyStr2, CompareMethod.Text)
' MyStr1 sorts after MyStr2. Returns -1.
MyComp = StrComp(MyStr1, MyStr2, CompareMethod.Binary)
' MyStr2 sorts before MyStr1. Returns 1.
MyComp = StrComp(MyStr2, MyStr1)
StrConv
StrConv 函數(shù)返回一個(gè)字符串,,該字符串轉(zhuǎn)換為輸入?yún)?shù)中指定的值,。StrConv 函數(shù)將轉(zhuǎn)換字符串。這種轉(zhuǎn)換基于 Conversion 參數(shù)中的值,。Conversion 參數(shù)中的值是 VbStrConv 枚舉的成員,。
Conversion 參數(shù)的設(shè)置為:枚舉成員說明
VbStrConv.None不執(zhí)行轉(zhuǎn)換
VbStrConv.LinguisticCasing- 使用語言規(guī)則而不是文件系統(tǒng)(默認(rèn)值)來區(qū)分大小寫
- 僅對(duì)大寫和小寫字母有效
VbStrConv.UpperCase將字符串轉(zhuǎn)換為大寫字符
VbStrConv.LowerCase將字符串轉(zhuǎn)換為小寫字符
VbStrConv.ProperCase將字符串中每個(gè)單詞的第一個(gè)字母轉(zhuǎn)換為大寫
例如:
以下示例將文本轉(zhuǎn)換為小寫字母:
Dim sText, sNewText As String
sText = "Hello World"
sNewText = StrConv(sText, VbStrConv.LowerCase)
Debug.WriteLine (sNewText) ' Outputs "hello world".
StrDup
StrDup 函數(shù)返回一個(gè)由指定的字符重復(fù)指定的次數(shù)而形成的字符串或?qū)ο?。StrDup 函數(shù)具有兩個(gè)參數(shù):Number 參數(shù)和 Character 參數(shù)。Number 參數(shù)指定函數(shù)必須返回的字符串的長度,。StrDup 函數(shù)僅使用 Character 參數(shù)中的第一個(gè)字符,。Character 參數(shù)可以是 Char 數(shù)據(jù)類型、String 數(shù)據(jù)類型或 Object 數(shù)據(jù)類型,。
例如:
以下示例使用 StrDup 函數(shù)返回由重復(fù)字符組成的字符串:
Dim aString As String = "Wow! What a string!"
Dim aObject As New Object()
Dim myString As String
aObject = "This is a String that is contained in an Object"
myString = StrDup(5, "P") ' Returns "PPPPP"
myString = StrDup(10, aString) ' Returns "WWWWWWWWWW"
myString = StrDup(6, aObject) ' Returns "TTTTTT"
StrReverse
StrReverse 函數(shù)返回一個(gè)字符串,,該字符串將指定字符串的字符順序顛倒過來。
例如:
Dim myString As String = "ABCDEFG"
Dim revString As String
' Returns "GFEDCBA".
revString = StrReverse(myString)
UCase
UCase 函數(shù)返回一個(gè)字符串或字符,,包含已轉(zhuǎn)換為大寫的指定字符串,。只有小寫字母被轉(zhuǎn)換為大寫字母。所有大寫字母和非字母字符均保持不變,。
例如:
以下示例使用 UCase 函數(shù)返回字符串的大寫形式:
Dim LowerCase, UpperCase As String
LowerCase = "Hello World 1234" ' String to convert.
UpperCase = UCase(LowerCase) ' Returns "HELLO WORLD 1234".
使用 System.String 類中的字符串函數(shù)
以下是 System 名稱空間的 String 類中的字符串函數(shù),。
注意:要使用字符串函數(shù),請(qǐng)通過在源代碼開始處添加以下代碼將 System.String 名稱空間導(dǎo)入到項(xiàng)目中:
Imports System.String
Compare
Compare 函數(shù)比較輸入?yún)?shù)中的兩個(gè)字符串,。通過使用單詞排序規(guī)則來執(zhí)行比較,。發(fā)現(xiàn)不相等情況或比較完兩個(gè)字符串后,比較將終止,。
Compare 示例:
' Code is not compiled unless it is put in a Sub or in a Function.
Dim s1, s2 As String
s1 = "testexample"
s2 = "testex"
MsgBox(Compare(s2, s1)) 'Returns -1.
MsgBox(Compare(s1, s2)) 'Returns 1.
Concat
Concat 函數(shù)將一個(gè)或多個(gè)字符串相連接,,然后返回連接后的字符串。
Concat 示例:
以下示例顯示了如何使用 Concat 的重載版本:
' Code is not compiled unless it is put in a Sub or in a Function.
Dim s1, s2, sa(3) As String
sa(0) = "A"
sa(1) = "B"
sa(2) = "C"
s1 = "test"
s2 = "example"
s1 = Concat(s1, s2) 'Returns testexample.
MsgBox(s1)
MsgBox(Concat(sa)) 'Returns ABC.
Copy
Copy 函數(shù)將指定字符串中的值復(fù)制到另一個(gè)字符串中,。
Copy 示例:
' Code is not compiled unless it is put in a Sub or in a Function.
Dim s1, s2 As String
s1 = "Hello World"
'Copy the string s1 to s2.
s2 = Copy(s1)
MsgBox(s2) 'Displays Hello World.
Remove
Remove 函數(shù)從指定字符串的指定位置開始刪除指定數(shù)目的字符,。Remove 函數(shù)有兩個(gè)參數(shù)。分別是 StartIndex 參數(shù)和 Count 參數(shù),。Startindex 參數(shù)指定開始刪除字符的字符串位置,。Count 參數(shù)指定要?jiǎng)h除的字符數(shù)。
Remove 示例:
' Code is not compiled unless it is put in a Sub or in a Function.
Dim s1, s2 As String
s1 = "Hello World"
'Removes 3 characters starting from character e.
s2 = s1.Remove(1, 3)
MsgBox(s2) 'Displays Hello World.
Substring
Substring 函數(shù)從指定字符串的指定位置開始檢索字符串,。
Substring 示例:
以下示例將從指定的字符位置開始并按指定的長度來檢索子字符串:
' Code is not compiled unless it is put in a Sub or in a Function.
Dim s1, s2 As String
s1 = "Hello World"
s2 = s1.Substring(6, 5) 'Returns World.
MsgBox(s2)
ToCharArray
ToCharArray 函數(shù)將字符串中的字符復(fù)制到 Unicode 字符數(shù)組中,。
ToCharArray 示例:
以下示例將指定位置中的字符復(fù)制到 Character 數(shù)組中:
' Code is not compiled unless it is put in a Sub or in a Function.
Dim s1 As String
Dim ch(10) As Char
s1 = "Hello World"
'Copies the characters starting from W to d to a Character array.
ch = s1.ToCharArray(6, 5)
MsgBox(ch(3)) 'Displays l.
ToLower
ToLower 函數(shù)采用一個(gè)字符串作為參數(shù),然后以小寫形式返回該字符串的副本,。
ToLower 示例:
' Code is not compiled unless it is put in a Sub or in a Function.
Dim s1, s2 As String
s1 = "Hello World"
s2 = s1.ToLower() 'Converts any uppercase characters to lowercase.
MsgBox(s2) 'Displays hello world.
ToUpper
ToUpper 函數(shù)采用一個(gè)字符串作為參數(shù),,然后以大寫形式返回該字符串的副本。
ToUpper 示例:
' Code is not compiled unless it is put in a Sub or in a Function.
Dim s1, s2 As String
s1 = "Hello World"
s2 = s1.ToUpper() 'Converts any lowercase characters to uppercase.
MsgBox(s2) 'Displays HELLO WORLD.
Trim,、TrimStart 和 TrimEnd
這些函數(shù)會(huì)返回一個(gè)包含指定字符串的副本的字符串,。使用 Trim 函數(shù)時(shí),既沒有起始空格也沒有尾隨空格,。使用 TrimStart 函數(shù)時(shí),,沒有起始空格。使用 TrimEnd 函數(shù)時(shí),,沒有尾隨空格,。
例如:
以下示例使用 TrimStart 函數(shù)刪除字符串變量開始處的空格,,使用 TrimEnd 函數(shù)刪除字符串變量末尾的空格,以及使用 Trim 函數(shù)刪除字符串變量中的起始空格和尾隨空格:
' Code is not compiled unless it is put in a Sub or in a Function.
Dim s1, s2 As String
s1 = " Hello World "
s2 = s1.Trim() 'Returns Hello World without any white spaces.
s2 = s1.TrimStart 'Removes the spaces at the start.
s2 = s1.TrimEnd 'Removes the white spaces at the end.