VB中小数怎么取整？

有两个函数：Int 和 Fix。

创新互联主营潮阳网站建设的网络公司,主营网站建设方案,成都APP应用开发,潮阳h5小程序定制开发搭建,潮阳网站营销推广欢迎潮阳等地区企业咨询

Int 定义为返回不大于给定参数的最大整数值，如：

Int(3.9) = 3

Int(3.1) = 3

Int(3) = 3

Int(0) = 0

Int(-3) = -3

Int(-3.1) = -4

Int(-3.9) = -4

Fix 又称“截尾”函数。

即简单保留整数部分，如：

Fix(3.9) = 3

Fix(-3.9) = -3

如果需要“四舍五入”，则得巧妙利用 Int 函数：

Int(x + 0.5) 表示四舍五入到个位；

Int(x * 100 + 0.5) * 0.01 表示四舍五入到百分位（小数点后第二位）

vb.net里四舍五入用什么函数

使用Math.Round()，注意返回值可能为Double或Decimal。

如果取整，第二个参数不填或者填0

默认采用 四舍六入五成双，如果想四舍五入，请采用MidpointRounding.AwayFromZero作为第三个参数

Dim 数字 As Double = 2.45

Dim r1 As Double = Math.Round(数字, 1, MidpointRounding.ToEven) '  r1 = 2.4 四舍六入五成双

Dim r2 As Double = Math.Round(数字, 1, MidpointRounding.AwayFromZero) ' r2 = 2.5 四舍五入

vb.net除法问题

Dim BH, BL As ArrayList

Dim Cal As Integer

BH = New ArrayList

BL = New ArrayList

Dim h, l As Double

For i As Integer = 0 To LSB2.Items.Count - 1

BH.Add(LSB2.Items(i).ToString)

Next

For i As Integer = 0 To LSB1.Items.Count - 1

BL.Add(LSB1.Items(i).ToString)

Next

For I As Integer = 0 To BH.Count - 1

h = CDbl(BH.Item(I))

l = CDbl(BL.Item(I))

If (h = l) Then

Cal = 0

Else

Cal = (highAvg - lowAvg) / (h - l)

End If

LstA.Items.Add(Cal)

Next

vb.net 输入一个小数 求能得到这个商的最小的整数除数和最小整数被除数

Option Explicit On

Option Strict On

Imports System

Module Program

Sub Main()

Dim s As String

Dim strs As String()

Dim fz,fm,n,m,t As Long

Console.Write("请输入一个小数：")

s=Console.ReadLine().Trim()

strs=s.Split("."C)

fz=CLng(strs(0))

fm=CLng(Math.Pow(10,strs(1).Length))

fz=fz*fm+CLng(strs(1))

n=fz

m=fm

While n Mod m0

t=n Mod m

n=m

m=t

End While

fz\=m

fm\=m

Console.WriteLine("{0}={1}/{2}",s,fz,fm)

Console.Write("Press any key to continue . . . ")

Console.ReadKey(True)

End Sub

End Module

关于VB.net取整的问题

double是双精度 有效数值位52位 表示成指数的形式 即指数11位 即表示成

所以180.89305用2进制表示是10110100.1110010010011110111011001011111110110001010110110101

即

180.89305在double中存在的实际数值是

1.01101001110010010011110111011001011111110110001010110110101 *2^7

取小数点后 52位有效值后 等于10进制的180.893049999999998

所及加最后变成了 1808930.99999999998

第一次当然输出近似值1808931

第二次int函数去掉了小数点后的数int就是只取整数的部位的不是四舍五入 所以少了1

网站题目：vb.net除法取整,vb中取整
文章路径：http://scyingshan.cn/article/heeogs.html