请教
Private Sub Command1_Click()
Dim a As Double
a = 6 * 16000
Text1 = a
End Sub
会出现溢出错误，如何解决，谢谢

Private Sub Command1_Click()
Dim a As Double，b as long
b=16000
a = 6 * b
Text1 = a
End Sub

a = 6# * 16000

--------------
a = 6 * 16000
两个直接数相乘，因为两个数均未超过 整数范围，所以按整数相乘进行计算，
但计算结果超出了整数范围，所以产生溢出错误。

a = 6# * 16000
申明 6 为  Double 类型，所以就按  Double 进行计算
------------------------


数据类型        关键字    类型符    前缀    字节    范围
数    整型    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~
                        9.22337E+14
    字节型    Byte    无    byt    1    0~255
日期型        Date(time)    无    dtm    8    01,01,100~12,31,9999
                        (00:00:00~23:59:59)
逻辑型        Boolean    无    bln    2    True与False
字符型        String    $    str        0~65535个字符
对象型        Object    无    obj    4    任何对象引用
变体型        Variant    无    vnt        上述有效范围之一

谢谢