中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

1、小數(shù)保留問題

取整函數(shù)fix()

保留n位小數(shù)，應(yīng)取n+1位，否則最后一位可能會(huì)出錯(cuò)

如保留2位，應(yīng)取3位：FormatNumber=Fix( a*1000) / 1000

 

數(shù)據(jù)類型的精度問題
你沒聲明數(shù)據(jù)類型，這兒VB將表達(dá)式中的所有值當(dāng)作浮點(diǎn)數(shù)來處理了，通俗地說浮點(diǎn)數(shù)就是近似值，所以誤差在所難免
要保持精度，聲明表達(dá)式中的所有類型為currency類型，可以保證4位精度...
測(cè)試：
    Dim a As Currency
    Dim b As Currency
    Dim c As Currency
    Dim sss, sss2
   
    a = 6.27: b = 6.28: c = 0.01
   
    sss = (Fix(a / c)) * c
    sss = sss + c

    sss2 = (Fix(b / c)) * c
    sss2 = sss2 + c
   
    MsgBox sss & Space(10) & sss2

 

例: num1為小數(shù)，num2為需保留的位數(shù)

Private Sub Command1_Click()Dim num1!'這里定義位single而不是整型！Dim num2!If Text1.Text <> "" And Text2.Text <> "" Thennum1 = Val(Text1.Text)num2 = Val(Text2.Text)Text1.Text = Int(num1 * 10 ^ num2 + 0.5) / 10 ^ num2ElseMsgBox ("請(qǐng)輸入所有的數(shù)值")End IfEnd Sub

2、VB中有專門用來四舍五入的函數(shù)Round 函數(shù)：返回按指定位數(shù)進(jìn)行四舍五入的數(shù)值。語法：Round(expression[, numdecimalplaces])參數(shù)：expression（必選項(xiàng)）－被四舍五入的數(shù)值表達(dá)式 ；numdecimalplaces（可選項(xiàng)）－數(shù)字表明小數(shù)點(diǎn)右邊有多少位進(jìn)行四舍五入，如果省略則 Round 函數(shù)返回整數(shù)。下面的示例利用 Round 函數(shù)將數(shù)值四舍五入到兩位小數(shù): Dim MyVar, pipi = 3.14159MyVar = Round(pi, 2)   'MyVar contains 3.14。

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。