写在前面的

由于最近在函数功能的使用上有了各种各样的麻烦，在网上查阅了一些资料，也总结在这里了，这篇文章就当复习之前的函数功能了，从最简单的开始，希望自己的整理能对大家有用。

函数的功能及其用法。

Asc函数与Chr函数

Function Asc(String As String) As Integer
Function Chr(CharCode As Long)
Asc函数用来取一个字符串的第一个字符的Ascii编码。它是美国信息交换标准码 (American Standard Code for Information Interchange)。例如：Asc(“A”)返回值为65。注意：中文字符等也能使用该函数，同样能返回一个对应的整型值。
Chr函数是Asc函数的逆运算。代码Chr(65)可以返回字符串值”A”。它的返回类型是一般是字符串。我们常用这个函数来取一些无法直接输入或输入困难的字符，如回车符Chr(13)等等。

Mid函数、Right函数和Left函数

Function Mid(String,Start As Long,[Length])
Function Right(String,Length As Long)
Function Left(String,Length As Long)
用法举例：

Print Mid(“ABCDEFGHIJK”,2,3)
Print Mid(“ABCDEFGHIJK”,10)
Print Mid(“ABCDEFGHIJK”,2)
Print Mid(“ABCDEFGHIJK”,11)

运行结果为：

BCD
BCDEFGHIJK
BCDEFGHIJK
BCDEFGHIJK

Right（Left）是取右边（左边）指定长度的字符，如：

Print Right (“ABCDEFGHIJK”,2)
Print Left (“ABCDEFGHIJK”,2)

运行结果为：

KJ
AB

这三个函数还存在另一个形式，即Mid $、Right$ 和Left $。它们的<a href="/tag/yongfa/" target="_blank" class="keywords">用法</a>是与不加“$ ”一样的，功能上的区别仅在于加了“$”后多做一步转化为字符串的操作。

Format函数

Function Format(Expression,[Format],
[FirstDayOfWeek As VbDayOfWeek = vbSunday],
[FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1])
常用的使用方法：

Format（12.34）为 ”12.34”
0 Format（12.34,“0000.000”）为 “0012.340”
: Format（1,“00:”）为 “05:”,Format（12345.67,“##,###.###”）为 “12,345.67”
% Format（123.4567,“00.0%”）为 “12345.7%”（四舍五入）
@ Format（”ABcd”,“@@@@@@”）为 “Abcd”
< Format（”ABcd”,“<@@@@@@”）为 “abcd”
> Format（”ABcd”,“>@@@@@@”）为 “ABCD”
! Format（”ABcd”,“!@@@@@@”）为 “Abcd”

注意：该函数同样也有另一种形式，即Format $。加了“$ ”后多做一步转化为字符串的操作。

Replace函数

Function Replace(Expression As @H_502_415@String,Find As @H_502_415@String,Replace As @H_502_415@String,[Start As @H_502_415@Long = 1],[Count As @H_502_415@Long = -1],[Compare As VbCompareMethod = vbBinaryCompare]) As @H_502_415@String

Replace函数的返回值是源字符串（从参数Start位置开始）经过替换后的新字符串。若在源字符串中没有匹配与查找的子字符串，函数将不作替换，返回源字符串。
下面举几个例子来说明这个函数的用法：
语句返回值

Replace("A1BC1DEFG","1","0") "A0BC0DEFG"
Replace("A1BC1DEFG","") "ABCDEFG"
Replace("A1BC1DEFG","0",3) "BC0DEFG"
Replace("A1BC1DEFG",1,1) "A0BC1DEFG"

Instr函数

Function InStr([Start],[String1],[String2],[Compare As VbCompareMethod = vbBinaryCompare])

下面取一个详细的实例。任务是在Text1框中的字符串中查找Text2的字符串。希望读者能通过这个实例加深对该函数的理解。

首先新建一工程，在Form1上添加两个文本框（Text1、Text2）和一个按钮（Command1）。打开代码窗口，在通用声明中输入以下代码，声明变量：

Dim i As @H_502_415@Integer '记录查找位置
输入实现代码：
Private Sub Form_Load()
i = 1 '初始开始查找位置
Command1.Caption = "查找下一个"
End Sub
Private Sub Command1_Click()
i = InStr(i,Trim(Text1.Text),Trim(Text2.Text)) '进行查找
If i = 0 Then MsgBox "未找到字符串！": i = 1: Exit Sub '没找到
Text1.SelStart = i – 1 '设置Text1文本框对查道的字符高亮显示
Text1.SelLength = Len(Trim(Text2.Text))
Text1.SetFocus
i = i + 1 '查找起始位置累计加1
End Sub

在Text1文本框中输入源字符串（如“ABCDEWBFGHIWBJKLMNWB”），在Text2文本框中输入要查找的字符串（如“WB”），单击“查找下一个”按钮进行查找。

Space函数

Function Space(Number As Long)

用此函数返回由指定数目空格组成的字符串。参数Number用于指定空格的数目。它还有另一种形式，即Space $。加了“$ ”后多做一步转化为字符串的操作。

Filter函数

Function Filter(SourceArray,Match As @H_502_415@String,[Include As @H_502_415@Boolean = True],[Compare As VbCompareMethod = vbBinaryCompare])

