vb.net取小数函数 取整函数VB

vb.net怎么设置数字保留小数点位数

举个例子

成都创新互联的客户来自各行各业,为了共同目标,我们在工作上密切配合,从创业型小企业到企事业单位,感谢他们对我们的要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。专业领域包括成都网站制作、成都网站设计、电商网站开发、微信营销、系统平台开发。

Dim a As Decimal = 1.999

Dim b As Decimal = Math.Round(a, 2)

结果为b = 2.00

四舍五入保留两位

VB.net,小数点直接进一位的函数?

'自定义一个函数:功能是给小数直接进一位

'num  要操作的小数

'n 保留几位小数,

Function getNumber(num As Double, n As Integer) As Double

Dim a As Double

a = Int(num * (10 ^ n)) / (10 ^ n)

If a = num Then

getNumber = a

Else

getNumber = a + 1 / (10 ^ n)

End If

End Function

-------------------------

调用一下:

Private Sub Command1_Click()

MsgBox (getNumber(3.1415926, 2))

End Sub

得到3.15

vb.net 怎样使计算结果只保留四位小数?

用这个函数把

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.

VB.NET怎样实现某一范围内的随即小数?例如2.1到3.4之间。

可以用Rnd函数实现

Rnd 函数返回小于 1 但大于或等于 0 的值。

为了生成某个范围内的随机整数,可使用以下公式:

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

这里,upperbound 是随机数范围的上限,而 lowerbound 则是随机数范围的下限。

你这里可以先把范围扩大10倍,看成21到34之间的随机数,最后再除以10就行了。

Int((34 - 21 + 1) * Rnd + 21) / 10


网站标题:vb.net取小数函数 取整函数VB
网页路径:http://ybzwz.com/article/dodggpd.html