Question

VB获得变量的类型

我的意思是获得变量的类型，比如：
Dim A As Long

然后在程序中，用函数***来获得类型：

Msgbox ***（A）

然后出现“Long”的信息框。
如果有人会的话我会加分的。谢谢！！！

Answer 1

有两种方法可以获得变量类型

方法一： 用VB6函数VarType(varname) ，这个函数返回一个整数，整数的含义见下表

举例

'定义变量
Dim IntVar, StrVar, DateVar
'初始化各个变量
IntVar = 459
StrVar = "Hello World"
DateVar = #2/12/69# 

Dim MyCheck As Integer 
MyCheck = VarType(IntVar)   'MyCheck = 2，即Interger类型
MyCheck = VarType(DateVar)  'MyCheck = 7，即Date类型
MyCheck = VarType(StrVar)   'MyCheck = 8，即String类型

方法二：用TypeName(varname)函数，返回变量类型的名称，返回值为字符串类型。

举例

Dim a
a = "abc"
Debug.Print TypeName(a)  '输出为 String
a = 100
Debug.Print TypeName(a)  '输出为 Integer
a = #6/27/2015#
Debug.Print TypeName(a)  '输出为 Date

Answer 2

TypeName 函数

返回一个 String，提供有关变量的信息。

语法

TypeName(varname)

必要的 varname 参数是一个 Variant，它包含用户定义类型变量之外的任何变量。

说明

TypeName 所返回的字符串可以是下面列举的任何一个字符串：

返回字符串 变量
对象类型 类型为 objecttype 的对象
Byte 位值
Integer 整数
Long 长整数
Single 单精度浮点数
Double 双精度浮点数
Currency 货币
Decimal 十进制值
Date 日期
String 字符串
布尔 布尔值
Error 错误值
Empty 未初始化
Null 无效数据
Object 对象
Unknown 类型未知的对象
Nothing 不再引用对象的对象变量

如果 varname 是一个数组，则返回的字符串可以是任何一个后面添加了空括号的可能的返回字符串（或 Variant）。例如，如果 varname 是一个整数数组，则 TypeName 返回 "Integer()"。

TypeName 函数示例
本示例使用 TypeName 函数返回有关变量的信息。

' 声明变量。
Dim NullVar, MyType, StrVar As String, IntVar As Integer, CurVar As Currency
Dim ArrayVar (1 To 5) As Integer
NullVar = Null ' 设置变量值为 Null。
MyType = TypeName(StrVar) ' 返回 "String"。
MyType = TypeName(IntVar) ' 返回 "Integer"。
MyType = TypeName(CurVar) ' 返回 "Currency"。
MyType = TypeName(NullVar) ' 返回 "Null"。
MyType = TypeName(ArrayVar) ' 返回 "Integer()"。

Answer 3

Msgbox TypeName(A)
加分吧，:-)

Answer 4

vartype(变量名)=值

Answer 5

Private Sub Command1_Click()
Dim A As Long
MsgBox TypeName(A)
End Sub