vb数学函数

『壹』 VB内部函数

FileNameFileTitle
Filter
dlgopen.showopen
text1.text=dlgopen.filenameInitDir初始化路径
default
Option ExplicitPrivate Sub Command1_Click()
Dialog1.ShowOpen
Text1.Text = Dialog1.FileName
End Sub
文本框显示路径文字
Private Sub Command2_Click()
Dialog2.ShowColor
Text1.ForeColor = Dialog2.Color
End Sub
文本框前景颜色
Private Sub Command3_Click()
End
End Sub
Dialog2.ShowPrint
Dialog2.ShowHelp
Vb常用内部函数
请单击要查看的函数组：
类型转换函数 数学函数 日期与时间函数 随机数函数
字符串函数 文件操作函数 窗体输入输出函数 Chr vbcrlf
单击下面的大标题可以返回此处：
类型转换函数
Int(x):求不大于自变量x的最大整数
Fix(x):去掉一个浮点数的小数部分，保留其整数部分
Hex$(x):把一个十进制数转换为十六进制数
Oct$(x):把一个十进制数转换为八进制数
Asc(x$):返回字符串x$中第一个字符的ASCII字符
Chr$(x):把x的值转换为相应的ASCII字符
VB按下按钮后，标题显示A再按一次显示B，再按一次又显示A
Option Explicit
方法一
Private Sub Form_Click()
Me.Caption = Chr$((-Asc(Me.Caption) + 131))
End SubPrivate Sub Form_Load()
Me.Caption = "A"
End Sub
65～90为26个大写英文字母，97～122号为26个小写英文字母，其余为一些标点符号、运算符号等xor异或 Str$(x):把x的值转换为一个字符串
Cint(x):把x的小数部分四舍五入，转换为整数
Ccur(x):把x的值转换为货币类型值，小数部分最多保留4 位且自动四舍五入
CDbl(x):把x值转换为双精度数
CLng(x):把x的小数部分四舍五入转换为长整数型数
CSng(x):把x值转换为单精度数
Cvar(x):把x值转换为变体类型值
VarPtr(var):取得变量var的指针
数学函数
Sin(x):返回自变量x的正弦值
Cos(x): 返回自变量x的余弦值
Tan(x): 返回自变量x的正切值
Atn(x): 返回自变量x的反正切值
Abs(x): 返回自变量x的绝对值
Sgn(x): 返回自变量x的符号，即当x为负数时，返回-1；当x为0时，返回
0;当x为正数时，返回1
Sqr(x):返回自变量x的平方根，x必须大于或等于0
Exp(x):返回以e为底，以x为指数的值，即求e的x次方
日期与时间函数
Day(Now):返回当前的日期
WeekDay(Now):返回当前的星期
Month(Now):返回当前的月份
Year(Now):返回当前的年份
Hour(Now):返回小时(0~23)
Minute(Now):返回分(0~59)
Second(Now):返回秒?(0~59)随机数函数
Rnd[(x)]:产生一个0~1之间的单精度随机数
http://ke..com/view/860298.htm
Randmize[(x)]:功能同上，不过更好
http://ke..com/view/1081216.htm
字符串函数
LTrim$(字符串):去掉字符串左边的空白字符
Rtrim$(字符串):去掉字符串右边的空白字符
Left$(字符串,n):取字符串左部的n个字符
Right$(字符串,n):取字符串右部的n个字符
Mid$(字符串,p,n):从位置p开始取字符串的n个字符
Len(字符串):测试字符串的长度
String$(n,字符串):返回由n个字符组成的字符串
Space$(n):返回n个空格
InStr(字符串1,字符串2):在字符串1中查找字符串2
Ucase$(字符串):把小写字母转换为大写字母
Lcase$(字符串):把大写字母转换为小写字母
窗体输入输出函数
Print(字符串):在窗体输出字符串，可以用”&”对变量进行连接后输出
Tab(n):把光标移到该行的n开始的位置
Spc(n):跳过n个空格
Cls:清除当前窗体内的显示内容
Move 左上角x，左上角y,宽度，高度:移动窗体或控件
InputBox(prompt,…):跳出一个数据输入窗口，返回值为该窗口的输入值
MsgBox(msg,[type]…):跳出一个提示窗口文件操作函数
Open 文件名 [For方式] [Access存取类型] [锁定] AS [#]文件号 [Len=记录长度]
功能：为文件的输入输出分配缓冲区，并确定缓冲区所使用的存取方式
说明：
方式：指定文件的输入输出方式，可选,默认是Random,可以是以下值
Output:指定顺序输出方式，将覆盖原有内容
Input:指定顺序输入方式
Append:指定顺序输出方式，在文件未尾追加内容
Random:指定随机存取方式，也是默认方式，在Random方式时，如果没有Access子句，则在执行Open语句时，VB将按下列顺序打开文件：读/写、只读、只写
指定二进制文件。在这种方式下，可以用Get和Put语句对文件中任何字节位置的信息进行读写。在Binary方式中，如果没有Access子句，则打开文件的类型与Random方式相同
2)、存取类型：放在关键字Access之后，用来指定访问文件的类型。可以是下列类型之一
Read:打开只读文件
Write:打开只写文件
Read Write:打开读写文件。这种类型只对随机文件、二进制文件及用Append方式打开的文件有效
3)、锁定：该子句只在多用户或多进和环境中使用，用来限制其他用户或其他进程对打开进行读写操作。锁定类型包括：
默认：如不指定锁定类型，则本进程可以多次打开文件进行读写；在文件打开期间，其他进程不能对该文件执行读写操作
Lock Shared:任何机器上的任何进程都可以对该文件进行读写操作
Lock Read:不允许其他进程读该 文件。只在没有其他Read存取类型的进程访问该文件时，才允许这种锁定。
Lock Write:不允许其他进程写这个文件。只在没有其他Write存取类型的进程访问该文件时，才允许这种锁定
Lock Read Write:不允许其他进程读写这个文件
如果不使用lock子句，则默认为Lock Read write
4)、文件号：由用户自行指定一个由1~511之间的整数，只要该文件号未被使用就合法；打开文件后，可以用该文件号进行读写等操作
5)、记录长度：是一个整型表达式。当选择该参量时，为随机存取文件设置记录长度。对于用随机访问方式打开的文件，该值是记录长度；对于顺序文件，该值是缓冲字符数。”记录长度”不能超过32767字节。对于二进制文件，将忽略Len子句
举例：Open “price.dat” for Output as #1
Open “C:\abc.dat” for radom as #1 len=256Close [#文件号][，#文件号]……:关闭文件
Seek #文件号，位置：文件指针跳到指定位置，以字节为单位。取值1~pow(2,31)-1
Seek (文件号):返回当前文件指针的位置
FreeFile():取得一个未使用的文件号
Loc(文件号)：返回指定文件的当前读写位置
LOF（文件号）：返回文件长度
EOF（文件号）：用来测试文件是否结束，结束返回true
Print #文件号，变量1，变量2，…变量n:按顺序将各变量的值写入顺序文件
如果是print #文件号，则写入空行
Write #文件号，表达式表…：作用同?Print
Input #文件号，变量表….：读顺序文件，进行与Print相反的操作
Line Input #文件号，字符串变量：从顺序文件中读入一行
Input$(n,#文件号)：从顺序文件读出?n个字符的字符串
Put #文件号，[记录号]，变量：把除对象变量和数组变量外的任何变量（包括号含有单个数组元素的下标变量）的内容写入随机文件。
例如：Put #2,,filebuff
Get #文件号，[记录号]，变量：读随机文件，执行与put相反的操作
Get|put #文件号，[位置]，变量：读写二制文件，位置是指下一次读写操作的位置。
Kill 文件名：删除文件
FileCopy 源文件名，目标文件名：复制文件
Name原文件名 as 新文件名：重命令文件
Print
Print""; Tab(1);
Print
Spc函数
Spc（n）
Space$（8）格式输入函数
Format$()
Format 函数示例
本示例显示用 Format 函数做格式化输出的不同用法.对于日期分隔号（/），时间分隔号（:），以及 AM/ PM 等文本而言，其真正的显示格式会因计算机上的国际标准不同而有所差异.在开发阶段，日期与时间是以短日期的格式，配合代码的国际标准来显示的.而在运行时，短日期则是根据系统的国际标准而定，而系统的国际标准和代码的国际标准可能并不相同.本示例中是假设国际标准为 English/United States.MyTime 及 MyDate 在开发环境下，使用系统的短日期设置显示出来的.Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#' 以系统设置的长时间格式返回当前系统时间.
MyStr = Format(Time, "Long Time")' 以系统设置的长日期格式返回当前系统日期.
MyStr = Format(Date, "Long Date")MyStr = Format(MyTime, "h:m:s") ' 返回 "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' 返回 "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy") ' 返回 "Wednesday, Jan 27 1993".
' 如果没有指定格式，则返回字符串.
MyStr = Format(23) ' 返回 "23".' 用户自定义的格式.
MyStr = Format(5459.4, "##,##0.00") ' 返回 "5,459.40".
MyStr = Format(334.9, "###0.00") ' 返回 "334.90".
MyStr = Format(5, "0.00%") ' 返回 "500.00%".
MyStr = Format("HELLO", "<") ' 返回 "hello".
MyStr = Format("This is it", ">") ' 返回 "THIS IS IT".
用户自定义字符串格式 (Format 函数)。 可以用下面任意字符来创建格式表达式用于字符串：字符 说明@ 字符占位符。显示字符或是空白。如果字符串在格式字符串中 @的位置有字符存在，那么就显示出来；否则，就在那个位置上显示空白。除非有惊叹号字符 (!) 在格式字符串中，否则字符占位符将由右而左被填充。& 字符占位符。显示字符或什么都不显示。如果字符串在格式字符串中和号 (&) 的位置有字符存在，那么就显示出来；否则，就什么都不显示。除非有惊叹号字符 (!) 在格式字符串中，否则字符占位符将由右而左被填充。< 强制小写。将所有字符以小写格式显示。> 强制大写。将所有字符以大写格式显示。! 强制由左而右填充字符占位符。缺省值是由右而左填充字符占位符。 From MSDN For VB6 Format 函数
返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。语法Format(expression[, format[, firstdayofweek[, firstweekofyear]]])Format 函数的语法具有下面几个部分：部分 说明
expression 必要参数。任何有效的表达式。
format 可选参数。有效的命名表达式或用户自定义格式表达式。
firstdayofweek 可选参数。常数，表示一星期的第一天。
firstweekofyear 可选参数。常数，表示一年的第一周。 设置值firstdayofweek 参数有下面设置：常数 值 说明
vbUseSystem 0 使用 NLS API 设置。
VbSunday 1 星期日（缺省）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六 firstweekofyear 参数有下面设置：常数 值 说明
vbUseSystem 0 使用 NLS API 设置。
vbFirstJan1 1 从包含一月一日的那一周开始（缺省）。
vbFirstFourDays 2 从本年第一周开始，而此周至少有四天在本年中。
VbFirstFullWeek 3 从本年第一周开始，而此周完全在本年中。 说明格式化 作法
数字 使用预先定义的命名数值格式或创建用户自定义数值格式。
日期和时间 使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式。
日期和时间序数 使用日期和时间格式或数值格式。
字符串 创建自定义的字符串格式。 如果在格式化数字时没有指定 format，Format 会提供与 Str 函数类似的功能，尽管它是国际化的。然而，以 Format 作用在正数上不会保留正负号空间，而以 Str 的话则会InputBox
a=InputBox（"请输入你的名字"，"提示"，"盖茨"，3000，5000）
Print ""&type语句
可以··
Type 语句
在模块级别中使用，用于定义包含一个或多个元素的用户自定义的数据类型。语法[Private | Public] Type varname
elementname [([subscripts])] As type
[elementname [([subscripts])] As type]
. . .End TypeType 语句的语法包含下面部分：部分 描述
Public 可选的。用于声明可在所有工程的所有模块的任何过程中使用的用户定义类型。
Private 可选的。用于声明只能在包含该声明的模块中使用的用户自定义的类型。
varname 必需的。用户自定义类型的名称；遵循标准的变量命名约定
elementname 必需的。用户自定义类型的元素名称。除了可以使用的关键字，元素名称也应遵循标准变量命名约定。
subscripts 可选的。数组元素的维数。当定义大小可变的数组时，只须圆括号。subscripts 参数使用如下语法：
[lower To] upper [,[lower To] upper] . . .
如果不显式指定 lower，则数组的下界由 Option Base 语句控制。如果没有 Option Base 语句则下界为 0。
type 必需的。元素的数据类型；可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（对变长的字符串）、String * length（对定长的字符串）、Object、Variant、其它的用户自定义的类型或对象类型。
说明Type 语句只能在模块级使用。使用 Type 语句声明了一个用户自定义类型后，就可以在该声明范围内的任何位置声明该类型的变量。可以使用 Dim、Private、Public、ReDim 或 Static 来声明用户自定义类型的变量。在标准模块中，用户自定义类型按缺省设置是公用的。可以使用 Private 关键字来改变其可见性。而在类模块中，用户自定义类型只能是私有的，且使用 Public 关键字也不能改变其可见性。

