VB的数据类型里面的 D和 E是什么意思的呢？

VB妮可说的“设置不同的数据类型可以提高运算速度”没错。
楼主说的single的正数是101298E-45------179769313486232D308
范围有错，应为single的正数是1401298E-45 到 3402823E38
179769313486232D308中的D应为E
属于Double 数据类型中的正数上限179769313486232E308
关于其中的E指的是指数。
见MSDN的解释：
Single 数据类型
Single（单精度浮点型）变量存储为 IEEE 32 位（4 个字节）浮点数值的形式，它的范围在负数的时候是从 -3402823E38 到 -1401298E-45，而在正数的时候是从 1401298E-45 到 3402823E38。Single 的类型声明字符为感叹号 (!)。
Double 数据类型
Double（双精度浮点型）变量存储为 IEEE 64 位（8 个字节）浮点数值的形式，它的范围在负数的时候是从 -179769313486232E308 到 -494065645841247E-324，而正数的时候是从 494065645841247E-324 到 179769313486232E308。Double 的类型声明字符是数字符号 (#)。
计算机定义那些数据类型，是为了方便计算及节省内存，你要定义一种数据类型VB中有Variant变体数据类型 ，那么系统的开销就大大增加。当计算机还再DOS时代，内存仅4096KB，你的想法简直是无法实现的。
以下是VB数据类型的解释
数据类型概述
以下表格显示所支持的数据类型，以及存储空间大小与范围。
数据类型 存储空间大小 范围
Byte 1 个字节 0 到 255
Boolean 2 个字节 True 或 False
Integer 2 个字节 -32,768 到 32,767
Long
(长整型) 4 个字节 -2,147,483,648 到 2,147,483,647
Single
(单精度浮点型) 4 个字节 负数时从 -3402823E38 到 -1401298E-45；正数时从 1401298E-45 到 3402823E38
Double
(双精度浮点型) 8 个字节 负数时从 -179769313486232E308 到
-494065645841247E-324；正数时从494065645841247E-324 到 179769313486232E308
Currency
(变比整型) 8 个字节 从 -922,337,203,685,4775808 到 922,337,203,685,4775807
Decimal 14 个字节 没有小数点时为 +/-79,228,162,514,264,337,593,543,950,335，而小数点右边有 28 位数时为 +/-79228162514264337593543950335；最小的非零值为 +/-00000000000000000000000000001
Date 8 个字节 100 年 1 月 1 日 到 9999 年 12 月 31 日
Object 4 个字节 任何 Object 引用
String
(变长) 10 字节加字符串长度 0 到大约 20 亿
String
(定长) 字符串长度 1 到大约 65,400
Variant
(数字) 16 个字节 任何数字值，最大可达 Double 的范围
Variant
(字符) 22 个字节加字符串长度 与变长 String 有相同的范围
用户自定义
（利用 Type） 所有元素所需数目 每个元素的范围与它本身的数据类型的范围相同。

这就是do loop while a啊
Private Sub Form_Click()
Dim tal As Double, lin As Double, i%
i = 0: lin = 1
Do
'e≈1+(1/1!)+(1/2!)+(1/3!)+…+(1/n!)
tal = 1
i = i + 1
For j = 2 To i
tal = tal j
Next j
lin = lin + 1 / tal
Loop while 1 / tal >= 00001
Print lin
End Sub

---