''' <summary>
        ''' 判断字符串是否为数字
        ''' </summary>
        ''' <param name="value">字符串</param>
        ''' <returns>如果字符串为数字，返回true，否则返回false</returns>
        <Extension()>
        Function IsNumeric(ByVal value As String) As Boolean
            Return Regex.IsMatch(value, "^[+-]?\d*[.]?\d*$")
        End Function
 

 
 
 
  

   运行效果：
  
 
  

   
  
 
 
 
 

  

 
 
 程序代码： 
 
 
  

   Private Sub Command1_Click()
  
 
  

       Dim bo, ba, st As String
  
 
  

       st = Text1.Text
  
 
  

       bo = st Like "[a-z]"
  
 
  

       ba = st Like "[A-Z]"
  
 
  

       If IsNumeric(st) Then
  
 
  

           MsgBox "输入的是数字", vbOKOnly, "信息提示"
  
 
  

       ElseIf bo Then
  
 
  

           MsgBox "输入的是小写字母", vbOKOnly, "信息提示"
  
 
  

       ElseIf ba Then
  
 
  

           MsgBox "输入的是大写字母", vbOKOnly, "信息提示"
  
 
  

       Else
  
 
  

           MsgBox "输入的既不是数字也不是字母", vbOKOnly, "信息提示"
  
 
  

       End If
  
 
  

   End Sub
  
 
 
 
 

  

 
 
 

  
  

  

 
 
 

  

 
 

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

  
 
更多精彩>>>