『贰』 vb函数大全

VB中字符串函数包含： mid、instr、InStrRev、left、right、ucase、lcase、trim、string

space、strconv、len、ltrim、rtirm、split()、join()、srereverse、replaceFilterMonthName

Format、LSet、RSet、FormatCurrency、FormatDateTime、FormatNumber

FormatPercent、StrComp、StrConv、StrReverse、WeekdayName、Option Compare

(2)vb数学函数扩展阅读:

一、基础字符串函数部分（必须要掌握）

1，len函数返回 Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。

2，Left函数返回Variant(String)，其中包含字符串中从左边算起指定数量的字符

3，Right函数返回Variant(String)，其中包含从字符串右边取出的指定数量的字符

4，Mid函数返回Variant(String)，其中包含字符串中指定数量的字符。

5，LTrim、RTrim与 Trim 函数

返回Variant(String)，其中包含指定字符串的拷贝，没有前导空白 (LTrim)、尾随空白 (RTrim) 或前导和尾随空白 (Trim)。

『叁』 VB中的数学函数log

log函数功能是算出以e为底数的对数

如log(e)=1

e约= 2.718281828459

高中时不是学过吗

如果要算以其他数为底数如

lg100就要写成log(100)/log(10)

『肆』 怎么在VB中绘制数学函数图象

