1 Val 函数 

返回包含于字符串内的数字，字符串中是一个适当类型的数值。 
语法 
Val(string) 
必要的 string 参数可以是任何有效的字符串表达式. 
说明 
Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进 位制符号 &O（八进制）和 &H（十六进制）。空白、制表符和换行符都从参数中被去掉。 
下面的返回值为 1615198： 
Val(" 1615 198th Street N.E.") 
在下面的代码中，Val 为所示的十六进制数值返回十进制数值 -1。 
Val("&HFFFF") 
注意 Val 函数只会将句点（.）当成一个可用的小数点分隔符。当使用不同的小数点分隔符时，如在国际版应用程序中，代之以 CDbl 来把字符串转换为数字。   
   
Val 函数示例 
本示例使用 Val 函数返回字符串中所含的数值。 
Dim MyValue 
MyValue = Val("2457") ' 返回 2457。 
MyValue = Val(" 2 45 7") ' 返回 2457。 
MyValue = Val("24 and 57") ' 返回 24。   
2 IsNumeric 函数 

返回 Boolean 值，指出表达式的运算结果是否为数。 
语法   
    
IsNumeric(expression) 
必要的 expression 参数是一个 Variant，包含数值表达式或字符串表达式。 
说明 
如果整个 expression 的运算结果为数字，则 IsNumeric 返回 True；否则返回 False。 
如果 expression 是日期表达式，则 IsNumeric 返回 False。   
    
IsNumeric 函数示例 
本示例使用 IsNumeric 函数判断变量的值是否可为数值。 
Dim MyVar, MyCheck 
MyVar = "53" ' 指定值。 
MyCheck = IsNumeric(MyVar) ' 返回 True。 
MyVar = "459.95" ' 指定值。 
MyCheck = IsNumeric(MyVar) ' 返回 True。 
MyVar = "45 Help" ' 指定值。 
MyCheck = IsNumeric(MyVar) ' 返回 False。 

摘自：网络整理



相关文章参考：


※VB SendMessage向其他程序窗口发送字符串消息实例
※VB 二进制数组与十六进制字符串相互转换
※VB 汉字字符串转换成拼音
※VB查找替代字符串的函数 
※VB中字符串匹配的多种方式 
※vb 字符串转为数字和判断字符串是否是数字字符串【转】
※查找替代字符串的函数 
※VB中使用MD5算法
※VB的MD5加密模块 
※加密算法-MD5算法
※VB 字符串MD5加密函数


 


★VB部分相关文章推荐：★

☆VB6 中善用ByRef 提升速度 
☆[vb] Set 语句 
☆VB_Format自定义格式 
☆用VB如读取内存地址 
☆vb FindwindowEx的用法实例 
☆进制转化进10进制数 
☆收藏:如何获取当前已经打开的IE对象(VB6代码) 
☆DXInput中键码的转换(VB6.0代码) 
☆如何在VB6.0里动态使用具有事件的对象 
☆[vb]格式输出Format函数 
☆读取和写入Windows的INI文件 
☆简述UTF－8编码原理及其文本文件的读写技术【转】 
☆VB中的文件操作 
☆VB中的文件操作文档 
☆vb 中拷贝文件 
☆VB反跟踪技术点滴 
☆VB共享软件防破解设计技术初探（二） 
☆VB共享软件防破解设计技术初探（三） 
☆VB共享软件防破解设计技术初探（一） 
☆RTF文件格式【转】
☆VB压缩技术 
☆[vb]FSO对象模型在VB中的应用 
☆VB 窗体实现文件拖拽获取路径方法 
☆VB：注册表的读写 
☆vb中空操作（等待）的指令、延时方法 
☆VB让控件可以当标题栏拖动 
☆FSO对象新建、打开、保存文件 
☆获取网关IP和MAC 的VB源码 
☆VB文件关联 
☆vb获得本地和远程的MAC地址(网卡地址) 
☆VB中ShellExeCute的应用 
☆VB打开网址方法大全 
☆vb简单控制音量大小及静音的方法 
☆拖动无边框窗体(VB6代码) 
☆VB使用FileSystemObject对象写文件 
☆VB 从注册表中删除项及其某个值 
☆vb 字符串转为数字和判断字符串是否是数字字符串【转】
☆vb按热键启动应用程序 
☆VB的坐标系统综述 
☆VB利用API函数来处理文件 
☆关于VB中Shell及ShellExecute的总结与记录 
☆[vb]On Error GoTo 0和On Error resume区别 
☆[vb]On Error 语句 
☆记录一下:在菜单上添加自绘图形的例子(VB6代码) 
☆vb中findwindow的疑惑 
☆[vb]FindWindow使用方法 
☆常用文件类[转，无法运行通，待调试] 
☆[vb]url utf-8编码 
☆VB中的Unicode 和Ansi 格式
☆VB中的format格式化函数 
☆VB中字符串匹配的多种方式 
☆VB抓图 
☆谈vb目录文件操作的三种方法－2 
☆谈vb目录文件操作的三种方法－1 
☆vb使用open方法读写文件 
☆VB的MD5加密模块 
☆VB 超简单的屏幕截图代码 
☆vb以类名或窗口标题查找句柄并关闭 
☆VB将配置保存到EXE本身（生成EXE木马程序） 
☆VB 调用腾讯截图控件CameraDLL.dll 
☆在VB6.0中怎么实现escape和unescape 
☆vb求任意两线交点 
☆VB中调用Windows API的注意事项[VB知识库] 
☆VB 一个获得自己外网IP 地址的程序代码 
☆VB程序中实现IP地址子网掩码网关DNS的更改[转] 
☆在VB 中应用FSO 对象模型介绍（摘自网络） 
☆[转] Vb中FSO 对象的介绍 
☆VB 画坐标轴 
☆VB 二进制文件的操作 
☆[VB]BMP转JPG 
☆VB中KeyCode常数用法 
☆vb实时曲线的绘制和保存 

