避免四捨五入

Question

如何避免四捨五入的數字

代碼如下

Dim acc = 0 
Dim i 
Dim x() = {699.68, 632.70} 
    For i = LBound(x) To UBound(x) 
    acc = acc + x(i) 
    Next 

    console.writeline(acc) 

回報：1333

感謝 inchikka

Answer 1

acc隱含定義爲整數，因爲你與初始化0，這是一個整數。

您應該明確將acc定義爲浮點數。我不知道的VB語法，但我想這是這樣的：

Dim acc as Double 

或

Dim acc = 0.0 

Answer 2

伊利亞高根是正確的，問題是，你沒有明確定義的變量。

唯一要添加的是，在VB中它是一個真的好主意使用Option Explicit語句，它需要定義變量。更好的是，您可以打開一個設置，在每個新項目中自動將其添加到您的代碼中。我不確定你運行的是什麼版本的VB，但是這裏是MSDN文章的鏈接，解釋瞭如何啓用這個選項（取決於你有什麼版本的VB，點擊頁面頂部的「其他版本」然後選擇你作爲指令不同）：

MSDN Option Explicit

在你正在運行VB6關的機會，順序稍有不同（顯然不是MSDN文檔）。轉到：工具 - >選項並選中需要變量聲明。