第一步,新建一个工程,新建一个Form1,在上面添加一个picture控件和一个command控件,然后选中此控件,右击"复制",在窗体空白处右击"粘贴",在弹出的对话框中选择"是",创建了一个Command控件数组,复制,使窗体上总共出现7个Command控件,然后复制代码:
Const Pi = 3.1415926535 '定义圆周率
Dim a, wor
Dim i As Integer
Static Function Loge(X)
Loge = Log(X) / Log(Exp(1))
End Function
'定义用于在Picture1上的一个位置打印字符函数
Private Function PrintWord(X, y, Word As String)
With Picture1
.CurrentX = X
.CurrentY = y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
End Function
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin <> 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 2
End Sub
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
For a = -3 To 3 Step Pi / 6000
Dot = DrawDot(a, a ^ 2, RGB(0, 0, 0))
Next a
wor = PrintWord(4, 9, "二次曲线 y=x^2")
Case 1
For a = -9 To 9 Step Pi / 6000
Dot = DrawDot(a, a, RGB(0, 0, 0))
Next a
wor = PrintWord(8, 5, "一次曲线 y=x")
Case 2
For a = -9 To 3 Step Pi / 6000
Dot = DrawDot(a, Exp(a), RGB(0, 0, 0))
Next a
wor = PrintWord(4, 9, "指数曲线 y=e^x")
Case 3
For a = 0.0001 To 9 Step Pi / 6000
Dot = DrawDot(a, Loge(a), RGB(0, 0, 0))
Next a
wor = PrintWord(8, 3, "对数曲线 y=ln x")
Case 4
For a = -10 To 10 Step Pi / 6000
Dot = DrawDot(a, Sin(a), RGB(0, 0, 0))
Next a
wor = PrintWord(-5, 2, "正弦曲线 y=sin x")
Case 5
For a = -10 To 10 Step Pi / 6000
Dot = DrawDot(a, Cos(a), RGB(0, 0, 0))
Next a
wor = PrintWord(-9, 2, "余弦曲线 y=cos x")
Case 6
XY
End Select
End Sub
Private Sub Form_Load()
Me.Caption = "数学函数作图?quot;"
Me.Show
Me.AutoRedraw = True
Picture1.AutoRedraw = True
Command1(0).Caption = "二次曲线"
Command1(1).Caption = "一次曲线"
Command1(2).Caption = "指数曲线"
Command1(3).Caption = "对数曲线"
Command1(4).Caption = "正弦曲线"
Command1(5).Caption = "余弦曲线"
Command1(6).Caption = "清空"
XY
End Sub
Private Sub Form_Resize()
Picture1.Width = Me.Width * 0.94
Picture1.Height = Me.Height - (Command1(0).Height * 4 + 100)
Command1(0).Top = Me.Height - (Command1(0).Height * 2.5 + 100)
Command1(0).Left = Me.Width * 0.01
For i = 1 To 6
Command1(i).Top = Me.Height - (Command1(0).Height * 2.5 + 100)
Command1(i).Left = Command1(i - 1).Left + 1000
Next
XY
End Sub

