Dim a As Double, b As Single
创新互联专业为企业提供正蓝网站建设、正蓝做网站、正蓝网站设计、正蓝网站制作等企业网站建设、网页设计与制作、正蓝企业网站模板建站服务，十载正蓝做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
a = 3.1415926
b = a '直接赋值即可，VB会自动转换的
b = CSng(a) '如果你不放心，那么也可以这样转换
用 CSng() 函数转换即可
此外，数据类型转换函数还有：
CBool()
CByte()
CCur()
CDate()
CDbl()
CInt()
CLng()
CStr()
从函数名你就可以大致看出它们的用途了
仅仅是普通表达式的话，定义数据类型，比如从单精度改为双精度，如果想保留小数点位数，用formatnumber来处理。如果是某个算法的精度，就要复杂一些，要定义一个误差，在算法迭代过程中，用while语句判断计算结果的残差是否小于定义的误差值，至于残差如何计算，与你的算法有关