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实时曲线的绘制和保存 

更多精彩>>> 

    原文:http://www.cnblogs.com/HQT/archive/2005/08/26/223374.html

是否为数字：

char.IsNumber(char c)
char.IsNumber(string s,int index)

同样，还有判断是否字母类别的 IsLetter , 是否十进制数字的 IsDigit  都是非常好用的。

另外还有判断是否为字母的方法.以后不用再用正则了.原来有更直接的方法,正则应该更慢些吧,呵.



转载于:https://www.cnblogs.com/fxwdl/archive/2006/09/08/498976.html

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

逐个字符判断，是否为 "+-0123456789." 中的一个，取出连续的数值部分问题不明确啊

比如：
dim s as string
dim v as long

s="123abc456efg"
如果你只要123，那么有现成的函数：
v=val(s)

如果你要123456,如老鸟所言，逐个字符判断，或者用正则


遍历~Private Sub Command1_Click()
  Dim i As Integer
  Dim a As Double
  For i = 1 To Len(Text1)
  Text2 = Val(Mid(Text1, i, Len(Text1) - i + 1))
  If Text2 <> 0 Then
  Exit For
  End If
  Next
End Sub

Private Sub Form_Load()
  Text1 = "abc1234.56bcd"
End Sub来晚了'引用 Microsoft VBScript Regular Expressions x.x
Dim re As RegExp

