VB常用函数,并附有简单例子
比如:
10．Filter : 查找字符串数组的特定字符串。
P=Filter(X,S[,Include[,Compare]])
参数X为一字符串数组，而参数S则是欲查找的字符串，调用之后，凡是X数组元素中含有字符串S者都会组合在一起成为另一个字符串数组，然后返回。Filter 也可以把查找之后，把不含S字符串的数组元素挑出来，此时参数三Include应当设置成False. 如果要不分大小写查找，则Compare 设置为 vbTextCompare.
例：
ReDimX(2)
X(0)=”KJDFS” : X(1)=”WANDFKJ” : X(2)=”fsda”
V=Filter(X,”kj”,false)
结果: V(0)=”fsda”
### VB常用函数详解
在Visual Basic (VB)编程语言中，使用内置函数能够极大地提高代码效率及可读性。本文将详细介绍《VB常用函数.doc》文档中提及的一些基础且常用的VB函数，并通过示例帮助理解。
#### 绝对值：ABS
**功能描述**：ABS函数用于获取指定数值的绝对值。
**语法格式**：`p = ABS(X)`
**示例**：
```vb
Dim num As Integer
num = -10
Dim result As Integer
result = ABS(num) ' 结果为10
```
#### 自然对数：Log
**功能描述**：Log函数用于求解某个数值的自然对数（底数为e）。
**语法格式**：`p = Log(X)`
**注意事项**：输入值必须为正数。
**示例**：
```vb
Dim x As Double
x = 10
Dim result As Double
result = Log(x) ' 结果约为2.302585
```
#### 符号函数：Sgn
**功能描述**：Sgn函数根据输入数值的不同，返回不同的符号值。
- 如果输入值大于0，则返回1；
- 如果输入值等于0，则返回0；
- 如果输入值小于0，则返回-1。
**语法格式**：`Y = Sgn(X)`
**示例**：
```vb
Dim y As Integer
y = Sgn(5) ' 结果为1
```
#### 三角函数：Sin、Cos、Tan、Atn
**功能描述**：这些函数分别用于求解正弦、余弦、正切以及反正切值。
- `Sin(x)`：求解x弧度的正弦值。
- `Cos(x)`：求解x弧度的余弦值。
- `Tan(x)`：求解x弧度的正切值。
- `Atn(x)`：求解x的反正切值。
**示例**：
```vb
Dim angle As Double
angle = 1.5707963267949 ' π/2
Dim sinValue As Double
sinValue = Sin(angle) ' 结果接近于1
```
#### 类型转换函数：CBool、CByte、CCur、CDate、CInt、CDbl、CLng、CSng、CStr
**功能描述**：这些函数用于将变量转换为指定的数据类型。
- `P = CBool(X)`：转换为布尔值。
- `P = CByte(X)`：转换为字节型。
- `P = CCur(X)`：转换为货币型。
- `P = CDate(X)`：转换为日期型。
- `P = CInt(X)`：转换为整型。
- `P = CDbl(X)`：转换为双精度浮点型。
- `P = CLng(X)`：转换为长整型。
- `P = CSng(X)`：转换为单精度浮点型。
- `P = CStr(X)`：转换为字符串型。
**示例**：
```vb
Dim dateValue As Date
dateValue = #1/1/1900#
Dim doubleValue As Double
doubleValue = CDbl(dateValue) ' 结果为2
```
#### 取整函数：Int、Fix
**功能描述**：
- `Int(X)`：取小于或等于X的最大整数。
- `Fix(X)`：去除X的小数部分。
**示例**：
```vb
Dim intValue As Integer
intValue = Int(-54.6) ' 结果为-55
Dim fixValue As Integer
fixValue = Fix(54.6) ' 结果为54
```
#### 字符编码转换函数：Asc、Chr
**功能描述**：
- `P = Asc(X)`：返回字符串中首个字符的ASCII码。
- `P = Chr(X)`：返回ASCII码对应的字符。
**示例**：
```vb
Dim asciiCode As Integer
asciiCode = Asc("A") ' 结果为65
Dim charValue As String
charValue = Chr(65) ' 结果为"A"
```
#### 字符串过滤函数：Filter
**功能描述**：Filter函数用于从字符串数组中筛选出包含指定子串的元素。
**语法格式**：`P = Filter(X, S[, Include[, Compare]])`
- 参数X为字符串数组。
- 参数S为目标字符串。
- 参数Include（可选）：默认为True，表示筛选出包含目标字符串的元素；设置为False时，筛选出不包含目标字符串的元素。
- 参数Compare（可选）：默认为vbBinaryCompare，表示进行区分大小写的比较；设置为vbTextCompare时，进行不区分大小写的比较。
**示例**：
```vb
Dim arr() As String
ReDim arr(2)
arr(0) = "KJDFS"
arr(1) = "WANDFKJ"
arr(2) = "fsda"
Dim filteredArr() As String
filteredArr = Filter(arr, "kj", False) ' 不区分大小写
' 结果为filteredArr(0) = "fsda"
```
#### 字符串位置查询函数：Instr
**功能描述**：Instr函数用于查询字符串中子串首次出现的位置。
- `P = InStr(X, Y)`：从X的第一个字符开始查询Y的位置。
- `P = InStr(N, X, Y)`：从X的第N个字符开始查询Y的位置。
**示例**：
```vb
Dim source As String
source = "Visual Basic is fun!"
Dim position As Integer
position = InStr(source, "Basic") ' 结果为7
```
#### 字符串反转查询函数：InStrRev
**功能描述**：InStrRev函数用于从右至左查询字符串中子串首次出现的位置。
**语法格式**：`P = InStrRev(X, Y[, N[, Compare]])`
- 参数X为源字符串。
- 参数Y为目标子串。
- 参数N（可选）：从X的第N个字符开始查询。
- 参数Compare（可选）：是否区分大小写。
**示例**：
```vb
position = InStrRev(source, "Basic") ' 结果为7
```
#### 字符串连接函数：Join
**功能描述**：Join函数用于将字符串数组合并为一个单一字符串。
**语法格式**：`P = Join(X[, D])`
- 参数X为字符串数组。
- 参数D（可选）：指定作为分隔符的字符串。
**示例**：
```vb
Dim arr() As String
ReDim arr(2)
arr(0) = "da"
arr(1) = "fdsa"
arr(2) = "fdas"
Dim joinedString As String
joinedString = Join(arr, ",") ' 结果为"da,fdsa,fdas"
```
#### 字符串长度计算函数：Len
**功能描述**：Len函数用于计算字符串的长度。
**语法格式**：`P = Len(X)`
**示例**：
```vb
Dim length As Integer
length = Len("Hello World!") ' 结果为12
```
#### 左截取函数：Left
**功能描述**：Left函数用于截取字符串左侧的指定数量字符。
**语法格式**：`P = Left(X, N)`
**示例**：
```vb
Dim leftPart As String
leftPart = Left("Hello World!", 5) ' 结果为"Hello"
```
#### 中间截取函数：Mid
**功能描述**：Mid函数用于从字符串中截取指定位置后的子串。
**语法格式**：
- `P = Mid(X, N)`：从X的第N个字符开始，读取所有后续字符。
- `P = Mid(X, N, M)`：从X的第N个字符开始，读取M个字符。
**示例**：
```vb
Dim midPart As String
midPart = Mid("Hello World!", 7) ' 结果为"World!"
midPart = Mid("Hello World!", 7, 5) ' 结果为"World"
```
#### 去空格函数：LTrim、RTrim、Trim
**功能描述**：
- `LTrim(X)`：移除字符串左侧的空白字符。
- `RTrim(X)`：移除字符串右侧的空白字符。
- `Trim(X)`：移除字符串两侧的空白字符。
**示例**：
```vb
Dim trimmedString As String
trimmedString = Trim(" Hello World! ") ' 结果为"Hello World!"
```
#### 右截取函数：Right
**功能描述**：Right函数用于截取字符串右侧的指定数量字符。
**语法格式**：`P = Right(X, N)`
**示例**：
```vb
Dim rightPart As String
rightPart = Right("Hello World!", 5) ' 结果为"World"
```
#### 替换函数：Replace
**功能描述**：Replace函数用于替换字符串中的子串。
**语法格式**：`P = Replace(X, S, R)`
- 参数X为源字符串。
- 参数S为目标子串。
- 参数R为替换后的子串。
**示例**：
```vb
Dim replacedString As String
replacedString = Replace("Hello World!", "World", "Visual Basic") ' 结果为"Hello Visual Basic!"
```
#### 空格填充函数：Space
**功能描述**：Space函数用于生成指定数量的空格。
**语法格式**：`P = Space(N)`
**示例**：
```vb
Dim spaces As String
spaces = Space(5) ' 结果为" "
```
#### 字符串分割函数：Split
**功能描述**：Split函数用于将字符串按照指定分隔符进行分割。
**语法格式**：`P = Split(X, D)`
- 参数X为待分割的字符串。
- 参数D为分隔符。
**示例**：
```vb
Dim parts() As String
parts = Split("Hello,World!,How,Are,You?", ",")
' 结果为parts(0) = "Hello", parts(1) = "World!", parts(2) = "How", parts(3) = "Are", parts(4) = "You?"
```
以上就是《VB常用函数.doc》中提及的一些常用VB函数及其应用示例。这些函数在实际编程中非常实用，能够帮助开发者更高效地完成任务。掌握这些函数的使用方法对于提升编程能力具有重要意义。
