vb.net中 int函數(shù)和math.Truncate 都是取整有什么區(qū)別

int在絕對值上四舍五入，Truncate在靠近0的方向取整，比如：

創(chuàng)新互聯(lián)建站自成立以來，一直致力于為企業(yè)提供從網(wǎng)站策劃、網(wǎng)站設(shè)計、成都做網(wǎng)站、成都網(wǎng)站制作、電子商務(wù)、網(wǎng)站推廣、網(wǎng)站優(yōu)化到為企業(yè)提供個性化軟件開發(fā)等基于互聯(lián)網(wǎng)的全面整合營銷服務(wù)。公司擁有豐富的網(wǎng)站建設(shè)和互聯(lián)網(wǎng)應(yīng)用系統(tǒng)開發(fā)管理經(jīng)驗、成熟的應(yīng)用系統(tǒng)解決方案、優(yōu)秀的網(wǎng)站開發(fā)工程師團隊及專業(yè)的網(wǎng)站設(shè)計師團隊。

Sub?Main()

Dim?d?=?-1.9D

'Dim?I?As?Integer?=?Int(d)?'-2

Dim?I?As?Integer?=?Math.Truncate(d)?'-1

Console.WriteLine(I)

Console.ReadLine()

End?Sub

vb.net里四舍五入用什么函數(shù)

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

如果取整，第二個參數(shù)不填或者填0

默認(rèn)采用 四舍六入五成雙，如果想四舍五入，請采用MidpointRounding.AwayFromZero作為第三個參數(shù)

Dim?數(shù)字?As?Double?=?2.45

Dim?r1?As?Double?=?Math.Round(數(shù)字,?1,?MidpointRounding.ToEven)?'??r1?=?2.4?四舍六入五成雙

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

關(guān)于VB.net取整的問題

double是雙精度 有效數(shù)值位52位 表示成指數(shù)的形式 即指數(shù)11位 即表示成

所以180.89305用2進制表示是10110100.1110010010011110111011001011111110110001010110110101

即

180.89305在double中存在的實際數(shù)值是

1.01101001110010010011110111011001011111110110001010110110101 *2^7

取小數(shù)點后 52位有效值后 等于10進制的180.893049999999998

所及加最后變成了 1808930.99999999998

第一次當(dāng)然輸出近似值1808931

第二次int函數(shù)去掉了小數(shù)點后的數(shù)int就是只取整數(shù)的部位的不是四舍五入 所以少了1

VB中小數(shù)怎么取整？

有兩個函數(shù)：Int 和 Fix。

Int 定義為返回不大于給定參數(shù)的最大整數(shù)值，如：

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 又稱“截尾”函數(shù)。

即簡單保留整數(shù)部分，如：

Fix(3.9) = 3

Fix(-3.9) = -3

如果需要“四舍五入”，則得巧妙利用 Int 函數(shù)：

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

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

vb.net 輸入一個小數(shù) 求能得到這個商的最小的整數(shù)除數(shù)和最小整數(shù)被除數(shù)

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("請輸入一個小數(shù)：")

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