『伍』 VB语句函数大全

(一)类型转换类函数
1. CType(X)
[格式]：
P=CBool(X)
' 将X转换为"布尔"(Boolean)类型
P=CByte(X)
' 将X转换为"字节"(Byte)类型
P=CCur(X)
' 将X转换为"金额"(Currency)类型
P=CDate(X)
' 将X转换为"日期"(Date)类型
P=CDbl(X)
' 将X转换为"双精度"(Double)类型
P=CInt(X)
' 将X转换为"整型"(Integer)类型
P=CLng(X)
' 将X转换为"长整型"(Long)类型
P=CSng(X)
' 将X转换为"单精度"(Single)类型
P=CStr(X)
' 将X转换为"字符串"(String)类型
P=Cvar(X)
' 将X转换为"变体型"(Variant)类型
P=CVErr(X)
' 将X转换为Error值

[ 范例 ]：
(1). CStr(13)+CStr(23)
' 数值转换成字符串后，用"+"号连接， 结果：1323
(2). CInt("12")+12
' 字符串转换成整型后与12相加， 结果：24
(3). P=CInt(True)
' 输出结果为-1
' 布尔值与数值的转换时要注意，布尔值只有True和False，其中True在内存中为-1,False存为0
(4). CBool(-0.001)
' 输出结果为True
' 将数值转换为布尔型时，等于0的数值将得到False，不等于0的数值得到True.

2. Int(X),Fix(X)：取X的整数值
[格式]：
P=Int(X) ' 取<=X的最大整数值
P=Fix(X) ' 取X的整数部分，直接去掉小数

[范例]：
(1) Int(-54.6)
' 结果为-55，取<=-54.6的最大整数
(2) Fix(54.6)
' 结果为54，取整数并直接去掉小数

(二)常用数学函数
[格式]：
1. Abs(N) 取绝对值
例：Abs(-3.5) 结果：3.5

2. Cos(N) 余弦函数
例：Cos(0) 结果：1

3. Exp(N) e为底的指数函数
例：Exp(3) 结果：20.068

4. Log(N) 以e为底的自然对数
例：Log(10) 结果：2.3

