给我份VBS返回值类型读取,和类型自由转换的表格数据,记住要注释清楚

以下是VBS的返回值类型读取和类型自由转换的表格数据，注释清楚： | 返回值类型 | 描述 | 示例 | | --- | --- | --- | | Empty | 未初始化的变量或表达式 | Dim a
MsgBox IsEmpty(a) 'True | | Null | 没有任何有效数据 | Dim b
b = Null
MsgBox IsNull(b) 'True | | Boolean | 布尔值 True 或 False | Dim c
c = True
MsgBox TypeName(c) 'Boolean | | Integer | 整数值（-32,768 到 32,767） | Dim d
d = 123
MsgBox TypeName(d) 'Integer | | Long | 长整数值（-2,147,483,648 到 2,147,483,647） | Dim e
e = 1234567
MsgBox TypeName(e) 'Long | | Single | 单精度浮点数（-3.402823E38 到 -1.401298E-45 或 1.401298E-45 到 3.402823E38） | Dim f
f = 1.23
MsgBox TypeName(f) 'Single | | Double | 双精度浮点数（-1.79769313486232E308 到 -4.94065645841247E-324 或 4.94065645841247E-324 到 1.79769313486232E308） | Dim g
g = 1.23456789
MsgBox TypeName(g) 'Double | | Currency | 货币值（-922,337,203,685,477.5808 到 922,337,203,685,477.5807） | Dim h
h = 123.45
MsgBox TypeName(h) 'Currency | | Date | 日期/时间值 | Dim i
i = Now()
MsgBox TypeName(i) 'Date | | String | 字符串值 | Dim j
j = "Hello World"
MsgBox TypeName(j) 'String | | Object | 对