返回一个匹配字符串的数组。注意返回值是一个数组类型，其中的元素来自源数组。
参数SourceArray代表了源数组，Martch代表一个欲比较的字符串，Include参数代表了匹配的模式——True为包括，False为不包括。若设为True，该函数将源数组（SourceArray）中凡是含有比较字符串（Match）的元素组成新的一个数组并返回；若设为False，该函数将源数组（SourceArray）中凡未是含有比较字符串（Match）的元素组成新的一个数组并返回。Include参数缺省为True。 Compare参数为VB比较模式的一个常量。

IsNumeric函数

Function IsNumeric(Expression) As @H_502_415@Boolean

Isnumeric函数能够用于判断表达式是否为数字。参数Expression为表达式。如果表达式能够转化成数字则返回True。这里读者要注意它的用法，有些可能比较特殊，比如小数点和正负号等。举例说明：

IsNumeric ("1A") False
IsNumeric ("&H1A") True 十六进制值
IsNumeric ("2e1") True 科学计数法
IsNumeric ("2e+1") True 指数正号可省略
IsNumeric ("2E+1") True E大小写均可
IsNumeric ("2E-1") True 指数为负
IsNumeric ("2-") True 注意负号的位置
IsNumeric ("-2") True 前后都可
IsNumeric ("2+") True 注意正号的位置
IsNumeric ("+2") True 前后都可
IsNumeric ("2+2") False
IsNumeric (".") False 小数点
IsNumeric (".1") True 小数点前的0省略
IsNumeric ("1.1") True
IsNumeric ("1.1-") True 注意负号

StrComp函数

Function StrComp(String1,String2,[Compare As VbCompareMethod = vbBinaryCompare])

StrComp函数用于比较两个字符串。如果比较对象两者相同，返回0；否则返回-1。
参数String1和String2代表了两个欲进行比较的字符串，参数Compare为VB比较模式的一个常量。

Split函数

Function Split(Expression As @H_502_415@String,[Delimiter],[Limit As @H_502_415@Long = -1],[Compare As VbCompareMethod = vbBinaryCompare])

分割一个字符串到数组。
参数Expression为源字符串，Delimiter为分隔符（缺省情况下为空格），Limit代表分割的数量（当分割数目达到设定值时，函数不会再将之后的字符串分割），参数Compare为VB比较模式的一个常量。

用法举例：：

Dim a() As @H_502_415@String
Dim b() As @H_502_415@String
a = Split("01*23*456*789","*")
b = Split("01*23*456*789","*",3)
'运行这段代码，a，b是两个数组，它们的结果见下表：
A @H_502_415@String(0 to 3)
a(0) "01" @H_502_415@String
a(1) "23" @H_502_415@String
a(2) "456" @H_502_415@String
a(3) "789" @H_502_415@String
B @H_502_415@String(0 to 2)
b(0) "01" @H_502_415@String
b(1) "23" @H_502_415@String
b(2) "456*789" @H_502_415@String

Join函数

Function Join(SourceArray,[Delimiter]) As String

将一个数组中的元素合成为一个字符串。这个函数其实是Split函数的逆运算。
参数SourceArray代表源数组，Delimiter为分隔符（缺省情况下为空格）。
用法举例：：

Dim a As @H_502_415@String
Dim b(1) As @H_502_415@String
b(0) = "012"
b(1) = "456"
a = Join(b(),"*")
'运行结果：a的值为
"012*456"。

String函数

Function String(Number As Long,Character)

返回一个指定长度的重复字符串。
Number参数用于指定返回字符串的长度，参数Character代表重复的字符。
- 用法举例：
  String(6,“a”)得到的结果为”aaaaaa”。
  它还有另一种形式，即String $。加了“$ ”后多做一步转化为字符串的操作。

StrReverse函数

Function StrReverse(Expression As @H_502_415@String) As @H_502_415@String

翻转一个字符串。
参数Expression代表源字符串，函数将这个字符转翻转并返回。
用法举例：StrReverse(“abcdefg”)结果为”gfedcba”。

Lcase和Ucase函数

Function @H_502_415@LCase(@H_502_415@String)
Function @H_502_415@UCase(@H_502_415@String)

Lcase函数用于将字符串转化为小写，Ucase函数用于将字符串转化为大写。
参数String为源字符串，注：其中的中文字符是不会转化的。
用法举例：

@H_502_415@LCase("ABCdefg文字") "abcdefg文字"
@H_502_415@UCase("ABCdefg文字") "ABCDEFG文字"

这两个函数都还有另一种形式，即Lcase $和Ucase$ 。加了“$”后多做一步转化为字符串的操作。

Len函数

Function Len(Expression)

返回存储一个变量所需的字符串的长度和字节数。
参数Expression为源字符串。
用法举例：

@H_502_415@Len("ABCdefg文字")结果为9。

Ltrim、Rtrim和Trim函数

Function @H_502_415@LTrim(@H_502_415@String)
Function @H_502_415@RTrim(@H_502_415@String)
Function @H_502_415@Trim(@H_502_415@String)

LTrim函数用于去除字符串左边的空格；RTrim函数用于去除字符串右边的空格；Trim函数用于去除字符串左右两边的空格。
参数String代表源字符串，函数返回去除空格后的结果。
这三个函数都还有另一种形式，即LTrim $、RTrim$ 和Trim $。加了“$ ”后多做一步转化为字符串的操作。

写在后面的

通过自己查阅的资料总结出了最近在CODING阶段比较常用的一些函数，也是通过这样的复习希望能够提高自己的编程效率吧，同时也能赠人玫瑰手留余香。

【VB.NET】常用函数概览