用這個函數(shù)把
站在用戶的角度思考問題,與客戶深入溝通,找到鳳縣網(wǎng)站設(shè)計與鳳縣網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗,讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個性化、用戶體驗好的作品,建站類型包括:成都做網(wǎng)站、網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、域名申請、虛擬主機、企業(yè)郵箱。業(yè)務(wù)覆蓋鳳縣地區(qū)。
Math.Round 方法 (Decimal, Int32)
將小數(shù)值舍入到指定精度。
命名空間: System
程序集: mscorlib(在 mscorlib.dll 中)
語法
Visual Basic(用法)
Dim d As Decimal
Dim decimals As Integer
Dim returnValue As Decimal
returnValue = Math.Round(d, decimals)
參數(shù)
d
類型:System.Decimal
要舍入的小數(shù)。
decimals
類型:System.Int32
返回值中的小數(shù)位數(shù)(精度)。
返回值
類型:System.Decimal
精度等于 decimals,最接近 d 的數(shù)字。
Math.Round(3.4666666, 4) 結(jié)果是 3.4667.
方法如下:
方法一:
保留三位整數(shù):
Dim X As Single
X = Val(InputBox("輸入一個任意實數(shù)!"))
Print Format(X, "000")
保留三位小數(shù):
Dim X As Single
X = Val(InputBox("輸入一個任意實數(shù)!"))
Print Format(X, ".000")
方法二:
用Format函數(shù),比如通過text輸入,轉(zhuǎn)換后在窗體打?。篜rivate Sub Command1_Click()
n = Text1.Text
t = Format(n, "000.###")
Print t
End Sub
保留兩位小數(shù)的一般方法是四舍五入法。
保留兩位小數(shù),看千分位。是4或比4小舍去;是5或比5大舍去以后向前一位進1。
如:3.425保留兩位小數(shù)就是3.43
3.421保留兩位小數(shù)就是3.42
又如: 3.4263保留兩位小數(shù)就是3.43
3.4233保留兩位小數(shù)就是3.42
再如:3.4保留兩位小數(shù)就是3.40
舉個例子
Dim a As Decimal = 1.999
Dim b As Decimal = Math.Round(a, 2)
結(jié)果為b = 2.00
四舍五入保留兩位
VB用Format 函數(shù)即可實現(xiàn)。
Format 函數(shù),返回 Variant (String),其中含有一個表達式,它是根據(jù)格式表達式中的指令來格式化的。
Print Format(3.1415926, "#.##")
*#:表示一個數(shù)字位。#的個數(shù)決定了顯示區(qū)段的長度。如果要顯示的數(shù)值的位數(shù)小于格式字符串指定的區(qū)段長度,則該數(shù)值靠區(qū)段的左端顯示。如果要顯示的數(shù)值的位數(shù)大于指定的區(qū)段長度,則數(shù)值照原樣顯示。 要顯示多位,只需要設(shè)置數(shù)字位數(shù)即可,例如:
Print format(3.14159262654321,”#.#######”)
顯示:3.1415926