'這一個(gè)題我有答過(guò)了?？梢钥次一卮鸬逆溄印?/p>
創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)、北屯網(wǎng)絡(luò)推廣、小程序定制開(kāi)發(fā)、北屯網(wǎng)絡(luò)營(yíng)銷、北屯企業(yè)策劃、北屯品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等，從售前售中售后，我們都將竭誠(chéng)為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供北屯建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18980820575，官方網(wǎng)址：www.cdcxhl.com
'使用Format返回指定的格式
Dim?Numd?As?Double?=?66.6666666666
Label1.Text?=?Format(Numd?,?"#.#####")?'#.#?可自定格式化顯示長(zhǎng)度。
用這個(gè)函數(shù)把
Math.Round 方法 (Decimal, Int32)
將小數(shù)值舍入到指定精度。
命名空間： System
程序集： mscorlib（在 mscorlib.dll 中）
語(yǔ)法
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.
使用 Format函數(shù)來(lái)控制，說(shuō)明如下，
. 強(qiáng)制顯示小數(shù)點(diǎn)
Format("100123.12",".000") 返回值 100123.120
示例：
Private?Sub?Command1_Click()
Dim?a,?b,?c
a?=?5
b?=?6
c?=?a?*?b
Print?Format(c,?".00")
End?Sub
效果如下：
Format函數(shù)數(shù)字操作相關(guān)說(shuō)明：
數(shù)字類型的格式化
--------------------------------
固定格式參數(shù)：
General Number 普通數(shù)字，如可以用來(lái)去掉千位分隔號(hào)
format$("100,123.12","General Number") 返回值 100123.12
Currency 貨幣類型，可添加千位分隔號(hào)和貨幣符號(hào)
format$("100123.12","Currency") 返回值 ￥100,123.12
Fixed 格式為帶兩位小數(shù)的數(shù)字
format$("100123","Fixed") 返回值 100123.00
Standard 標(biāo)準(zhǔn)，即帶千位分隔號(hào)和兩位小數(shù)
format$("100123","Standard") 返回值 100,123.00
Percent 百分?jǐn)?shù)
format$("100123","Percent") 返回值 10012300.00%
Scientific 科學(xué)記數(shù)法
format$("100123","Scientific") 返回值 1.00E+05
Yes/No 當(dāng)值為0時(shí)返回 NO,否則返回 YES
format$("100123","Yes/No") 返回值 Yes
True/False 當(dāng)值為0時(shí)返回 False,否則返回 True
format$("100123","True/False") 返回值 True
On/Off 當(dāng)值為0時(shí)返回 Off,否則返回 On
format$("100123","Yes/No") 返回值 On
自定義格式參數(shù)
"" 不進(jìn)行格式化 返回值 原值
0 占位格式化，不足補(bǔ)0
format$("100123","0000000") 返回值 0100123
# 占位格式化，不足時(shí)不補(bǔ)0
format$("100123","#######") 返回值 100123
. 強(qiáng)制顯示小數(shù)點(diǎn)
format$("100123.12",".000") 返回值 100123.120
% 轉(zhuǎn)化為百分?jǐn)?shù)，一個(gè)%代表乘以100
format$("10.23","0.00%") 返回值 1023.00%
format$("10.23","0.00%%") 返回值 102300.00%%
, 以千為單位格化
format$("10.23",",") 返回值 0
format$("10010.23",",") 返回值 10
format$("10010.23",",0.00") 返回值 10.01
E- E+ e- e+ 顯示為科學(xué)記數(shù)(要注意格式語(yǔ)句，否則會(huì)和E的其它含義相混)
Format$(12.5,"0.00E+00") 返回值 1.25E+01
$ 強(qiáng)制顯示貨幣符號(hào)
format$("10.23","{threadcontent}.00") 返回值 ￥10.23
- + ( ) space 按位置顯示本樣
Format$("1234.56","-(0.00)") 返回值 -(1234.56)
\ 轉(zhuǎn)義符,顯示出特殊符號(hào)
Format$("1234.56","\#.00") 返回值 #1234.56
"ABC" 顯示雙引號(hào) (" ") 之內(nèi)的字符串。如在代碼中想在 format 中包含一個(gè)字符串，必須用 Chr(34) 將文本括起來(lái)（34 為雙引號(hào) ("))
Format$(123.45,"TTT") 返回值 TTT
注：當(dāng)雙引號(hào)中的文本包含特殊的參數(shù)符號(hào)如e,要使用轉(zhuǎn)義符"\"，否則會(huì)按e的作用顯示
; 類似多目運(yùn)算符的作用。
當(dāng)共有 四 部分時(shí)，
當(dāng)大于0時(shí)，按第一部分進(jìn)行格式化，
當(dāng)小于0時(shí)按第二部分進(jìn)行格式化，
當(dāng)?shù)扔?時(shí)按第三部分進(jìn)行格式化，
當(dāng)為null值時(shí)，按第四部分進(jìn)行格式化。如：
Format$(0,"0.00;負(fù)數(shù);零;空") 返回值 零
當(dāng)共有 三 部分時(shí)，
當(dāng)大于0時(shí)，按第一部分進(jìn)行格式化，
當(dāng)小于0時(shí)按第二部分進(jìn)行格式化，
當(dāng)?shù)扔?時(shí)按第三部分進(jìn)行格式化，如：
Format$(-10,"0.00;ttt;零") 返回值 ttt
當(dāng)共有 兩 部分時(shí)，
當(dāng)大于或等于0時(shí)，按第一部分進(jìn)行格式化，
當(dāng)小于0時(shí)按第二部分進(jìn)行格式化，
Format$(-123,"0.00;abc") 返回值 abc
Format$(123,"0.00;abc") 返回值 123.00
當(dāng)共有 一 部分時(shí)，按分號(hào)左邊進(jìn)行格式化
舉個(gè)例子
Dim a As Decimal = 1.999
Dim b As Decimal = Math.Round(a, 2)
結(jié)果為b = 2.00
四舍五入保留兩位
VB用Format 函數(shù)即可實(shí)現(xiàn)。
Format 函數(shù)，返回 Variant (String)，其中含有一個(gè)表達(dá)式，它是根據(jù)格式表達(dá)式中的指令來(lái)格式化的。
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
重慶分公司
重慶分公司
