vb数据转换函数
vb常用函数
Log10(X) 函数
Log10 = Log(X) / Log(10)
End Function
3.Sqr 函数
返回数值的平方根。
Sqr(number)
number 参数可以是任意有效的大于或等于零的数值表达式。
Time()函数：返回系统当前时间。无参数。
Hour(d)函数：返回数据d中小时的整型数。若d为常数，则该数用#括起来，并用小时：分：秒的格式书写。函数返回值为数值。
Minute(d)函数：返回数据d中分的整型数。若d为常数，则该数用#括起来，并用小时：分：秒的格式书写。函数返回值为数值。
Inverse Hyperbolic Cosecant（反双曲余割） HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) +1) / X)
Inverse Hyperbolic Cotangent（反双曲余切） HArccotan(X) = Log((X + 1) / (X - 1)) / 2
2.Log 函数
返回数值的自然对数。
Log(number)
number 参数是任意大于 0 的有效数值表达式。
说明
自然对数是以 e 为底的对数。常数 e 的值约为 2.718282。
用 n 的自然对数除 x 的自然对数，可以得到以 n 为底的 x 的对数。如下所示：
Logn(x) = Log(x) / Log(n)
Left$(x，n)函数：从字符串x左边取n个字符。x为字符型数据， n为数值型数据，函数返回值为字符串。
vb 常用函数介绍
第六课常用函数介绍一、常用内部函数在VB内部提供了大量函数。
在这些函数中，有些是通用的。
有些则与某种操作有关的。
大体分成五类，分别是：转换函数、数学函数、日期函数、时间函数和随机函数。
（5）随机函数Rnd(x) 产生一个0~1之间的单精度随机数Rnd函数可以产生随机数，当一个应用程序不断地重复使用随机数时，同一序列的随机数会反复出现，用Randomize语句可以消除这种情况。
二、字符串函数（1）删除空白字符函数①左部截取格式：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数据库）。
VB常用函数表
ASP纯ASPVBscript常用函数：1.数值型函数：abs(num): 返回绝对值sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负hex(num): 返回十六进制值直接表示：&Hxx 最大8位oct(num): 返回八进制值直接表示：&Oxx 最大8位sqr(num): 返回平方根num>0int(num): 取整int(99.8)=99; int(-99.2)=100fix(num): 取整fix(99.8)=99; fix(-99.2)=99round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2log(num): 取以e为底的对数num>0exp(n): 取e的n次幂通常用num^nsin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num) 2.字符串函数：len(str)：计算字符串长度中文字符长度也计为一！mid(str,起始字符,[读取长度])：截取字符串中间子字符串left(str,nlen)：从左边起截取nlen长度子字符串right(str,nlen)：从右边起截取nlen长度子字符串Lcase(str)：字符串转成小写Ucase(str)：字符串转成大写trim(str)：去除字符串两端空格Ltrim(str)：去除字符串左侧空格Rtrim(str)：去除字符串右侧空格replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0）InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串返回起始位置space(n)：构造n个空格的字符串string(n,str)：构造由n个str第一个字符组成的字符串StrReverse(str)：反转字符串split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选3.数据类型转换函数：Cint(str)：转换正数True -1；False 0；日期距离1899/12/31天数；时间上午段0；下午段1；Cstr(str)：日期输出格式yyyy/mm/dd；时间输出格式Am/Pm hh:mm:ssClng(str)：与Cin()类似Cbool(num)：num不为零True；反之FalseCdate(str)：转换日期格式0：#Am 12:00:00#；正数距离1899/12/31天数的日期；浮点数日期＋小数时间Cbyte(num)：num<255 转换为字节Csng(str)：转换为单精度数值Cdbl(str)：转换为双精度数值Ccur(str)：转换为现金格式4.时间函数：date：取系统当前日期time：取系统当前时间now：取系统当前时间及日期值Datetime类型timer：取当前时间距离零点秒值，计时器，可计算时间差DateAdd(间隔单位,间隔值,日期)：推算相邻日期DateDiff(间隔单位,日期一,日期二)：计算时间差日期二-日期一Datepart(间隔单位,日期)：计算日期的间隔单位值Dateserial(date)：输出日期值（按序列计算）Timeserial(time)：输出时间值（按序列计算）DateValue(datetime)：取出字符串中日期值Timevalue(datetime)：取出字符串中时间值weekday(date)：计算星期几MonthName(date)：输出月分名year(datetime)：截取年份month(datetime)：截取月份day(datetime)：截取日hour(datetime)：截取小时minute(datetime)：截取分钟second(datetime)：截取秒5.其它函数：Array(unit,..)：动态生成数组Asc(str)：输出字符串第一个字符的ASCII码Chr(asc)：转换ASCII为字符Enter：Chr(13)&Chr(10)Filter(数组名称,关键字符串,[,包含][,比较方法])：将字符串数组中含有关键字符串的元素存成新的数组（默认）[包含]为false则取不包含的元素Join(ArrayName)：将数组中元素连成字符串Ubound(ArrayName[,维数])：取得数组相应维数的上界Lbound(ArrayName[,维数])：取得数组相应维数的下界一般为0Randmize n：启动随机数种子Rnd(n)：取得随机数，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0，生产与上一随机值相同的数取介于A和B之间的随机正数C，公式：C=Int((B-A+1)*Rnd+A) 条件（B>A）子程序和自定义函数Sub StrSubName Function StrFunName(arg[1],..)子程序体函数体Exit Sub 中途跳出Exit Function 中途跳出End Sub StrFunName＝Value 返回值End Function[call] StrSubName 引用子程序Var=StrFunName(arg[1],..) 引用函数子程序和自定义函数可以递归调用；ASP六大对象常用语句示范：Response：Response.write StrVar/"String"：向网页写出参数值或字符串等同于在Html标记中嵌入<%=StrVar/"String"%>Response.End：停止页面编译，并将已经编译内容输出到浏览器Response.Buffer=True|False：页面编译时是否使用缓存的设置，一般在页面头部设置Response.Flush：强制输出页面已编译部分内容Response.Clear：将缓冲区内的数据清除Response.Redirect URL：停止页面编译或输出，转载指定所需页面Response.IsClientConnected：返回True|False，检测用户是否还处于连接状态Response.Charset(CharsetName)：设置页面编码类型，即<meta http-equiv="Content-Type" content="text/html; charset=gb2312">Response.ContentType [= ContentType ]：设置页面文件类型，同上Response.Expires [= number]：设置页面失效时间，单位分钟Response.ExpiresAbsolute [= [date] [time]]：设置页面失效的绝对时间Response.Status = StatusDescription：设置页面状态描述Request：Request("PassStrName")：读取网页传递值，包括表单及以？PassStrName＝value&PassStrName_n＝value_n形式Request[.collection|property|method](variable)Request.querystring("PassStrName")：读取Get方法传递的表单值和？PassStrName＝value Request.QueryString(Varible)[(Index).Count]Request.form("PassStrName")：读取Post方法传递的纯表单域的值Request.Form(Parameter)[(Index).Count]Request.ServerVaribles(Server Environment Variable)：读取客户端系统环境变量，详见参考Request.BinaryRead(Count)：读取指定字节数的传送值Request.TotalBytes：查询体的长度，以字节为单位，只读注：同名表单如：CheckBox如有多项值，传递形式如右，StrName=value1,value2,...需要用Split函数分割各项值Multiple的Select表单与CheckBox类似，TextArea的值可包含换行字符，用Replace转为<br>，以满足格式需要Session：（用户全局变量）Session("SesName")＝value：存储Session变量值，也可读取该值Session("SesName")＝Empty：判断Session值是否存在的两种方法IsEmpty(Session("SesName"))=True|False：判断Session值是否存在的两种方法Session.TimeOut=num：设置Session变量的存在时效，单位分钟Session.Abandon：清除所有Session变量值Session.SessionID：Session变量的ID序列号，只读Application：（应用程序全局变量）Application("AppName")＝value：存储Application变量值，也可读取该值Application("AppName")＝Empty：判断Application值是否存在的两种方法IsEmpty(Application("AppName"))=True|False：判断Application值是否存在的两种方法Application.Lock：Application变量值锁定，防止同时更改变量值Application.UnLock：Application变量值解锁，允许更改变量值注：Session与Application变量都可以用来存储数组和系统对象，引用方法是变量名相当于数组名而已，但不能直接改变其值，需要借助临时数组修改值后，再赋给Session与Application变量Global.asa文件的结构：<% @language="VBscript"%><% Sub Application_OnStart ...End SubSub Application_OnEnd ... End SubSub Session_OnStart ...End SubSub Session_OnEnd ... End Sub%>Server:Server.MapPath("FileUrl")：映射文件名的服务器站点绝对地址，Path=Server.MapPath(./)可以得到虚拟目录根路径Server.HtmlEncode("string")：转换为可以直接显示带Html格式的字符串，如：<,>等Server.URLEncode( "string")：转换为浏览器地址编码set Var＝Server.CreatObject("ObjName")：创建对象变量Server.ScriptTimeout = NumSeconds：ASP程序页面执行时限，以秒为单位Cookies: 存储在用户本机的临时变量，每个Cookie的最大字节4KB，最多可以有300个Cookie 1.2MBResponse.cookies("StrCookieName")＝value：存储Cookie变量值，也可读取该值Response.cookies("StrCookieName")＝""：判断是否为空Response.cookies("StrCookieName").Expires=Date：变量有效期，以天为单位，小于当前时间立即失效Response.Cookies(Cookie[(key).Attribute])：标准语法ObjectContext 控制ASP的事务处理ObjectContext.OnTransactionAbort：由放弃的事务处理事件激发，在脚本完成处理后发生ObjectContext.OnTransactionCommit：由成功的事务处理事件激发，在脚本完成处理后发生ObjectContext.SetAbort：显式的放弃一次事务处理ObjectContext.SetComplete：覆盖前面任何调用ObjectContext.SetAbort方法的调用Msgbox "string"/StrName：VBscript提示框表单的Onsubmit事件：在同一页面写入FunctionFormName_onsubmit()..FormName_onsubmit＝True/False..end Function，页面会在提交前先执行语句，并根据返回值判断是否完成提交任务。
VB常用函数介绍
VB常用函数介绍在VB (Visual Basic) 中，有许多常用函数可以帮助我们处理数据、操作字符串、进行数学计算等。
下面是一些VB常用函数的介绍：1. MsgBox函数：MsgBox函数用于显示一个消息框，通常用于向用户显示一些信息或提示。
它接受一个字符串参数作为要显示的消息文本。
例如：MsgBox("Hello World!")2. InputBox函数：InputBox函数用于显示一个输入框，允许用户输入一个值。
它接受一个字符串参数作为提示文本，并返回用户输入的值。
例如：Dim name as Stringname = InputBox("请输入您的姓名：")MsgBox("您的姓名是：" & name)3. Len函数：Len函数用于返回一个字符串的长度。
它接受一个字符串参数，并返回该字符串的字符数。
例如：Dim str as Stringstr = "Hello World!"MsgBox("该字符串的长度为：" & Len(str))4. Left函数和Right函数：Left函数和Right函数用于返回一个字符串的左侧或右侧指定数量的字符。
它们接受两个参数：一个是要截取的字符串，另一个是要截取的字符数。
例如：Dim str as Stringstr = "Hello World!"MsgBox("左侧的3个字符为：" & Left(str, 3))MsgBox("右侧的5个字符为：" & Right(str, 5))5. Mid函数：Mid函数用于返回一个字符串的中间一部分字符。
它接受三个参数：一个是要截取的字符串，另一个是要截取的起始位置，最后一个是要截取的字符数。
例如：Dim str as Stringstr = "Hello World!"MsgBox("中间的5个字符为：" & Mid(str, 7, 5))6. InStr函数：InStr函数用于在一个字符串中查找指定的子字符串，并返回第一次出现的位置。
VB数据类型转换函数
#1899/12/30#
2. Hour ， Minute ， Second 函数：取出时，分，或秒 [格式 ]： P=Hour(X) 取出 X"时" 部分的数值 P=Minute(X) 取出 X"分" 部分的数值 P=Second(X) 取出 X"秒" 部分的数值 [说明 ]： Hour 的返回值是 0---23 之间
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
转换为货币类值 转换为日前类型的值
转换为双精度值 转换为整数值
转换为长整型的值 转换为单精度的值 转换为字符串值
数值转换为字符串 字符串转换为数值
Abs(nmb) Atn(nmb) Cos(nmb) Exp(nmb) Int(nmb) 部份 8.4-->9 Fix(nmb) 8.4-->8 Formatpercent( 表达式 ) Hex(nmb) Log(nmb) Oct(nmb) Rnd 的随机数 Sgn(nmb) Sin(nmb) Sqr(nmb) Tan(nmb) Asc(string) Chr(charcode) Instr(string,searchstr) string 是字符串， searchstr 是被搜索的字符串 InstrRev(string,searchstr) Lcase(var) Left(string,nmb) 字符串 Len(string) Ltrim(string) Filter(inputstrings,value) 符串组， value 是在数组中寻找的字符 Rtrim(string) Trim(string) Mid(string,start,len)
vb大小写转换函数
vb大小写转换函数
在VB (Visual Basic) 中，你可以使用内置的函数来实现大小写转换。
以下是几个例子：
1、UCase() 函数：将字符串转换为大写。
vb
Dim str As String
str = "hello world"
str = UCase(str) ' str 现在的值是"HELLO WORLD"
2、LCase() 函数：将字符串转换为小写。
vb
Dim str As String
str = "HELLO WORLD"
str = LCase(str) ' str 现在的值是"hello world"
3、StrConv() 函数：这个函数可以将特定的字符串转换为大写或小写，但是它也可以进行其他类型的转换，如转换成半角字符等。
这个函数接受两个参数，第一个参数是要转换的字符串，第二个参数是指定转换类型。
如果第二个参数是vbUpperCase，那么字符串会被转换为大写；如果第二个参数是vbLowerCase，那么字符串会被转换为小写。
vb
Dim str As String
str = "hello world"
str = StrConv(str, vbUpperCase) ' str 现在的值是"HELLO WORLD" str = StrConv(str, vbLowerCase) ' str 现在的值是"hello world"
以上就是VB中的大小写转换函数。
VB常用内部函数
Vb常用内部函数一、类型转换函数1、 Int(x):求不大于自变量x的最大整数2、 Fix(x):去掉一个浮点数的小数部分，保留其整数部分3、 Hex$(x):把一个十进制数转换为十六进制数4、 Oct$(x):把一个十进制数转换为八进制数5、 Asc(x$):返回字符串x$中第一个字符的ASCII字符6、 CHR$(x):把x的值转换为相应的ASCII字符7、 Str$(x):把x的值转换为一个字符串8、 Cint(x):把x的小数部分四舍五入，转换为整数9、 Ccur(x):把x的值转换为货币类型值，小数部分最多保留4 位且自动四舍五入10、 CDbl(x):把x值转换为双精度数。
11、 CLng(x):把x的小数部分四舍五入转换为长整数型数12、 CSng(x):把x值转换为单精度数13、 Cvar(x):把x值转换为变体类型值14、 VarPtr(var):取得变量var的指针15 val(X):把X的值转换为数值类型二、数学函数1、 Sin(x):返回自变量x的正弦值2、 Cos(x): 返回自变量x的余弦值3、 Tan(x): 返回自变量x的正切值4、 Atn(x): 返回自变量x的反正切值5、 Abs(x): 返回自变量x的绝对值6、 Sgn(x): 返回自变量x的符号，即当x为负数时，返回-1；当x为0时，返回0;当x为正数时，返回17、 Sqr(x):返回自变量x的平方根，x必须大于或等于08、 Exp(x):返回以e为底，以x为指数的值，即求e的x次方三、日期与时间函数1、 Day(Now):返回当前的日期2、 WeekDay(Now):返回当前的星期3、 Month(Now):返回当前的月份4、 Year(Now):返回当前的年份5、 Hour(Now):返回小时(0~23)6、 Minute(Now):返回分(0~59)7、 Second(Now):返回秒 (0~59)四、?随机数函数1、 Rnd[(x)]:产生一个0~1之间的单精度随机数2、 Randmize[(x)]:功能同上，不过更好五、字符串函数1、 LTrim$(字符串):去掉字符串左边的空白字符2、 Rtrim$(字符串):去掉字符串右边的空白字符3、 Left$(字符串,n):取字符串左部的n个字符4、 Right$(字符串,n):取字符串右部的n个字符5、 Mid$(字符串,p,n):从位置p开始取字符串的n个字符6、 Len(字符串):测试字符串的长度7、 String$(n,字符串):返回由n个字符组成的字符串8、 Space$(n):返回n个空格9、 InStr(字符串1,字符串2):在字符串1中查找字符串210、 Ucase$(字符串):把小写字母转换为大写字母11、 Lcase$(字符串):把大写字母转换为小写字母六、窗体输入输出函数1、 Print(字符串):在窗体输出字符串，可以用”&”对变量进行连接后输出2、 Tab(n):把光标移到该行的n开始的位置3、 Spc(n):跳过n个空格4、 Cls:清除当前窗体内的显示内容5、 Move 左上角x，左上角y,宽度，高度:移动窗体或控件6、InputBox(prompt,…):跳出一个数据输入窗口，返回值为该窗口的输入值7、MsgBox(msg,[type]…):跳出一个提示窗口七、文件操作函数1、 Open 文件名 [For方式] [Access存取类型] [锁定] AS [#]文件号 [Len=记录长度]功能：为文件的输入输出分配缓冲区，并确定缓冲区所使用的存取方式说明：1) 方式：指定文件的输入输出方式，可选,默认是Random,可以是以下值a、 Output:指定顺序输出方式，将覆盖原有内容b、 Input:指定顺序输入方式c、 Append:指定顺序输出方式，在文件未尾追加内容d、 Random:指定随机存取方式，也是默认方式，在Random方式时，如果没有Access子句，则在执行Open语句时，VB将按下列顺序打开文件：读/写、只读、只写e、指定二进制文件。
VB常用函数大全(数学函数)
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：反转字符串
现在的编程软件像VB，C++等，大多自带功能很强的函数库，可以很省力得完成各种功能。很多时候，想不起来实现某个功能的函数或函数格式，导致编程大费周折。作为一个编程人员，我对此深有体会。因此，特地准备了几期VB常用函数的介绍，供大家学习或参考。有说的不当之处，也欢迎在本网站的论坛中提出，大家学习。
（2） 若日期D大于当月的日数，则日期从当月的日数起，向后推算D-当月日数；若小于1，则日期从1日起向前推算1-D日。
[范例]：
P=DateSerial(2000,02,02)
则结果为P=2000/02/02
4．TimeSerial函数：合并时，分，秒成为时间
[格式]：P=TimeSerial(H,M,S)
9. Tan(N) 正切函数
例：Tan(0) 结果：0
10.Atn(N) 反切函数
例：Atn(0) 结果：0
[注意]：在三角函数中，以弧度表示。
(一)字符串类函数：
1. ASC(X)，Chr(X)：转换字符字符码
[格式]：
P=Asc(X) 返回字符串X的第一个字符的字符码
2. Int(X),Fix(X)：取X的整数值
[格式]：
P=Int(X) ' 取<=X的最大整数值
P=Fix(X) ' 取X的整数部分，直接去掉小数
VB中各种数据类型转换函数
VB中各种数据类型转换函数1. 各种进制转换函数⼀般的数据进制包括⼗进制,⼆进制,⼗六进制.⼗进制就是我们⽇常⽣活⽤到的数据进制,因此也是我们最熟悉和清楚的;⼆进制是计算机的基础进制,主要是因为便于⽤物理器件实现⼆进制;⼋进制和⼗六进制因为和⼆进制的天然的亲密关系,并且表⽰⽐⼆进制更⽅便,因⽽也成为计算机的常⽤表⽰⽅法.VB中涉及到的数据进制之间的转换函数主要有如下⼏个:Hex 函数: 返回代表⼗六进制数值的 String;Oct 函数: 返回代表⼀数值的⼋进制值的Variant (String);Cint函数: 强制将⼀个表达式转换成-32,768 ⾄ 32,767的整型;CLng函数: 强制将⼀个表达式转换成-2,147,483,648 ⾄ 2,147,483,647的长整型;Cdec函数: 强制将⼀个表达式转换成Decimal 数据类型;CDbl函数: 强制将⼀个表达式转换成Double 数据类型;以上这些函数是最基本的⼏个数据进制之间的转换函数,其中以前三个函数最常⽤,也最有⽤.从上⾯⼏个函数我们可以看到,VB中没有为我们提供专门的函数供我们将表达式或是数据转换成⼗进制和⼆进制,不过⼗进制的转换我们可以通过Cint函数轻松完成,⽽⼆进制的实现我们可以通过⼆进制和⼋进制,⼗六进制的关系轻松转换.下⾯⼏个例⼦为Hex函数和Oct函数以及Cint函数的实例:(1). A= hex(5) 返回5;(2). B=hex(10) 返回A(3). C=hex(23) 返回17(4). D=oct(5) 返回5(5). E=oct(10) 返回12(6). F=oct(23) 返回27(7). G=Cint(&H17) 返回23(8) . H=Cint(&O12) 返回10以上这些函数的应⽤⽐较简单,就不多说了,值得⼀提的是Hex函数和Oct函数返回的都是字符串,如果是想将⼗六进制或是⼋进制的字符串变量转换成⼗进制,可以按如下⽅法进⾏:C=”17” 17为⼗六进制数值的StringC=”&H” & CIc=Cint(C) 返回232. 字符串和数字转换函数VB中的字符串函数⽐较多,也⽐较⽅便,就不⼀⼀介绍了.本⽂主要对字符串相关的转换函数做⼀些⼩结.字符串转换的函数主要有:Str()和Val()⽤于字符串和数字的相互转换;Chr()和Asc()⽤于字符串和AscII码的相互转换;Chrw()和Ascw()⽤于Unicode码和中⽂的相互转换;Format()函数⽤途⼗分⼴泛的⼀个函数,功能⼗分强⼤.在这些函数中前两对和Format()函数是我们经常⽤到的,这⾥只给出前两对的⼏个简单例⼦:(1) MyString = Str(-459.65) ' 返回 "-459.65"。
vb数学函数、类型转换函数和字符串函数
本文分步介绍了如何使用Visual Basic .NET 或Visual Basic 2005 中定义的数学函数、类型转换函数和字符串函数。
回到顶端使用数学函数System.Math类中定义了用于数学计算的函数。
Math类包括三角函数、对数函数和其他常用数学函数。
下列函数是在System 命名空间的Math类中定义的函数。
注意：要使用这些函数，请通过在源代码顶部添加以下代码将System.Math 命名空间导入到项目中：Imports System.MathAbsAbs函数返回指定数值的绝对值。
Abs示例：本示例使用Math类的Abs方法来计算一个数值的绝对值。
' Code will not compile unless it is put in a Sub or in a Function.Dim MyNumber As DoubleMyNumber = Abs(50.3) ' Returns 50.3.MyNumber = Abs(-50.3) ' Returns 50.3.AtanAtan函数返回包含角度的Double 值。
该角度的正切值是指定的数值。
返回值为正表示角度在X 轴的逆时针方向上。
返回值为负表示顺时针角度。
将该返回值乘以180 再除以p i (π) 就可以从弧度转换为度。
Atan示例：本示例使用Math类的Atan方法来计算Pi 值。
' Code is not compiled unless it is put in a Sub or in a Function. Dim pi As Doublepi = 4 * Atan(1) ' Calculate the value of pi.CosCos函数以弧度表示的角度作为参数，然后返回一个Double 值，表示指定角度的余弦值。
Cos示例：本示例使用Math类的Cos方法返回角度的余弦值。
vb编程代码大全
vb编程代码大全1、数值型函数:abs(num): 返回绝对值sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负hex(num): 返回十六进制值直接表示:&Hxx 最大8位oct(num): 返回八进制值直接表示:&Oxx 最大8位sqr(num): 返回平方根num>0int(num): 取整int(99、8)=99; int(-99、2)=100fix(num): 取整fix(99、8)=99; fix(-99、2)=99round(num,n): 四舍五入取小数位round(3、14159,3)=3、142 中点数值四舍五入为近偶取整round(3、25,1)=3、2log(num): 取以e为底的对数num>0exp(n): 取e的n次幂通常用num^nsin(num): 三角函数,以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num)2、字符串函数:len(str):计算字符串长度中文字符长度也计为一！mid(str,起始字符,[读取长度]):截取字符串中间子字符串left(str,nlen):从左边起截取nlen长度子字符串right(str,nlen):从右边起截取nlen长度子字符串Lcase(str):字符串转成小写Ucase(str):字符串转成大写trim(str):去除字符串两端空格Ltrim(str):去除字符串左侧空格Rtrim(str):去除字符串右侧空格replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法]):替换字符串注:默认值:起始字符1;替代次数不限;比较方法区分大小写(0)InStr([起始字符,]str,查找字符串[,比较方法]):检测就是否包含子字符串可选参数需同时选返回起始位置InStrRev(str,查找字符串[,起始字符][,比较方法]):反向检测就是否包含子字符串返回起始位置space(n):构造n个空格的字符串string(n,str):构造由n个str第一个字符组成的字符串StrReverse(str):反转字符串split(str,分割字符串[,次数][,比较方法]):以分割字符串为分割标志将字符串转为字符数组可选参数需同时选3、数据类型转换函数:Cint(str):转换正数True -1;False 0;日期距离1899/12/31天数;时间上午段0;下午段1; Cstr(str):日期输出格式yyyy/mm/dd;时间输出格式Am/Pm hh:mm:ssClng(str):与Cin()类似Cbool(num):num不为零True;反之FalseCdate(str):转换日期格式0:#Am 12:00:00#;正数距离1899/12/31天数的日期;浮点数日期＋小数时间Cbyte(num):num<255 转换为字节Csng(str):转换为单精度数值Cdbl(str):转换为双精度数值Ccur(str):转换为现金格式4、时间函数:date:取系统当前日期time:取系统当前时间now:取系统当前时间及日期值Datetime类型timer:取当前时间距离零点秒值,计时器,可计算时间差DateAdd(间隔单位,间隔值,日期):推算相邻日期DateDiff(间隔单位,日期一,日期二):计算时间差日期二-日期一Datepart(间隔单位,日期):计算日期的间隔单位值Dateserial(date):输出日期值(按序列计算)Timeserial(time):输出时间值(按序列计算)Datevalue(datetime):取出字符串中日期值Timevalue(datetime):取出字符串中时间值weekday(date):计算星期几MonthName(date):输出月分名year(datetime):截取年份month(datetime):截取月份day(datetime):截取日hour(datetime):截取小时minute(datetime):截取分钟second(datetime):截取秒5、其它函数:Array(unit,、、):动态生成数组Asc(str):输出字符串第一个字符的ASCII码Chr(asc):转换ASCII为字符Enter:Chr(13)&Chr(10)Filter(数组名称,关键字符串,[,包含][,比较方法]):将字符串数组中含有关键字符串的元素存成新的数组(默认) [包含]为false则取不包含的元素oin(ArrayName):将数组中元素连成字符串Ubound(ArrayName[,维数]):取得数组相应维数的上界Lbound(ArrayName[,维数]):取得数组相应维数的下界一般为0Randmize n:启动随机数种子Rnd(n):取得随机数,n>0或为空,取序列下一随机值,n<0,随机值相同,n=0,生产与上一随机值相同的数取介于A与B之间的随机正数C,公式:C=Int((B-A+1)*Rnd+A) 条件(B>A)子程序与自定义函数Sub StrSubName Function StrFunName(arg[1],、、)子程序体函数体Exit Sub 中途跳出Exit Function 中途跳出End Sub StrFunName＝value 返回值End Function[call] StrSubName 引用子程序Var=StrFunName(arg[1],、、) 引用函数。
vb十进制转二进制函数
vb十进制转二进制函数在.NET Framework中，System.Convert类中的ToString方法和ToInt32（ToInt64）方法都可以方便的实现各种进制间的相互转换。
1、Convert .ToString 方法Convert .ToString 方法可以将整数值转换为其指定基数（必须是 2、8、10 或 16）的等效字符串表示形式。
即可以将十进制整数转换成二进制、八进制、十进制（无实际意义）或十六进制数字的字符串。
Convert .ToString（value，toBase）参数：value——整型，要转换的整数；toBase——System .Int32 ，返回值的基数，必须是 2、8、10 或 16。
返回值：System .String ，以 toBase 为基的 value 的字符串表示形式。
如：Dim int As Integer = 256'十进制转二进制Dim str2 As String = Convert.ToString(int, 2) '十进制转八进制Dim str8 As String = Convert.ToString(int, 8) '十进制转十进制Dim str10 As String = Convert.ToString(int, 10) '十进制转十六进制Dim str16 As String = Convert.ToString(int, 16) Console.WriteLine("十进制转二进制：" & str2)Console.WriteLine("十进制转八进制：" & str8)Console.WriteLine("十进制转十进制：" & str10) Console.WriteLine("十进制转十六进制：" & str16)测试结果如图：2、Convert .ToInt32（ToInt64）方法将指定基数的数字的字符串表示形式转换为等效的整数。
VB6.0函数介绍
1.数值型函数：abs(num) ‘返回绝对值sgn(num) ‘num>0 返回1；num=0 返回0;num<0 返回-1; 判断数值正负hex(num) ‘返回十六进制值直接表示：&Hxx最大8位oct(num) ‘返回八进制值直接表示：&Oxx最大8位sqr(num) ‘返回平方根num>0int(num) ‘取整int(99.8)=99;int(-99.2)=-100fix(num) ‘取整fix(99.8)=99;int(-99.2)=-99round(num,n) ‘四舍五入取小数位round(3.14159,3)=3.142 中数值四舍五入并取偶数值整round（3.25，1）=3.2log(num): ‘取e的n次幂通用num>0exp(n): ‘取e的n次幂通用num^nsin(num): ‘三角函数，以弧度为值计算（角度*Pai）/180=弧度con(num);tan(num);atn()2.字符串函数：len(str): ‘计算字符串长度中文字符长度也计为一mid(str,起始字符，[读取长度])：‘left(str,nlen): ‘从左边起截取nlen长度字符串right( , ): ‘从右边……………Lcase(str); ‘字符串转为小写Ucase(str); ‘字符串转为大写trim(str); ‘去除字符串两端（首尾）空格Ltrim(str); ‘去除字符串左侧空格Rtrim(str); ‘去除字符串右侧空格replace(str,查找字符串，替代字符串，[起始字符，替代次数，比较方法])；‘替代字符串注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0）inStr([起始字符],str，查找字符串，[比较方法])；‘查找的字符串在字符串的位置从左侧开始查注：比较方法中，compare 参数设置为：常数值vbUseCompareOption -1 说明：使用Option Compare 语句设置执行一个比较。
VB编程常用代码大全(精品)
VB编程常用代码大全ＶB编程常用代码大全１.数值型函数：ａｂｓ(nuｍ)：返回绝对值sgn(num): ｎum>０１; nｕm＝0 0; nuｍ＜0 -1；判断数值正负hex(ｎum)：返回十六进制值直接表示:&Ｈxx 最大８位oｃｔ(ｎｕｍ): 返回八进制值直接表示:&Oxx 最大8位sqｒ(ｎum): 返回平方根ｎｕm>0int(num）: 取整 iｎt（9９．８)=9９； iｎt(-99.2)=100 fix(ｎｕm): 取整fix(９９.8）=９9; ｆix(-99.2)＝99 round(ｎum,n)：四舍五入取小数位rouｎd(3.１4１５9，3)=3．14２中点数值四舍五入为近偶取整 rｏund(3.２５,1)=３.2lｏｇ(num): 取以e为底的对数 nｕm>0exp(n): 取ｅ的ｎ次幂通常用 num＾nsｉn(nｕm): 三角函数,以弧度为值计算 (角度*Pai)/1８0=弧度 con(num); taｎ(ｎuｍ); aｔn(ｎuｍ)2.字符串函数:leｎ(ｓtr)：计算字符串长度中文字符长度也计为一!miｄ(str,起始字符,[读取长度])：截取字符串中间子字符串left(ｓtr,nlen)：从左边起截取nleｎ长度子字符串ｒight(sｔr，ｎleｎ)：从右边起截取nlen长度子字符串Lcase(stｒ）:字符串转成小写Ｕcase(str）:字符串转成大写triｍ(str):去除字符串两端空格Ltｒim（str）：去除字符串左侧空格Ｒtrim(str):去除字符串右侧空格ｒeｐlａce（ｓtr,查找字符串，替代字符串，［起始字符,替代次数,比较方法］):替换字符串注:默认值:起始字符 1;替代次数不限；比较方法区分大小写(0)ＩｎStｒ（［起始字符,]ｓtr,查找字符串［,比较方法]):检测是否包含子字符串可选参数需同时选返回起始位置InＳtrRｅv（str，查找字符串[,起始字符]［,比较方法])：反向检测是否包含子字符串返回起始位置space(ｎ):构造n个空格的字符串string(ｎ,str）:构造由n个str第一个字符组成的字符串StrReｖerse(sｔr）：反转字符串spｌit(ｓtr,分割字符串[,次数］[,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选３.数据类型转换函数：Cinｔ（sｔr):转换正数 Tｒue -１;False 0;日期距离1899/12／31天数；时间上午段０；下午段 1；Cｓｔｒ(str)：日期输出格式ｙyyｙ/ｍm/ｄd；时间输出格式 Am/Pm ｈh:mｍ:ssCｌｎg(ｓｔｒ）：与Cin（)类似Cｂｏoｌ(num)：num不为零 Truｅ;反之 FalseCdate（ｓtr)：转换日期格式0:#Am 1２:０0:00#；正数距离１899/１２／３１天数的日期;浮点数日期＋小数时间Cｂyｔe(nuｍ)：ｎum<255 转换为字节Ｃsng(stｒ):转换为单精度数值Cdbl(ｓtr):转换为双精度数值Ｃcur(ｓtｒ)：转换为现金格式４.时间函数：daｔe：取系统当前日期ｔime：取系统当前时间ｎｏｗ：取系统当前时间及日期值Ｄatｅtime类型ｔimｅr：取当前时间距离零点秒值，计时器，可计算时间差ＤateAdd(间隔单位,间隔值，日期）：推算相邻日期DateDiff(间隔单位,日期一，日期二)：计算时间差日期二-日期一Ｄａｔｅpart(间隔单位,日期)：计算日期的间隔单位值Dateｓｅriaｌ（datｅ)：输出日期值(按序列计算)Ｔｉmeｓerial(time):输出时间值（按序列计算）Ｄａtevalue(ｄａteｔimｅ):取出字符串中日期值Timeｖａlue(ｄatetiｍe）：取出字符串中时间值weekdａy（datｅ):计算星期几MontｈＮaｍe(datｅ）：输出月分名yeaｒ(ｄatetimｅ):截取年份moｎth(dａtetｉme)：截取月份day(ｄatetimｅ):截取日ｈoｕｒ(datetime)：截取小时minutｅ(datetｉme):截取分钟sｅconｄ(daｔetimｅ)：截取秒５.其它函数:Aｒray(ｕｎit,．.)：动态生成数组Aｓc(str):输出字符串第一个字符的ASCIＩ码Chr(ａsc):转换ASＣII为字符 Enter:Ｃhｒ(13)&Ｃhr（10) Fｉlteｒ（数组名称,关键字符串,[,包含][,比较方法]）：将字符串数组中含有关键字符串的元素存成新的数组(默认） [包含]为fａlsｅ则取不包含的元素oiｎ（ArrａｙName）:将数组中元素连成字符串Ubound（ArraｙNamｅ［,维数])：取得数组相应维数的上界Lbounｄ(ArrayＮame[,维数］）：取得数组相应维数的下界一般为0Randmize ｎ：启动随机数种子Rｎｄ(n）：取得随机数,n>０或为空,取序列下一随机值，ｎ<0,随机值相同，n=０,生产与上一随机值相同的数取介于A和B之间的随机正数Ｃ,公式:Ｃ=Int((Ｂ－A+1）*Rｎd+Ａ) 条件(B＞Ａ)子程序和自定义函数Sub ＳtrＳubName Ｆｕｎction StｒＦunName（arg[１］，..)子程序体函数体Eｘit Ｓｕb 中途跳出 Eｘit Funcｔｉon 中途跳出Ｅnd Sub StrFunＮamｅ=vａlue 返回值Enｄ Fｕnctioｎ［ｃall] SｔrＳｕbNａme 引用子程序Ｖar=ＳtｒFuｎName(arg[1］，．.) 引用函数...内容来自网络 ...。
VB中的函数
VB中的函数1.VAL()函数1.功能返回由数字组成的字符表达式的数字值.2.语法结构VAL(cExpression)其中,字符表达式最多由16位数字组成,若超过16位,则对其圆整.3.举例STORE'12'TO ASTORE'13'TO B?VAL(A)+VAL(B) 显示25.00★补充说明VAL()就是函数用于将数值字符串转换为数值。
即:将字符型(C)的数字符号转换为数值型(N)的数字符号.?VAL("1.234") &&结果为 1.23?VAL("A1.256") &&结果为0.00?VAL("1A.234") &&结果为 1.00但如果字符串内出现非字符型数据，那么只转换前面部分；如果字符串的首字符不是数字符号，则返回数值0，但忽略前导空格。
2.CStr()函数转化一个表达式为字符串.表达式CStr(expression)允许数据类型: expression 是任何有效的表达式。
实例：<%s = 3 + 2response.write "The 返回结果is: " & cStr(s)%>返回结果: 转化数字“5”为字符“5”。
3.VB使用Str()与CStr()的区别两个函数都是可以把数值转换成字符串不相同的是Str()返回的值是以String类型表示的数值（带符号位）Str转换后的字符串前后都带空格Str转换的原类型只能是数值CStr()除了可以转换数值类型还可以转换其他的类型如Boolean,Error类型等4.VB中的数据类型a)数据类型概述数据:计算机能够处理数值、文字、声音、图形、图像等信息，均称为数据。
数据类型:根据数据描述信息的含义，将数据分为不同的种类，对数据种类的区分规定，称为数据类型。
数据类型的不同，则在内存中的存储结构也不同，占用空间也不同VB的基本数据类型：数值型数据（主要数据类型）日期型字节型货币型逻辑型字符串型对象型变体型b)数值数据类型数值类型分为整数型和实数型两大类。
vb--十进制_八进制_十六进制_二进制相互转换函数
vb--十进制_八进制_十六进制_二进制相互转换函数VB--二进制,十进制，八进制，十六进制，相互转换函数1.用途:将十进制转化为二进制' 输入:Dec(十进制数)' 输入数据类型:Long' 输出:DEC_to_BIN(二进制数)' 输出数据类型:String' 输入的最大数为2147483647,输出最大数为1111111111111(31个1) Public Function DEC_to_BIN(Dec As Long) As StringDEC_to_BIN = ""Do While Dec > 0DEC_to_BIN = Dec Mod 2 & DEC_to_BINDec = Dec \ 2LoopEnd Function'2. 用途:将二进制转化为十进制' 输入:Bin(二进制数)' 输入数据类型:String' 输出:BIN_to_DEC(十进制数)' 输出数据类型:Long' 输入的最大数为1111111111111(31个1),输出最大数为2147483647 Public Function BIN_to_DEC(ByVal Bin As String) As LongDim i As LongFor i = 1 To Len(Bin)BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1))Next iEnd Function' 3.用途:将十六进制转化为二进制' 输入:Hex(十六进制数)' 输入数据类型:String' 输出:HEX_to_BIN(二进制数)' 输出数据类型:String' 输入的最大数为2147483647个字符Public Function HEX_to_BIN(ByVal Hex As String) As String Dim i As LongDim B As StringHex = UCase(Hex)For i = 1 To Len(Hex)Select Case Mid(Hex, i, 1)Case "0": B = B & "0000"Case "1": B = B & "0001"Case "2": B = B & "0010"Case "3": B = B & "0011"Case "4": B = B & "0100"Case "5": B = B & "0101"Case "6": B = B & "0110"Case "7": B = B & "0111"Case "8": B = B & "1000"Case "9": B = B & "1001"Case "A": B = B & "1010"Case "B": B = B & "1011"Case "C": B = B & "1100"Case "D": B = B & "1101"Case "E": B = B & "1110"Case "F": B = B & "1111"End SelectNext iWhile Left(B, 1) = "0"B = Right(B, Len(B) - 1)WendHEX_to_BIN = BEnd Function' 4.用途:将二进制转化为十六进制' 输入:Bin(二进制数)' 输入数据类型:String' 输出:BIN_to_HEX(十六进制数)' 输出数据类型:String' 输入的最大数为2147483647个字符Public Function BIN_to_HEX(ByVal Bin As String) As String Dim i As LongDim H As StringIf Len(Bin) Mod 4 <> 0 ThenBin = String(4 - Len(Bin) Mod 4, "0") & Bin End IfFor i = 1 To Len(Bin) Step 4Select Case Mid(Bin, i, 4)Case "0000": H = H & "0"Case "0001": H = H & "1"Case "0010": H = H & "2"Case "0011": H = H & "3"Case "0100": H = H & "4"Case "0101": H = H & "5"Case "0110": H = H & "6"Case "0111": H = H & "7"Case "1000": H = H & "8"Case "1001": H = H & "9"Case "1010": H = H & "A"Case "1011": H = H & "B"Case "1100": H = H & "C"Case "1101": H = H & "D"Case "1110": H = H & "E"Case "1111": H = H & "F"End SelectNext iWhile Left(H, 1) = "0"H = Right(H, Len(H) - 1)WendBIN_to_HEX = HEnd Function'5. 用途:将十六进制转化为十进制' 输入:Hex(十六进制数)' 输入数据类型:String' 输出:HEX_to_DEC(十进制数)' 输出数据类型:Long' 输入的最大数为7FFFFFFF,输出的最大数为2147483647 Public Function HEX_to_DEC(ByVal Hex As String) As Long Dim i As LongDim B As LongHex = UCase(Hex)For i = 1 To Len(Hex)Select Case Mid(Hex, Len(Hex) - i + 1, 1)Case "0": B = B + 16 ^ (i - 1) * 0Case "1": B = B + 16 ^ (i - 1) * 1Case "2": B = B + 16 ^ (i - 1) * 2Case "3": B = B + 16 ^ (i - 1) * 3Case "4": B = B + 16 ^ (i - 1) * 4Case "5": B = B + 16 ^ (i - 1) * 5Case "6": B = B + 16 ^ (i - 1) * 6Case "7": B = B + 16 ^ (i - 1) * 7Case "8": B = B + 16 ^ (i - 1) * 8Case "9": B = B + 16 ^ (i - 1) * 9Case "A": B = B + 16 ^ (i - 1) * 10Case "B": B = B + 16 ^ (i - 1) * 11Case "C": B = B + 16 ^ (i - 1) * 12Case "D": B = B + 16 ^ (i - 1) * 13Case "E": B = B + 16 ^ (i - 1) * 14Case "F": B = B + 16 ^ (i - 1) * 15End SelectNext iHEX_to_DEC = BEnd Function' 6.用途:将十进制转化为十六进制' 输入:Dec(十进制数)' 输入数据类型:Long' 输出:DEC_to_HEX(十六进制数)' 输出数据类型:String' 输入的最大数为2147483647,输出最大数为7FFFFFFF Public Function DEC_to_HEX(Dec As Long) As StringDim a As StringDEC_to_HEX = ""Do While Dec > 0a = CStr(Dec Mod 16)Select Case aCase "10": a = "A"Case "11": a = "B"Case "12": a = "C"Case "13": a = "D"Case "14": a = "E"Case "15": a = "F"End SelectDEC_to_HEX = a & DEC_to_HEXDec = Dec \ 16LoopEnd Function'7. 用途:将十进制转化为八进制' 输入:Dec(十进制数)' 输入数据类型:Long' 输出:DEC_to_OCT(八进制数)' 输出数据类型:String' 输入的最大数为2147483647,输出最大数为 Public Function DEC_to_OCT(Dec As Long) As StringDEC_to_OCT = ""Do While Dec > 0DEC_to_OCT = Dec Mod 8 & DEC_to_OCTDec = Dec \ 8LoopEnd Function'8. 用途:将八进制转化为十进制' 输入:Oct(八进制数)' 输入数据类型:String' 输出:OCT_to_DEC(十进制数)' 输出数据类型:Long' 输入的最大数为,输出的最大数为2147483647Public Function OCT_to_DEC(ByVal Oct As String) As Long Dim i As LongDim B As LongFor i = 1 To Len(Oct)Select Case Mid(Oct, Len(Oct) - i + 1, 1)Case "0": B = B + 8 ^ (i - 1) * 0Case "1": B = B + 8 ^ (i - 1) * 1Case "2": B = B + 8 ^ (i - 1) * 2Case "3": B = B + 8 ^ (i - 1) * 3Case "4": B = B + 8 ^ (i - 1) * 4Case "5": B = B + 8 ^ (i - 1) * 5Case "6": B = B + 8 ^ (i - 1) * 6Case "7": B = B + 8 ^ (i - 1) * 7End SelectNext iOCT_to_DEC = BEnd Function' 9.用途:将二进制转化为八进制' 输入:Bin(二进制数)' 输入数据类型:String' 输出:BIN_to_OCT(八进制数)' 输出数据类型:String' 输入的最大数为2147483647个字符Public Function BIN_to_OCT(ByVal Bin As String) As String Dim i As LongDim H As StringIf Len(Bin) Mod 3 <> 0 ThenBin = String(3 - Len(Bin) Mod 3, "0") & BinEnd IfFor i = 1 To Len(Bin) Step 3Select Case Mid(Bin, i, 3)Case "000": H = H & "0"Case "001": H = H & "1"Case "010": H = H & "2"Case "011": H = H & "3"Case "100": H = H & "4"Case "101": H = H & "5"Case "110": H = H & "6"Case "111": H = H & "7"End SelectNext iWhile Left(H, 1) = "0"H = Right(H, Len(H) - 1)WendBIN_to_OCT = HEnd Function'10. 用途:将八进制转化为二进制' 输入:Oct(八进制数)' 输入数据类型:String' 输出:OCT_to_BIN(二进制数)' 输出数据类型:String' 输入的最大数为2147483647个字符Public Function OCT_to_BIN(ByVal Oct As String) As String Dim i As LongDim B As StringFor i = 1 To Len(Oct)Select Case Mid(Oct, i, 1)Case "0": B = B & "000"Case "1": B = B & "001"Case "2": B = B & "010"Case "3": B = B & "011"Case "4": B = B & "100"Case "5": B = B & "101"Case "6": B = B & "110"Case "7": B = B & "111"End SelectNext iWhile Left(B, 1) = "0"B = Right(B, Len(B) - 1)WendOCT_to_BIN = BEnd Function'11. 用途:将八进制转化为十六进制' 输入:Oct(八进制数)' 输入数据类型:String' 输出:OCT_to_HEX(十六进制数)' 输出数据类型:String' 输入的最大数为2147483647个字符Public Function OCT_to_HEX(ByVal Oct As String) As String Dim Bin As StringBin = OCT_to_BIN(Oct)OCT_to_HEX = BIN_to_HEX(Bin) End Function'12. 用途:将十六进制转化为八进制' 输入:Hex(十六进制数)' 输入数据类型:String' 输出:HEX_to_OCT(八进制数)' 输出数据类型:String' 输入的最大数为2147483647个字符Public Function HEX_to_OCT(ByVal Hex As String) As String Dim Bin As StringHex = UCase(Hex)Bin = HEX_to_BIN(Hex)HEX_to_OCT = BIN_to_OCT(Bin) End FunctionVB自带函数:十进制转八进制:Oct(num)十六进制转八进制:oct("&H" & num)十进制转十六进制:hex(num)八进制转十六进制:hex("&O" & num)十六进制转换为十进制Dim str As Stringstr = Text2.TextText10.Text = CLng("&H" & str)谣言:吃太咸了会得病,导语:“人体每日摄入食盐不应过多，否则易患多种疾病。
一、VB中的转换函数Val将数字字符串转换为数值，Val（13）值为13，Str
一、VB 中的转换函数 Val:
将数字字符串转换为数值，Val("13")值为13，Str 将数值转为为字符串Str(13)值为"13" ①字符串和数值："123" 和 123 ，带双引号的"123"是字符串，在计算机中存储时，存储的是每个字符的对应的内码；而123是数值，表示大小，在计算机中直接存储其数值。
②VB 数据类型 Integer 、Long 、Single 、Double 都是数值类型，String 为字符类型。
③在VB 程序中 对象的Caption 、Text 的属性值都属于字符串类型，列表框List 上添加内容的也是字符串型。
④赋值语句的两种形式：变量名=表达式 或 对象名.属性名=表达式。
根据赋值等号两边数据类型，来确定右边是否要转换。
数值型 = Val(字符串型)， 字符串型 = Str(数值型) 右边的数据类型和左边的类型不一致，则需要将右边的转换成和左边一致在，再赋值。
这两种错误，检查代码代码中IF 和EndIF 、For 和Next 、Do 和Loop 有没有配对。
输入、输出的都是字符类型。
VB6.0函数介绍
1.数值型函数：abs(num) ‘返回绝对值sgn(num) ‘num>0 返回1；num=0 返回0;num<0 返回-1; 判断数值正负hex(num) ‘返回十六进制值直接表示：&Hxx最大8位oct(num) ‘返回八进制值直接表示：&Oxx最大8位sqr(num) ‘返回平方根num>0int(num) ‘取整int(99.8)=99;int(-99.2)=-100fix(num) ‘取整fix(99.8)=99;int(-99.2)=-99round(num,n) ‘四舍五入取小数位round(3.14159,3)=3.142 中数值四舍五入并取偶数值整round（3.25，1）=3.2log(num): ‘取e的n次幂通用num>0exp(n): ‘取e的n次幂通用num^nsin(num): ‘三角函数，以弧度为值计算（角度*Pai）/180=弧度con(num);tan(num);atn()2.字符串函数：len(str): ‘计算字符串长度中文字符长度也计为一mid(str,起始字符，[读取长度])：‘left(str,nlen): ‘从左边起截取nlen长度字符串right( , ): ‘从右边……………Lcase(str); ‘字符串转为小写Ucase(str); ‘字符串转为大写trim(str); ‘去除字符串两端（首尾）空格Ltrim(str); ‘去除字符串左侧空格Rtrim(str); ‘去除字符串右侧空格replace(str,查找字符串，替代字符串，[起始字符，替代次数，比较方法])；‘替代字符串注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0）inStr([起始字符],str，查找字符串，[比较方法])；‘查找的字符串在字符串的位置从左侧开始查注：比较方法中，compare 参数设置为：常数值vbUseCompareOption -1 说明：使用Option Compare 语句设置执行一个比较。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB中各种数据类型转换函数
所属类别：VB
推荐指数：★★★★
文档人气：23150
本周人气：118
发布日期：2006-3-14
在VB中,提供了很多数据类型转换的函数,特别是各种进制数据的转换以及字符串和数
字的转换函数,本文将对这些函数做一个简单的小结.
1. 各种进制转换函数
一般的数据进制包括十进制,二进制,十六进制.十进制就是我们日常生活用到的数据进制,因此也是我们最熟悉和清楚的;二进制是计算机的基础进制,主要是因为便于用物理器件实现二进制;八进制和十六进制因为和二进制的天然的亲密关系,并且表示比二进制更方便,因而也成为计算机的常用表示方法.
VB中涉及到的数据进制之间的转换函数主要有如下几个:
Hex 函数: 返回代表十六进制数值的String;
Oct 函数: 返回代表一数值的八进制值的Variant (String);
Cint函数: 强制将一个表达式转换成-32,768 至32,767的整型;
CLng函数: 强制将一个表达式转换成-2,147,483,648 至2,147,483,647的长整型;
Cdec函数: 强制将一个表达式转换成Decimal 数据类型;
CDbl函数: 强制将一个表达式转换成Double 数据类型;
以上这些函数是最基本的几个数据进制之间的转换函数,其中以前三个函数最常用,也最有用.从上面几个函数我们可以看到,VB中没有为我们提供专门的函数供我们将表达式或是数据转换成十进制和二进制,不过十进制的转换我们可以通过Cint函数轻松完成,而二进制的实现我们可以通过二进制和八进制,十六进制的关
系轻松转换.
下面几个例子为Hex函数和Oct函数以及Cint函数的实例:
(1). A= hex(5) 返回5;
(2). B=hex(10) 返回A
(3). C=hex(23) 返回17
(4). D=oct(5) 返回5
(5). E=oct(10) 返回12
(6). F=oct(23) 返回27
(7). G=Cint(&H17) 返回23
(8) . H=Cint(&O12) 返回10
以上这些函数的应用比较简单,就不多说了,值得一提的是Hex函数和Oct函数返回的都是字符串,如果是想将十六进制或是八进制的字符串变量转换成十进制,可以按如下方法进行:
C=”17” 17为十六进制数值的String
C=”&H” & C
Ic=Cint(C) 返回23
2. 字符串和数字转换函数
VB中的字符串函数比较多,也比较方便,就不一一介绍了.本文主要对字符串相关的
转换函数做一些小结.字符串转换的函数主要有:
Str()和Val()用于字符串和数字的相互转换;
Chr()和Asc()用于字符串和AscII码的相互转换;
Chrw()和Ascw()用于Unicode码和中文的相互转换;
Format()函数用途十分广泛的一个函数,功能十分强大.
在这些函数中前两对和Format()函数是我们经常用到的,这里只给出前两对的几个简单例子:
(1) MyString = Str(-459.65) ' 返回"-459.65"。
MyString = Str(459.001) ' 返回" 459.001"。
(2) MyValue = Val(" 2 45 7") ' 返回2457。
MyValue = Val("24 and 57") ' 返回24。
(3) MyChar = Chr(97) ' 返回a。
MyChar = Chr(37) ' 返回%。
(4) MyNumber = Asc("Apple") ' 返回65。
MyNumber = Asc("a") ' 返回97。
Format函数功能十分强大,大家可以察看msdn相关说明.本文重点想说一下第三对函数,这是经常被大家忽视的一对函数.在我开发手机短信时,最开始时就是用text模式开发的,后来由于发中文改成pdu模式,pdu模式有三种形式可用:7-bits,8-bits,ucs2.前两种都是表复杂的,涉及到编码函数的设计,这里就不多说了,我用的是ucs2编码,发现只要使用第三对函数就能完成pdu串的编码和解码.这对函数的使用和第二对完全相同,下面举几个例子说明(以下代码从vb的立即窗口里得到):
?ascw("中")
20013
?ascw("果")
26524
?ascw("e")
101
?chrw(101)
e
?chrw(26589)
柝
在chrw()和ascw()函数中,对于ASCII仍然和chr()与asc()相同对待.以上只是我对这些函数使用时的一点小
结,期望能起到抛砖引玉的作用.。