5. Rnd[(N) 产生随机数
例：Rnd 结果：0--1之间的数

6. Sin(N) 正弦函数
例：Sin(0) 结果：0

7. Sgn(N) 符号函数
' 说明：取正负号。Y=Sgn(X) 既 X>0 则Y=1；X=0 则Y=0；X<0 则Y= -1

8. Sqr(N) 平方根
例：Sqr(9) 结果：3

9. Tan(N) 正切函数
例：Tan(0) 结果：0

10.Atn(N) 反切函数
例：Atn(0) 结果：0

[注意]：在三角函数中，以弧度表示。

(一)字符串类函数：

1. ASC(X)，Chr(X)：转换字符字符码

[格式]：
P=Asc(X) 返回字符串X的第一个字符的字符码
P=Chr(X) 返回字符码等于X的字符

[范例]：
(1)P=Chr(65)
'输出字符A,因为A的ASCII码等于65
(2)P=Asc("A")
'输出65

2. Len(X)：计算字符串X的长度
[格式]：
P=Len(X)
[说明]：
空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算一个字符。

[范例]：
(1) 令X="" (空字符串)
Len(X) 输出结果为0
(2) 令X="abcd"
Len(X) 输出结果为4
(3) 令X="VB教程"
Len(X) 输出结果为4

3. Mid(X)函数：读取字符串X中间的字符
[格式]：
P=Mid(X,n)
由X的第n个字符读起，读取后面的所有字符。
P=Mid(X,n,m)
由X的第n个字符读起，读取后面的m个字符。

[范例]：
(1) X="abcdefg"
P=Mid(X,5)
结果为：P="efg"
(2) X="abcdefg"
P=Mid(X,2,4)
结果为P="bcde"

4. Replace： 将字符串中的某些特定字符串替换为其他字符串
[格式]：
P=Replace(X,S,R)
[说明]：将字符串X中的字符串S替换为字符串R，然后返回。

[范例]：
X="VB is very good"
P=Replace(X,good,nice)
输出结果为：P="VB is very nice"

5. StrReverse：反转字符串
[格式]：
P=StrReverse(X)
[说明]：
返回X参数反转后的字符串
[范例]：
(1)X="abc"
P=StrReverse(X)
输出结果：P="cba"

6. Ucase(X)，Lcase(X)：转换英文字母的大小写
[格式]：
P=Lcase(X)
'将X字符串中的大写字母转换成小写
P=Ucase(X)
'将X字符串中的小写字母转换成大写
[说明]：除了英文字母外，其他字符或中文字都不会受到影响。

[范例]：
(1) 令 X="VB and VC"
则Lcase(X)的结果为"vb and vc"，Ucase(X)的结果为"VB AND VC"

7. InStr函数：寻找字符串
[格式]：
P=InStr(X,Y)
从X第一个字符起找出Y出现的位置
P=InStr(n,X,Y)
从X第n个字符起找出Y出现的位置
[说明]：
(1) 若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。
(2) InStr(X,Y)相当于InStr(1,X,Y)。
(3) 若字符串长度，或X为空字符串，或在X中找不到Y，则都返回0。
(4) 若Y为空字符串，则返回0。

(二)日期时间类函数：
1. Year(X)，Month(X)，Day(X)：取出年，月，日
[格式]：
P=Year(X)
取出X"年"部分的数值
P=Month(X)
取出X"月"部分的数值
P=Day(X)
取出X"日"部分的数值
[说明]：Year返回的是公元年，若X里只有时间，没有日期，则日期视为#1899/12/30#

2. Hour，Minute，Second函数：取出时，分，或秒
[格式]：
P=Hour(X)
取出X"时"部分的数值
P=Minute(X)
取出X"分"部分的数值
P=Second(X)
取出X"秒"部分的数值
[说明]：Hour的返回值是0---23之间

[范例]：
X=10:34:23
P=Hour(X)
Q=Minute(X)
R=Second(X)
则输出结果：P=10，Q=34，R=23

3. DateSerial函数：合并年，月，日成为日期
[格式]：DateSerial(Y,M,D)
其中Y是年份，M为月份，D为日期
[说明]：
(1) M值若大于12，则月份从12月起向后推算M-12个月；若小于1，则月份从1月起向后推算1-M个月。
(2) 若日期D大于当月的日数，则日期从当月的日数起，向后推算D-当月日数；若小于1，则日期从1日起向前推算1-D日。
[范例]：
P=DateSerial(2000,02,02)
则结果为P=2000/02/02

4．TimeSerial函数：合并时，分，秒成为时间
[格式]：P=TimeSerial(H,M,S)
其中H为小时数，M为分钟数，S为秒数
[说明]：推算原理同上面的DateSerial
[范例]：
P=TimeSerial(6,32,45)
结果为：P=6:32:45

5．Date,Time,Now函数：读取系统的日期时间
[格式]：
P=Date()
P=Time()
P=Now()
[说明]：这三个函数都无参数
[范例]：
若当前时间为2003年8月29日晚上19点26分45秒，则
P=Now()
结果为：P=2003-08-29 19:26:45

6．MonthName：返回月份名称
[格式]：P=MonthName(X)
[说明]：X参数可传入1---12，则返回值为"一月"、"二月"……，但是在英文Windows环境下，返回的是"January","February"……
[范例]：
P=MonthName(1)
则P="一月"

7．WeekdayName：返回星期名称
[格式]：P=WeekdayName(X)
[说明]：X参数可传入1—7，则返回值为"星期日"，"星期一"……，但是在英文windows环境下，返回的是"Sunday","Monday"……
[范例]：
P=WeekdayName(1)
结果为：P="星期日"

函数名称 函数功能
Cbool(string) 转换为布尔值
Cbyte(string) 转换为字节类型的值
Ccur(string) 转换为货币类值
Cdate(string) 转换为日前类型的值
Cdbl(string) 转换为双精度值
Cint(string) 转换为整数值
Clng(string) 转换为长整型的值
Csng(string) 转换为单精度的值
Cstr(var) 转换为字符串值
Str(var) 数值转换为字符串
Val(string) 字符串转换为数值
***************************************

Abs(nmb) 返回数子的绝对值
Atn(nmb) 返回一个数的反正切
Cos(nmb) 返回一个角度的余炫值
Exp(nmb) 返回自然指数的次方值
Int(nmb) 返回数字的整形（进位）部份 8.4-->9
Fix(nmb) 返回数字的整形（舍去）部份 8.4-->8
Formatpercent(表达式) 返回百分比
Hex(nmb) 返回数据的16进制数
Log(nmb) 返回自然对数
Oct(nmb) 返回数字的8进制数
Rnd 返回大于“0”而小于“1”的随机数
Sgn(nmb) 判断一个数字的正负号
Sin(nmb) 返回角度的正铉值
Sqr(nmb) 返回数字的二次方根
Tan(nmb) 返回一个数的正切值
Asc(string) 返回ASCII字符串
Chr(charcode) 根据字符代码返回字符
Instr(string,searchstr) 返回被搜索字符串的第一个字符位置，string是字符串，searchstr是被搜索的字符串
InstrRev(string,searchstr) 同上，只是从右面开始搜索
Lcase(var) 把字符串变为小写
Left(string,nmb) 从string中返回从左面开始的nmb个字符串
Len(string) 返回字符串的长度
Ltrim(string) 截去字符串左边的空格
Filter(inputstrings,value) 返回字符串数组的字集，Inputstrings是字符串组，value是在数组中寻找的字符
Rtrim(string) 截去字符串右边的空格
Trim(string) 截去字符串前后空格
Mid(string,start,len) 在string中返回从start位置开始的len个字符
Replace(string,find,withstr) 在字符串string中，用withstr来替换find字符串
Right(string,nmb) 从string中返回从右面开始的nmb个字符串
Space(nmb) 返回指定空格的字符串
StrComp(string1,string2) 比较两个字符串
Ucase(string) 把字符串变为大写
****************************************

Date() 返回当前系统日期
DateAdd(interval,nmb,date) 用一个基础时间返回指定增加了时间间隔的日期，interval是间隔类型，yyyy－年，m－月，d－日，h－小时，n－分。
DateDiff(interval,nmb1,nmb2) 返回两个时间间隔，interval的意思同上
Datevalue(date) 发挥Date中的日期部份
Day(date) 返回天数
FormatDatetime(date) 返回格式化为日期的表达式
Hour(time) 返回时间的小时数
Minute(time) 返回时间的分钟数
Month(date) 返回日期中的月份
Now() 返回系统的日期和时间
Second(time) 返回时间中的秒数
Time() 返回系统的当前时间
Weekday(date) 返回星期几
WeekdayName(date) 返回星期几的中文名
Year(date) 返回年份
IsArray(var) 判断一个变量是否是数组
IsDate(var) 判断一个变量是否是日期
IsNull(var) 判断一个变量是否为空
IsNumeric 判断表达式是否包含数值
IsObject(var) 判断一个变量是否是对象
TypeName(var) 返回变量的数据类型
************************************
Array(list) 返回数组
CreateObject(class) 创建一个对象
GetObject(pathfilename) 得到文件对象
Inputbox(prompt) 提供一个可供输入数据的对话框
LBound(arrayP) 返回数组的最小索引
Msgbox(string) 输出一个消息框
Split(liststr) 从一个列表字符串中返回一个一维数组
Ubound(array) 返回数组的最大索引

『陆』 vb常用函数

VB常用函数介绍
一、常用内部函数
在VB内部提供了大量函数。在这些函数中，有些是通用的。有些则与某种操作有关的。大体分成五类，分别是：转换函数、数学函数、日期函数、时间函数和随机函数。
（1）转换函数
函数名 功能
Int(x) 返回不大于自变量的最大整数。
Fix(x) 去掉一个浮点数的小数部分,保留其整数部分。
Hex(x) 把一个十进制数转换成为十六进制数。
Oct(x) 把一个十进制数转换成为八进制数。
Asc(x) 返回字符串中第一个字符的ASCII码。
Chr(x) 把值转换为相应的ASCII字符。
Str(x) 把值转换为一个字符串
Cint(x) 把小数部分四舍五入，转换为整数。
Ccur(x) 把值转换为货币类型，小数部分最多保留4位。
CDbl(x) 把值转换为双精度数值。
CLng(x) 把值小数部分四舍五入转换为长整型数值。
CSng(x) 把值转换为单精度数值。
CVar(x) 把值转换为变体类型值。
（2）数学函数
函数名 功能
Sin(x) 返回正弦值。
Cos(x) 返回余弦值。
Tan(x) 返回正切值。
Atn(x) 返回反正切值。
Abs(x) 返回绝对值。
Sgn(x) 返回自变量的符号。即：
值为负数时，函数返回-1
值为0时，函数返回0
值为正数时，函数返回1
Sqr(x) 返回自变量x的平方根，自变量必须大于或等于0。
Exp(x) 返回以e为底数，以x为指数的值，即求e的x次方。
（3）日期函数
函数名 功能
Day(Now) 返回当前的日期。
WeekDay(Now) 返回当前的星期。
Month(Now) 返回当前的月份。
Year(Now) 返回当前的年份。
（4）时间函数
函数名 功能
Hour(Now) 返回小时（0~23）。
Minute(Now) 返回分钟（0~59）。
Second(Now) 返回秒（0~59）。
（5）随机函数
Rnd(x) 产生一个0~1之间的单精度随机数
Rnd函数可以产生随机数，当一个应用程序不断地重复使用随机数时，同一序列的随机数会反复出现，用Randomize语句可以消除这种情况。
二、字符串函数
（1）删除空白字符函数
函数名 功能
LTrim(字符串) 去掉“字符串”左边的空白字符；
RTrim(字符串) 去掉“字符串”右边的空白字符；
Trim(字符串) 去掉“字符串”两边的空白字符；
（2）字符串截取函数
①左部截取
格式：Left（字符串，n）
返回字符串的前n个字符（n≥0）。
②中部截取
格式：Mid（字符串，p，n）
从第P个字符开始，向后截取n个字符（P>0，n≥0）。函数的第三个自变量可以省略。在省略的情况下，将从第二个自变量指定的位置向后截取到字符串的末尾。
③右部截取
格式：Right（字符串，n）
返回字符串最后n个字符（n≥0）。
（3）字符串长度测试函数
格式：Len(字符串)Len(变量名)
用Len函数可以测试字符串的长度，也可以测试变量的存储空间。
（4）String函数
格式：String（n，ASCII码） String（n,字符串）
返回由n指定个数组成的字符串。第二个自变量可以使用ASCII码，也可以是字符串。
（5）空格函数
格式：Space（n）
返回n个空格。
（6）字符串匹配函数
格式：InStr（[首字符位置，]字符串1，字符串2 [,n]）
在函数中“字符串1”中查找“字符串2”，如果找到了，则返回“字符串2”的第一个字符的位置。若为字符串首字符，则位置为1。
说明：
①“字符串2”的长度限于65535个字符内。
②“首字符位置”是可选项。如果含有“首字符位置”，则从该位置开始查找，否则从“字符串1”的起始位置开始查找。“首字符位置”是一个长整数。
③函数的最后n是可选项，类型为整型数，用来指定字符串比较。取范围是：0、1、2。
为0使用二制进比较，区分字母的大小写；
为1比较时忽略大小写；
为2则基于数据库中包含的信息进行比较（限于Access数据库）。
（7）字母大小写转换
格式：Ucase（字符串）’小写字母转大小字母。
Lcase（字符串）’大写字母转换为小写字母。
三、MsgBox函数
MsgBox函数的格式如下：
MsgBox（msg [，Type][，Title][，HelpFile，Context]）
①②③ ④
函数共有5个参数，除①参数外，其余都是可选参数。
①msg是字符串类型，长度限制为1024字符。超出字符会被自动截取。
②type是一个整数值或符号常量，用来控制在对话框内显示的按钮、图标的类型。参数值由四类数值相加产生，这四类数值或符号常量分别表示按钮的类型、显示图标的种类、活动按钮的位置及强制返回。
常数 值 描述
vbOKOnly 0 只显示 OK 按钮。
VbOKCancel 1 显示 OK 及 Cancel 按钮。
VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。
VbYesNoCancel 3 显示 Yes、No 及 Cancel 按钮。
VbYesNo 4 显示 Yes 及 No 按钮。 VbRetryCancel 5 显示 Retry 及 Cancel 按钮。
VbCritical 16 显示 Critical Message 图标。
VbQuestion 32 显示 Warning Query 图标。
VbExclamation 48 显示 Warning Message 图标。
VbInformation 64 显示 Information Message 图标。vbDefaultButton1 0 第一个按钮是缺省值。
vbDefaultButton2 256 第二个按钮是缺省值。
vbDefaultButton3 512 第三个按钮是缺省值。
vbDefaultButton4 768 第四个按钮是缺省值。vbApplicationModal 0 应用程序强制返回；应用程序一直被挂起，直到用户对消息框作出响应才继续工作。
vbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。
vbMsgBoxHelpButton 16384 将Help按钮添加到消息框
VbMsgBoxSetForeground 65536 指定消息框窗口作为前景窗口
vbMsgBoxRight 524288 文本为右对齐
vbMsgBoxRtlReading 1048576 指定文本应为在希伯来和阿拉伯语系统中的从右到左显示
vbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。
Type参数由上表的四类数值组成，原则是：从每一类中选择一个值（仅仅一个值，不得重复），把这几个值加在一起就是Type参数的值（一般情况下，只需要使用前三类）。
示例：MsgBox “是否暂停打印!”,16,”提示”
Type参数为16分解成：
16=0+16+0 显示“确定”按钮（0）+“暂停”图标（16）+默认按钮为“确定”（0）MsgBox”是否退出程序。”,35,”退出”
Type参数为35分解成：
35=3+32+0 显示“是、否、取消”3个按钮（3）+“？”图标（32）+ 默认按钮（0）③Title是一个字符串，用来显示对话框的标题。
④HelpFile、Context ： HelpFile是一个字符串变量或字符串表达式，用来表示帮助文件的名字，Context是一个数值变量或表达式，用来表示相关帮助主题的帮助目录号。
MsgBox函数的返回值是一个整数，这个整数与所选择的命令按钮相关。
返回值参数表：
常数 值 描述
vbOK 1 OK
vbCancel 2 Cancel
vbAbort 3 Abort
vbRetry 4 Retry
vbIgnore 5 Ignore
vbYes 6 Yes
vbNo 7 No
示例：Dim Tmp as long
Tmp=MsgBox（”是否退出程序。”,35,”退出”）
Msgbox “你选择的按钮值是：”&Tmp

『柒』 vb中常用标准函数的意思

1. p=ABS(X):取X的绝对值.
2. p=Log(X):求X的自然对数.
3. Y=Sgn(X):符号函数.
说明: X>0时Y=1;X=0时 Y=0;X<0 时Y=-1.
例: Response.write sgn(5)
输出: 1
4. Sin(x),Cos(x), Tan(x),Atn(x): 三角函数
5. Ctype(x):类型转换:
P=Cbool(x)
把X转成”布尔”值
P=Cbyte(X)
字节
P=Ccur(x)
金额
P=Cdatel(x)
日期
P=Cintl(x)
双精度
P=CDbl(x)
整型
P=Clng(x)
长整型
P=Csng(X)
单精度
P=Cstr(x)
字符串
例:Response.write CDbl(#1/1/1900#)
结果: 2
注意:True :-1 False: 0

日期: #12/30/1899# 为 0 ,每往后 1 日数值加1 .每往前1日数值减 1
6. Int (x) :取<=X的整数值
7. Fix(X) :取X的整数部分,直接去掉小数部分.
Response.Write Int(-54.6)
结果为:-55 .取<=-54.6的最大整数.
Response.Write Int(54.6)
结果: 54.
Response.Write Fix(54.6)
结果: 54
Response.Write Fix(-54.6)
结果: -54
8. Asc(X) :返回字符串的第一个字符的字符码。
9. Chr(X): 返回字符码X的字符.
P=Asc(“A”) p=65
P=Chr(65) p=A
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”
10. Instr(x,y) 从X第一个字符起找出Y出现的位置
11. Instr(n,x,y)从X第N个字符起找出Y出现的位置.
在X中找到Y,则返回值是Y的第一个字符出现的位置.
若N>字符串长度,或X为空字符串,或在X中找不到Y,都返回0.
若Y为空字符串,则返回N.
InStrRev 倒过来寻找字符串.
P=InStrRev(c,s[,n[,compare]])
从字符串X的后面往前找,若找到,则返回S字符串在字符中的位置.
N为从第几个字符开始寻找,设置compare ,可以不区分大小写的寻找.
12.
Join(x[,d]) 将字符串数组合成一个字符串.
参数X是一个字符串数组,调用JOIN后,X的所有字符串元素将串在一起组合成一个字符串,然后返回.
D参数用来指定分隔字符.
X=Array(“da”,”fdsa”,”fdas”)
P=Join(X,”,”)
P=”da,fdsa,dsas”
12. Len(X):计算字符串X的长度.
空字符长度为0,空格也算一个字符,中方虽然占用2bytes,但也算一个字符.
13, Left(X,n):返回字符串X左边n 个字符。
若N=0，则返回空字符串，若n>=Len(X)，则返回整个字符串。
14，Mid(X,n):由X的第N个字符起，读取后面的所有字符。
Mid(X,n,m):由X的第n个字符起，读起m个字符。
若n>Len(X),则返回空字符串，若第n个字符以后不足m个字符，则返回后面的所有字符。
14．Ltrim(X),Rtrim(X),Trim(X) :去掉空字符。
Ltrim(x) 去掉X左边的所有字符。
trim(x) 去掉X左右边的所有字符
Rtrim(x) 去掉X右边的所有字符。
字符与字符间的空格不会被去掉。
X=Ltrim(“ This is good “)
结果：X=“This is good “
X=Trim(“ This si good “)
结果:X=”This is good”
16.Right(X,n):返回字符串X右边N个字符。
P=Replace(X,S,R)
将字符串X中的字符串S替换成为字符串R，然后返回。
X=“asp is good”
P=Replace(X,good,nice)
P=”asp is nice”
Space(n) :返回N个空格所组成的字符串，
P=Space(n,X) :返回N个X的第一个字符所组成的字符串。
X可以是字符串，也可以是字符码。
17，Split:将字符串侵害成字符串数组。
P=Split(S[,d])
以D参数为分隔字符，将字符串S侵害成多个字符串后，组成一个字符串数组。然后返回，若省略D参数，则以空格符为分隔字符。
P=Split(“a,b,c”,”,”)
P(0)=”a”,p(1)=”b”,p(2)=”c”
18,StrReverse:反转字符串。
PstrReverse(X)
返回X参数反转以后的字符串。
P=StrReverse(“ABC”)
P=”CBA”
19. Ucase(X),Lcase(X): 转换英文字母的大小写。
P=Lcase(X) 将字符串X的大写字母转为小写。
P=Ucase(X) 将字符串X的小写字母转为大写。
只有英文字母才会受影响。

『捌』 vb 数学函数中对数函数的使用方法

VB中的对数函数 Math.Log(...)的返回值为Double类型。要注意的是这个函数计算的是以e=2.718282为底的自然对数。函数的用法如下：

DimxAsDouble
x=Math.Log(10)
Printx'输出：2.30258509299405

用Math.Log函数计算Lg 100（以10为底对数）

DimxAsDouble,yAsDouble
x=100#
y=Math.Log(x)/Math.Log(10#)
Printy'输出：2

『玖』 vb6.0全部数学函数

vb数学函数用来完成一些基本的数学计算，其中一些函数的名称一与数学中相应函数的名称相同。表3.6中列出了常用的数学函数。

在三角函数中，参数以弧度表示。例如，函数Sint（30）中的30是指弧度，它等于1718.87,而不是30度。为了将角度转换成弧度，可以将角度乘以pi/180.若将弧度转换成角度，则将弧度乘以180/pi.其中pi是数学常数，近似值为3.1415926535897932.

Int函数和Fix函数的不同之处在于，如果参数n为负数，则Int返回小于或等于该参数的第一个负整数，而Fix则会返回大于或等上参数的第一个负整数。

例如，Int（-8.4}=-9,而Fix（-8.4]=-8.

函数Sqn将根据参数n的不同取值，返回不同的值。若n>0,则Sqn（n）=1;若n>0,则Sqn（n）=0;若n<0,则Sqn（n）=-l.