仅仅是普通表达式的话，定义数据类型，比如从单精度改为双精度，如果想保留小数点位数，用formatnumber来处理。如果是某个算法的精度，就要复杂一些，要定义一个误差，在算法迭代过程中，用while语句判断计算结果的残差是否小于定义的误差值，至于残差如何计算，与你的算法有关
公司主营业务：网站制作、成都网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出忠县免费做网站回馈大家。
VB.NET数据类型VB.NET中有12种不同的数据类型，可以分成三类：数值类型、文本类型和混合类型。数值类型是VB.NET数据类型的主要类型，共7种。数值类型的数据类型见下表。 数据类型表示方式取 值 范 围说 明整型Integer–2147483648～2147483647用于表示简单整数字节型Byte0～255用于简单算术运算。由于这个类型的变量可以在一个字节中存储，所以运算速度最快短整型Short–32768～32767是整型的一种形式，相对表示范围较小长整型Long–9223372036854775808～9223372036854775807是整型的一种形式，相对表示范围较大单精
度型Single–3.402823E38～–1.401298E-45(对于负数)和1.401298E-45～3.402823E38(对于正数)用于存放单精度浮点数双精
度型Double–1.79869313486232E308～–4.94065645841247E-324(对于负数)和4.94065645841247E-324～1.79869313486232E308(对于正数)用于存放双精度浮点数小数Decimal当小数位为0的时候，为–79228162514264337593543950335～
79228162514264337593543950335；当小数位为28的时候，为–7.9228162514264337593543950335～
7.9228162514264337593543950335常用于存储货币值 数值类型的数据类型 用于存放文本的数据类型有两个。文本类型的VB.NET数据类型见下表。 数 据 类 型表 示 方 式说 明字符串型String用于存放任何形式的字符串，包括一个字符或者多行字符字符型Char用于存放一个字符，它以0～65535之间数字的形式存储文本类型的数据类型 其中需要说明的是： (1) 对于String类型，可以存放任何形式的字符串，它可以是纯粹的文本，也可以是文本和数字的组合或者是数字、日期等。例如"This is a book. "和"12345"都是字符串。对于字符串类型的数据，可以进行相关的字符串操作，例如连接、截断等。 (2) 对于Char类型，可以存储的只是一个字符，注意，这个字符的存储编码必需是一个数字。在计算机系统中，可以显示很多符号(不仅仅是英文字母)，为了能够正确地显示，国际上有通用的标准(例如Unicode编码)，为每个字符设定了一个标准的数值来表示这个字符。其余的数据类型还有：Date数据类型、布尔数据类型和Object数据类型，其说明见下表。 数 据 类 型表 示 方 式说 明日期型Date必须用mm/dd/yyyy的格式表示，也可以存储时间(可以存储00:00:00～23:59:59之间的任何时间)布尔型Boolean取值为True和False对象型Object 其他数据类型 其中需要说明的是：在VB.NET中，对于Boolean类型的数据，当需要把布尔类型的值转换为数值类型的时候，会把True当成1来处理，把False当作0来处理。当需要把VB.NET数值类型的值转换为布尔类型的时候，会把0转换为False，而把其他的非0数值转换为True。
单精度只保留6位有效数字。另外双精度可以保留15位数字。这是2者最明显的区别。
可以自己建立一个判断double精度的程序，如下：
Private Function F(Dou As Double) As Integer
Dim St As String, Ddot As Integer '声明
St = Str(Dou) '把这个double转换成字符串
Ddot = Instr(St, ".") 'Ddot代表点(.)的位置
If Ddot = 0 Then Exit(0) '找不到点(.)，精度当然是零~
Do While Right(St, 1) = 0 '若找得到点(.)，先去掉double右边多余的0
St = Left(St, Len(St - 1)) '去掉一个0
Loop
Exit(Len(St) - Ddot) '末尾没有0的double的长度减去点(.)的位置，得到的就是点后面有几个数字，也就是lz说的精度~
End Function
'写完以后如果要求精度就调用这个过程就可以了。
'例如求544.42400的精度，存在a里面(a As Integer)这样写：
Dim a As Integer
a = F(544.42400)
用这个函数把
Math.Round 方法 (Decimal, Int32)
将小数值舍入到指定精度。
命名空间： System
程序集： mscorlib（在 mscorlib.dll 中）
语法
Visual Basic（用法）
Dim d As Decimal
Dim decimals As Integer
Dim returnValue As Decimal
returnValue = Math.Round(d, decimals)
参数
d
类型：System.Decimal
要舍入的小数。
decimals
类型：System.Int32
返回值中的小数位数（精度）。
返回值
类型：System.Decimal
精度等于 decimals，最接近 d 的数字。
Math.Round(3.4666666, 4) 结果是 3.4667.
