1、打開VB6.0軟件,新建一個(gè)標(biāo)準(zhǔn)exe工程;
網(wǎng)站建設(shè)哪家好,找成都創(chuàng)新互聯(lián)公司!專注于網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、微信平臺(tái)小程序開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了新鄉(xiāng)縣免費(fèi)建站歡迎大家使用!
2、在設(shè)計(jì)界面上新建一個(gè)Command控件;
3、雙擊Command1控件,進(jìn)入代碼編輯界面,輸入代碼:
Private?Sub?Command1_Click()
Dim?res?As?Double
res?=?Format(1?/?3,?"0.000")
Print?res;
End?Sub
4、運(yùn)行工程,單擊按鈕,可以看到數(shù)據(jù)被保留三位小數(shù);
5、總結(jié),想要保留幾位小數(shù),直接設(shè)置即可,如想設(shè)置保留5位小數(shù),設(shè)置如下:
format(1/3,"0.00000")
VB用Format 函數(shù)即可實(shí)現(xiàn)。
Format 函數(shù),返回 Variant (String),其中含有一個(gè)表達(dá)式,它是根據(jù)格式表達(dá)式中的指令來格式化的。
Print Format(3.1415926, "#.##")
*#:表示一個(gè)數(shù)字位。#的個(gè)數(shù)決定了顯示區(qū)段的長(zhǎng)度。如果要顯示的數(shù)值的位數(shù)小于格式字符串指定的區(qū)段長(zhǎng)度,則該數(shù)值靠區(qū)段的左端顯示。如果要顯示的數(shù)值的位數(shù)大于指定的區(qū)段長(zhǎng)度,則數(shù)值照原樣顯示。 要顯示多位,只需要設(shè)置數(shù)字位數(shù)即可,例如:
Print format(3.14159262654321,”#.#######”)
顯示:3.1415926
舉個(gè)例子
Dim a As Decimal = 1.999
Dim b As Decimal = Math.Round(a, 2)
結(jié)果為b = 2.00
四舍五入保留兩位
private sub text1_change()
text1.text=format(val(text1.text),"0.00")
end sub