Set re = New RegExp
re.Pattern = "\D"
re.Global = True
Debug.Print re.Replace("123abc456efg", "")


	[url=http://www.vbbaike.com/show.asp?id=101050]如何限制软件的使用期限?   [/url]

	[url=http://www.vbbaike.com/show.asp?id=101049]VC编写的控件在VB下使用的问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=101048]帮忙看看这句[/url]

	[url=http://www.vbbaike.com/show.asp?id=101047]msde的安装方法[/url]

	[url=http://www.vbbaike.com/show.asp?id=101046]请问在vba中如何加载当前路径dll[/url]

	[url=http://www.vbbaike.com/show.asp?id=101045]VB菜鸟求救：Stuff_MIS   查询错误：标准表达式中数据类型不匹配[/url]

	[url=http://www.vbbaike.com/show.asp?id=101044]API中的GetComputerName如何调用?[/url]

	[url=http://www.vbbaike.com/show.asp?id=101043]autocad的文件怎么样能导入vb中[/url]

	[url=http://www.vbbaike.com/show.asp?id=101042]怎么做字符串链表[/url]

	[url=http://www.vbbaike.com/show.asp?id=101041]高分求:将access数据库中某个表中指定字段导出成字段宽度、类型有限制的viual   foxpro表[/url]

	[url=http://www.vbbaike.com/show.asp?id=101040]关于考试试卷自动生成系统[/url]

	[url=http://www.vbbaike.com/show.asp?id=101039]如何限制软件的使用期限?   [/url]

	[url=http://www.vbbaike.com/show.asp?id=101038]如何限制软件的使用期限?[/url]

	[url=http://www.vbbaike.com/show.asp?id=101037]使用excel数据源，不能正确显示货币类型的小数……[/url]

	[url=http://www.vbbaike.com/show.asp?id=101036]LSet问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=101035]急需ＶＢ或ＶＣ编程人员[/url]

	[url=http://www.vbbaike.com/show.asp?id=101034]vb中   数字后面有个#是什么意思[/url]

	[url=http://www.vbbaike.com/show.asp?id=101033]求助：文件读取问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=101032]RowIsVisible   怎么样显示网格中被隐藏的行!我快干血了...[/url]

	[url=http://www.vbbaike.com/show.asp?id=101031]如何用CreatProgress函数成功启动command.com程序[/url]

	[url=http://www.vbbaike.com/show.asp?id=101030]乘法溢出的问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=101029]初次做VB的DLL，请大家帮忙！[/url]

	[url=http://www.vbbaike.com/show.asp?id=101028]权限被拒绝[/url]

	[url=http://www.vbbaike.com/show.asp?id=101027]Excel导入Sql   server2000中openrowset的使用时奇怪问题![/url]

	[url=http://www.vbbaike.com/show.asp?id=101026]什么品牌电脑好？[/url]

	[url=http://www.vbbaike.com/show.asp?id=101025]VB+ado+Access如何数据修改[/url]

	[url=http://www.vbbaike.com/show.asp?id=101024]VB怎样只读取字符串中的数字部分??[/url]

	[url=http://www.vbbaike.com/show.asp?id=101023]VC菜鸟关于生成exe文件无法运行的问题，在线等[/url]

	[url=http://www.vbbaike.com/show.asp?id=101022]老问题，如何将函数作为参数进行传递？[/url]

	[url=http://www.vbbaike.com/show.asp?id=101021]如何在WEB控件里点击某文字连接??[/url]

	[url=http://www.vbbaike.com/show.asp?id=101020]100分悬赏rc2加密算法[/url]

	[url=http://www.vbbaike.com/show.asp?id=101019]关于按狃问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=101018]一个逻辑上的问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=101017]如何引用ACCESS   中窗体的文本框的值?[/url]

	[url=http://www.vbbaike.com/show.asp?id=101016]CSDN   快速搜索[/url]

	[url=http://www.vbbaike.com/show.asp?id=101015]关于LDAP连接的问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=101014]最近用尝试用VB做DLL，有问题请大家指教一下。[/url]

	[url=http://www.vbbaike.com/show.asp?id=101013]excel   后台打印报表的问题？？？[/url]

	[url=http://www.vbbaike.com/show.asp?id=101012]如何使用web控件执行网页操作??[/url]

	[url=http://www.vbbaike.com/show.asp?id=101011]inet.openurl的问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=101010]关于   RasGetProjectionInfo   求   IP   地址的问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=101009]DataGrid的用法：如何在datagrid中插入一列数据？[/url]

	[url=http://www.vbbaike.com/show.asp?id=101008]msflexgrid   用鼠标[/url]

	[url=http://www.vbbaike.com/show.asp?id=101007]连接一个dbf表   open   出错      [/url]

	[url=http://www.vbbaike.com/show.asp?id=101006]怎么把RS数据绑定Data   Report   的文本框控件上?[/url]

	[url=http://www.vbbaike.com/show.asp?id=101005]最好的视频教程网站[/url]

	[url=http://www.vbbaike.com/show.asp?id=101004]在台式机的800×600下编写的VB程序，放到笔记本上字体太难看粗糙，但在1024×768下显示时，字体虽然好看，但程序运行后的窗口只占液晶显示器的一部分，有没有适应屏幕分辨率的控件，自己编代码实现太麻烦，因界面上控件太多。[/url]

	[url=http://www.vbbaike.com/show.asp?id=101003]请问一个ADO的问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=101002]新手请教几个简单问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=101001]webbrowser自动填表进阶疑问：如何选完省再选市[/url]

	[url=http://www.vbbaike.com/show.asp?id=101000]急急急高分快速解决[/url]

	[url=http://www.vbbaike.com/show.asp?id=100999]VB中对表排序[/url]

	[url=http://www.vbbaike.com/show.asp?id=100998]急急急高分快速解决[/url]

	[url=http://www.vbbaike.com/show.asp?id=100997]高手请教一个正则表达式的问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=100996]用VB的ADO访问DBF文件出问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=100995]连接sqlserver服务器,如果服务器关机的话,等待时间太长的问题怎么解决?[/url]

	[url=http://www.vbbaike.com/show.asp?id=100994]怎么回事啊!!高手进来看看[/url]

	[url=http://www.vbbaike.com/show.asp?id=100993]疑难问题:   vb6.exe   中发生未处理的win32异常[/url]

	[url=http://www.vbbaike.com/show.asp?id=100992]AT   指令删除短信问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=100991]关于记录集复制[/url]

	[url=http://www.vbbaike.com/show.asp?id=100990]sql   server   如何使用VB6   代码进行数据库文件（mdf,ldf）的   附加和分离？[/url]

	[url=http://www.vbbaike.com/show.asp?id=100989]难度10:压缩数据，然后解压数据包，不要文件格式，怎么做？[/url]

	[url=http://www.vbbaike.com/show.asp?id=100988]请问VB.NET里的这句话在VB6里怎么实现？[/url]

	[url=http://www.vbbaike.com/show.asp?id=100987]菜鸟急题！sendkeys向一个java程序发送中文出现乱码问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=100986]--------取货表   到   库存货架表   中取货的问题----- < <高级版 > >----   [/url]

	[url=http://www.vbbaike.com/show.asp?id=100985]一条sql语句插入值的问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=100984]求助,那位大哥能帮忙解决本人将给予一定报酬[/url]

	[url=http://www.vbbaike.com/show.asp?id=100983]求助[/url]

	[url=http://www.vbbaike.com/show.asp?id=100982]国庆归来散分[/url]

	[url=http://www.vbbaike.com/show.asp?id=100981]新手提问：关于如何使窗体自动适应图片大小的问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=100980]开发状态下，怎么关闭所有的窗口，每次都要一个一个按[/url]

	[url=http://www.vbbaike.com/show.asp?id=100979]用vb生成word文档，页眉页脚怎么生成呢?[/url]

	[url=http://www.vbbaike.com/show.asp?id=100978]想做觸摸屏瀏覽器上的軟鍵盤，可是關於WebBrowser中文本框焦點問題怎麼獲取呀？[/url]

	[url=http://www.vbbaike.com/show.asp?id=100977]关于获取QQ游戏密码的问题。只是研究。不是破坏！[/url]

	[url=http://www.vbbaike.com/show.asp?id=100976]有没有办法独占方式访问一个分区[/url]

	[url=http://www.vbbaike.com/show.asp?id=100975]如何使用wmi获得系统信息如CPU内存大小硬盘大小主板型号等[/url]

	[url=http://www.vbbaike.com/show.asp?id=100974]如位有fpspr70.ocx控件,发下给我.谢谢啦[/url]

	[url=http://www.vbbaike.com/show.asp?id=100973]有没有去掉整数后小数点的函数   是小数点不是0[/url]

	[url=http://www.vbbaike.com/show.asp?id=100972]如何实现此文件操作？[/url]

	[url=http://www.vbbaike.com/show.asp?id=100971]ActiveReport整数怎样可以不打印出小数点（SQL中money类型怎样显示出小于0的数前的0）   [/url]

	[url=http://www.vbbaike.com/show.asp?id=100970]大家帮我以下,关于查询的问题   [/url]

	[url=http://www.vbbaike.com/show.asp?id=100969]最近用尝试用VB做DLL，有问题请大家指教一下。[/url]

	[url=http://www.vbbaike.com/show.asp?id=100968]最近自己尝试做Dll，有问题大家帮忙[/url]

	[url=http://www.vbbaike.com/show.asp?id=100967]求一款翻译软件，急[/url]

	[url=http://www.vbbaike.com/show.asp?id=100966]文件关联了以后，如何批量传送COMMAND[/url]

	[url=http://www.vbbaike.com/show.asp?id=100965]求一个内存读图片的工具。[/url]

	[url=http://www.vbbaike.com/show.asp?id=100964]局域网内IP地址为什么会变[/url]

	[url=http://www.vbbaike.com/show.asp?id=100963]vb   的winsock控件如何实现一对多的连接[/url]

	[url=http://www.vbbaike.com/show.asp?id=100962]请问如何对DTPicker付值？[/url]

	[url=http://www.vbbaike.com/show.asp?id=100961]excel报表打印问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=100960]整数怎样可以不打印出小数点（SQL中money类型怎样显示出小于0的数前的0）[/url]

	[url=http://www.vbbaike.com/show.asp?id=100959]请问如何比较组织数中节点的属性?[/url]

	[url=http://www.vbbaike.com/show.asp?id=100958]ActiveReport控件怎样不打印小数点打印[/url]

	[url=http://www.vbbaike.com/show.asp?id=100957]整数怎样可以不打印出小数点（SQL中money类型怎样显示出小于0的数前的0）[/url]

	[url=http://www.vbbaike.com/show.asp?id=100956]请问如何对一个date形变量付置？[/url]

	[url=http://www.vbbaike.com/show.asp?id=100955]求助   Datagrid控件和Adodc控件使用问题[/url]

	[url=http://www.vbbaike.com/show.asp?id=100954]进度条控制问题??[/url]

	[url=http://www.vbbaike.com/show.asp?id=100953]vb中的控件不能使用[/url]

	[url=http://www.vbbaike.com/show.asp?id=100952]救小弟，把查询一列放在listview中，然后希望点击某个格可以直接把它的值赋给text.怎么办呀？[/url]

	[url=http://www.vbbaike.com/show.asp?id=100951]满分，跪求！！！access的form控件      窗体的“记录源“（Record   Source）属性[/url]

更多vb开发资料，请访问http://www.vbbaike.com/