百度网友e28c809242009-04-11TA获得超过1000个赞关注PrivateSubCommand1_Click()DimaAsStringMsgBoxVarType(a)EndSubVarType函数返回返回一个Integer，指出变量的子类型。语法VarType(varname)必要的varname参数是一个Variant，包含用户定义类型变量之外的任何变量。返回?*Ｊ?得枋鲻bEmpty0Empty（未初始化）vbNull1Null（无有效**）vbInteger2整数vbLong3长整数vbSingle4单精度浮点数vbDouble5双精度浮点数vbCurrency6货值vbDate7日期vbString8字符串vbObject9对象vbError10错误值vbBoolean11布尔值vbVariant12Variant（只与变体中的数组一起使用）vbDataObject13**访问对象vbDecimal14十进制值vbByte17位值vbUserDefinedType36包含用户定义类型的变量vbArray8192数组注意这些常数是由VisualBasic为应用程序指定的。这些名称可以在程序代码中到处使用，以代替实际值。说明VarType函数自身从不对vbArray返回值。VarType总是要加上一些其他值来指出一个具体类型的数组。常数vbVariant只与vbArray一起返回，以表明VarType函数的参数是一个Variant类型的数组。例如，对一个整数数组的返回值是vbInteger+vbArray，或8194。如果一个对象有缺省属性，则VarType(object)返回对象缺省属性的类型。