更多精彩>>> 

	

Hello大家好，从本节课程开始，我们开启了新的篇章——VB常用内置函数。在VB6.0中，有很多的内置函数，利用好这些函数可以轻松地实现许多功能，减少代码编写量，使程序设计效率更上一层楼。在本章节，我将利用几节课程，逐一带领大家学习掌握：数学函数、字符串函数、类型转换函数、判断函数、日期和时间函数、随机函数和格式化函数。本节课程要一起学习的是：数学函数。数学函数VB6.0中所有的数学函数包括：Abs函数(求绝对值)、Exp函数(e的n次方)、Sgn函数(返回符号)、Sqr函数(平方根)、Sin函数(正弦)、Cos函数(余弦)、Atn函数(反正切)、Int函数(取整)、Fix函数(取整)、Log函数、Tan函数等等。1，Abs函数返回参数的绝对值，其类型和参数相同。语法Abs(number)必要的 number 参数是任何有效的数值表达式，如果 number 包含 Null，则返回 Null，如果 number 
是未初始化的变量，则返回 0。说明一个数的绝对值是将正负号去掉以后的值。例如，ABS(-1) 和 ABS(1) 都返回 
1。2，Atn函数返回一个 Double，指定一个数的反正切值。语法Atn(number)必要的 number 参数是一个 
Double或任何有效的数值表达式。说明Atn 函数的参数值 (number) 
为直角三角形两边的比值并返回以弧度为单位的角。这个比值是角的对边长度除以角的邻边长度之商。值的范围在 -pi/2 和 pi/2 
弧度之间。为了将角度转换为弧度，请将角度乘以 pi/180。为了将弧度转换为角度，请将弧度乘以 180/pi。注意 Atn 是 Tan 的反三角函数，Tan 
的参数值为角度，返回直角三角形的两条边的比值。不要将 Atn 和余切函数混淆，余切函数值是正切函数值的倒数，cotangent = 
(1/tangent)。3，Cos函数返回一个 Double，指定一个角的余弦值。语法Cos(number)必要的 number 参数是一 Double 或任何有效的数值表达式，表示一个以弧度为单位的角。说明Cos 函数的参数为一个角，并返回直角三角形两边的比值。该比值为角的邻边长度除以斜边长度之商。结果的取值范围在 -1 到 1 之间。为了将角度转换成弧度，请将角度乘以 pi/180。为了将弧度转换成角度，请将弧度乘以 180/pi。4，Exp函数返回 Double，指定 e(自然对数的底)的某次方。语法Exp(number)必要的 number 参数 number 是 Double或任何有效的数值表达式。说明如果 number 的值超过 709.782712893，则会导致错误发生。常数 e 的值大约是 2.718282。注意 Exp 函数的作用和 Log 的作用互补，所以有时也称做反对数。5，Fix函数返回参数的整数部分。语法Int(number)Fix(number)必要的 number 参数是 Double 或任何有效的数值表达式。如果 number 包含 Null，则返回 Null。说明Int 和 Fix 都会删除 number 的小数部份而返回剩下的整数。Int 和 Fix 的不同之处在于，如果 number 为负数，则 Int 
返回小于或等于 number 的第一个负整数，而 Fix 则会返回大于或等于 number 的第一个负整数。例如，Int 将 -8.4 转换成 -9，而 Fix 将 -8.4 转换成 -8。Fix(number) 等于：
Sgn(number) * Int(Abs(number))
6，Int函数返回参数的整数部分。语法Int(number)Fix(number)必要的 number 参数是 Double 或任何有效的数值表达式。如果 number 包含 Null，则返回 Null。说明Int 和 Fix 都会删除 number 的小数部份而返回剩下的整数。Int 和 Fix 的不同之处在于，如果 number 为负数，则 Int 
返回小于或等于 number 的第一个负整数，而 Fix 则会返回大于或等于 number 的第一个负整数。例如，Int 将 -8.4 转换成 -9，而 Fix 将 -8.4 转换成 -8。Fix(number) 等于：
Sgn(number) * Int(Abs(number))
7，Log函数返回一个 Double，指定参数的自然对数值。语法Log(number)必要的 number 参数是 Double 或任何有效的大于 0 的数值表达式。说明自然对数是以 e 为底的对数。常数 e 的值大约是 2.718282。如下所示，将 x 的自然对数值除以 n 的自然对数值，就可以对任意底 n 来计算数值 
x 的对数值：Logn(x) = Log(x) / Log(n)下面的示例说明如何编写一个函数来求以 10 为底的对数值：
Static Function Log10(X)
    Log10 = Log(X) / Log(10#)
End Function
8，Sgn函数返回一个 Variant (Integer)，指出参数的正负号。语法Sgn(number)必要的 number 参数是任何有效的数值表达式。返回值
如果 number 为
Sgn 返回
大于 0
1
等于 0
0
小于 0
-1
说明
number 参数的符号决定了 Sgn 函数的返回值。9，Sin函数返回一 Double，指定参数的 sine(正弦)值。语法Sin(number)必要的 number 参数是 Double 或任何有效的数值表达式，表示一个以弧度为单位的角。说明Sin 函数取一角度为参数值，并返回角的对边长度除以斜边长度的比值。结果的取值范围在 -1 到 1 之间。为了将角度转换为弧度，请将角度乘以 pi /180。为了将弧度转换为角度，请将弧度乘以 180/pi。10，Sqr函数返回一个 Double，指定参数的平方根。语法Sqr(number)必要的 number 参数 number 是 Double 或任何有效的大于或等于 0 
的数值表达式。11，Tan函数返回一个 Double 的值，指定一个角的正切值。语法Tan(number)必要的 number 参数是 Double 或任何有效的数值表达式，表示一个以弧度为单位的角度。说明Tan 取一角度为参数值，并返回直角的两条邻边的比值。该比值是角的对边长度除以角的邻边长度的商。为了将角度转换为弧度，请将角度乘以 pi/180/180。为了将弧度转换为角度，请将弧度乘以 180/pi。
举例：
计算Tan(45°)的值
注意，在数学中，计算Tan值，其参数以角度衡量，但在VB中，需要将角度转换为弧度。任何VB函数都是这样，这一点一定要注意。
角度换算弧度的方法为：
弧度值=角度值*π/180
计算Tan(45°)的代码如下：
Private Sub Command1_Click()    '计算45°角的Tan值    Print Tan(3.1415 * 45 / 180)End Sub
其中，π的值，需要近似取值，如果想要越精准，则小数点后面取的位数要越多，但实际上并不能完全做完全等于数学中的计算结果。比如我们知道数学中Tan45°的结果应该是1，但是用VB做出来的结果却是小于1的，可以无限接近，但永远达不到1，原因就在于π的取值不能精准的缘故。
好啦，本节课程关于VB数学函数的学习就到这里了。很多的函数我们并没有举例，它们的使用方法是类似的，小伙伴可以在实际运用时，来这里查看使用方法。

C#中有没有判断一个string类型变量是否为数字类型的系统函数(如vb中的IsNumeric(s))？


答案肯定是没有的。有人提议用int.Parse(string)的方法，然后通过捕获异常来判断返回的值。更好的方法是用正则表达式：
public int IsNumeric(string str)
{
      int i;
      if(str != null && Regex.IsMatch(str,@"^/d+$"))
                i = int.Parse(str);
      else
                i = -1;
       return i;
}

这应该是个好办法。不过如果要提出更高的要求，例如不仅要判断字符串是否全为数字，还要在判断后，要求将其进行转换。那么上述函数就有缺陷，因为在上面的正则表达式中无法判断‘-’符号。因此上面的函数只能转换非负数。尤有甚者，要求转换的不仅是整数，还包括浮点数，尤其是科学计数法的字符串，例如：string s = "-3.14159E+10"


这里面的'E'、'.'、'+'等字符，都是比较特殊的，而且还要求它们出现的位置要符合浮点数或科学计数方法的规定。那么就不能使用正则表达式了，至少很麻烦（我是这样认为的，或许有好的方法）。问题还是回到最初的解决方案，就是使用Parse（）方法和捕获异常。以下是实现此功能的方法：
public bool IsNumeric(string s, out double result)
{
   bool bReturn = true;
   try
   {
       result = double.Parse(s);
   }
   catch
   {
       result = 0;
       bReturn = false;
   }
   return bReturn;      
}
例如调用：

string s1="abc";
string s2="-3.14159E+10";
double d1,d2;
bool ty1 = IsNumeric(s1,out d1);
bool ty2 = IsNumeric(s2,out d2);
结果：
ty1=false;d1=0;
ty2=true;d2=31415900000

说明：因为涉及到浮点数，就不能使用-1来做为出现错误的返回值，如前面的例子。也就是说本方法有两个返回值，一个是判断转换是否成功，为bool型；另一个是转换成功后的浮点数值。我用out来解决该问题。


本方法仍然适合整型，只需对返回值进行强制转换即可。
 本文转自：http://www.apsky.cn/atom.asp?cateID=16

	

VB编程之
字符串函数
在VB中，自身提供了丰富的内置函数可方便我们开发者用于程序设计，包括：数学函数 、字符串函数 、判断函数、转换函数等。
今天我们一起来学习VB中常用的字符串函数。
我们在文章开始前先定义一个字符串变量VB，对其赋值：
VB=“  跟我学VB微信平台  ”
 1.InStr([起始位置]，字符串1，字符串2[，比较类型])—   字符串2在字符串1中第一次出现的位置。 
2. InStrRev(字符串1， 字符串2[起始位置[，比较类型]]—与InStr()函数相似，是从字符串1的后面开始向前查找。
3. LTrim(字符串) —去掉字符串左边的空白部分。
eg:  LTrim( VB)= 跟我学VB微信平台  (去掉左面的空格)
4. Rtrim(字符串) —去掉字符串右边的空白部分。 
eg:  RTrim( VB)= 跟我学VB微信平台  (去掉右面的空格)
5. Trim(字符串) —去掉字符串的左右空格 。 
eg:  Trim( VB)= 跟我学VB微信平台  (去掉左右两面的空格)
6. Left(字符串，个数) —取出字符串左边指定个数的字符 。
 eg:  left( VB，5)= 跟我学VB  (从字符串VB中，取出左边的前5个字符)
7. Right(字符串，个数) —取出字符串右边指定个数的字符。
 eg:  Right( VB，4)= 微信平台  (从字符串VB中，取出右边的4个字符)
8. Mid(字符串，起始位置[，个数]) —取字符串由起始位置开始的指定个数的字符。 
 eg:  Mid( VB,4,2)= VB  (从字符串VB中的第四个位置处，取出2个字符)
9. Len(字符串或字符变量) —计算字符长度 。
eg:  Len( VB)= 9  (返回字符串的长度)
10. Ucase(字符串) —将字符串的小写字母转换为大写字母。
11. Lcase(字符串) —将字符串的大写字母转换为小写字母。 
12. Space(个数) —返回指定个数的空字符串。 
13. String(个数，字符)—返回包含重复字符的字符串 。
有学习问题可以添加老师微信号：vbyjk521 ，随时在线答疑。
长按上图，关注跟我学VB公众平台
跟我学VB