Dim 变量名 As Long 这是长整型定义
Dim 变量名 As Single 这是单精度浮点型定义
Dim 变量名 As Double 这是双精度浮点型定义