写在前面的

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

函数的功能及其用法。

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="https://www.jb51.cc/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 String,Find As String,Replace As String,[Start As Long = 1],[Count As Long = -1],[Compare As VbCompareMethod = vbBinaryCompare]) As 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 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 String,[Include As 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 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 String,[Delimiter],[Limit As Long = -1],[Compare As VbCompareMethod = vbBinaryCompare])

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

  • 用法举例：：
    

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

Join函数

Function Join(SourceArray,[Delimiter]) As String

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

Dim a As String
Dim b(1) As 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 String) As String

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

Lcase和Ucase函数

Function LCase(String)
Function UCase(String)

• Lcase函数用于将字符串转化为小写，Ucase函数用于将字符串转化为大写。

• 参数String为源字符串，注：其中的中文字符是不会转化的。
  用法举例：

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

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

Len函数

Function Len(Expression)

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

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

Ltrim、Rtrim和Trim函数

Function LTrim(String)
Function RTrim(String)
Function Trim(String)

• LTrim函数用于去除字符串左边的空格；RTrim函数用于去除字符串右边的空格；Trim函数用于去除字符串左右两边的空格。

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

写在后面的

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