类型符 数据类型 关键字 前缀 占字节数 取值范围

$ 字符串型 String str 与字符串长度有关 定长字符串：0~65535个字符 变长字符串：0~2.0*10^10个字符

无 字节型 Byte byt 1 0~255

% 整形 Integer  int 2 -32768~32767

& 长整型 Long lng 4 -2147483648~2147483647

! 单精度型 Single sng 4 负数：-3.402823E38~-1.401298E-45 正数：1.401298E-45~3.402823E38

# 双精度型 Double dbl 8 负数：-1.79769313486232D308~-4.94065645841247D-324 正数：4.94065645841247D-324~1.79769313486232D308

@ 货币型 Currency cur 8 -922337203685477.5808~922337203685477.5807

无 逻辑型 Boolean bln True 与 False

无 日期型 Date dtm 8 1/1/100~12/31/9999

无 对象型 Object obj 4 任何对象引用

无 变体型 Variant vnt 按需分配

这样会节约很多空间，新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_click()
    'String$ Integer% Long& Single! Double# Currency@
    Dim a$, b%, c&, d!, e#, f@, strSP$()
    Debug.Print TypeName(a)
    Debug.Print TypeName(b)
    Debug.Print TypeName(c)
    Debug.Print TypeName(d)
    Debug.Print TypeName(e)
    Debug.Print TypeName(f)
    Debug.Print TypeName(strSP)
End Sub

运行结果：

String
Integer
Long
Single
Double
Currency
String()