VB 數值看起來一樣，VB卻說不同

#vb

無尾熊 2019-10-07 17:15:47 ‧ 1496 瀏覽

分享至

        邊長(1) = 15
        邊長(2) = 21.213
        邊長(3) = 15
        MsgBox(Math.Round((邊長(3) ^ 2 + 邊長(1) ^ 2) ^ 0.5, 3) &
        vbNewLine & 邊長(2) & vbNewLine & "是否相等:" &
        IIf(Math.Round((邊長(3) ^ 2 + 邊長(1) ^ 2) ^ 0.5, 3) = 邊長(2), "true", "fels"))

這數值一樣...
結果卻是...

看更多先前的討論...收起先前的討論...

Zed_Yang iT邦新手 3 級 ‧ 2019-10-07 17:49:24 檢舉

是否只是看起來一樣
差在形態上?
試試先將結果和被比較的數值統一轉型成float或其他試試?

另外
貼的code跟畫面不太一樣
是否相等code為fels
IIf(Math.Round((邊長(3) ^ 2 + 邊長(1) ^ 2) ^ 0.5, 3) = 邊長(2), "true", "fels"))
可是你的畫面卻是false

Zed_Yang iT邦新手 3 級 ‧ 2019-10-07 17:54:14 檢舉

邊長(1) = 15
邊長(2) = 21.213
邊長(3) = 15
MsgBox(Math.Round((邊長(3) ^ 2 + 邊長(1) ^ 2) ^ 0.5, 3) &
vbNewLine & 邊長(2) & vbNewLine & "是否相等:" &
IIf(CDec(Math.Round((邊長(3) ^ 2 + 邊長(1) ^ 2) ^ 0.5, 3)) = CDec(邊長(2)), "true", "false"))

Zed_Yang iT邦新手 3 級 ‧ 2019-10-07 18:15:16 檢舉

我直接宣告三個數字
Dim a = 15
Dim b = 21.213
Dim c = 15
MsgBox(Math.Round((c ^ 2 + a ^ 2) ^ 0.5, 3) & vbNewLine & b & vbNewLine & "是否相等:" & IIf(Math.Round((c ^ 2 + a ^ 2) ^ 0.5, 3) = b, "true", "false"))
答案是true
所以應該是你的邊長1 2 3 型態的問題

小魚 iT邦大師 1 級 ‧ 2019-10-07 18:30:50 檢舉

我得到的也是true
另外通常變數命名盡量不要用中文

無尾熊 iT邦新手 5 級 ‧ 2019-10-07 18:49:38 檢舉

re:Anthony_Yang
我剛剛也這麼想，我是全換single
剛剛全部換double就能了
感覺好神祕

Zed_Yang iT邦新手 3 級 ‧ 2019-10-08 10:56:05 檢舉

前陣子用C#做小程式時
Array A[0] = 3, Array B[0] = 3
A[0] == B[0] 是false
但是 A[0].ToString() == B[0].ToString() 就是true

猜測是因為A[0]雖然顯示內容是3沒錯
但在比較時看的應該是記憶體位置
故A[0] 不等於 B[0]

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

3 個回答

純真的人

iT邦大師 1 級 ‧ 2019-10-07 23:06:11

剛剛測試你的問題~
是Single比對Double型別，會是false狀態

        Dim 邊長(3) As Single
        邊長(1) = 15
        邊長(2) = 21.213
        邊長(3) = 15
        MsgBox(Math.Round((邊長(3) ^ 2 + 邊長(1) ^ 2) ^ 0.5, 3) &
        vbNewLine & 邊長(2) & vbNewLine & "是否相等:" &
        IIf(Math.Round((邊長(3) ^ 2 + 邊長(1) ^ 2) ^ 0.5, 3) = Math.Round(邊長(2), 3), "true", "fels"))

        邊長(3) = 21.213
        MsgBox(Math.Round(邊長(3), 3) & vbNewLine & 邊長(2) & vbNewLine & "是否相等:" &
        IIf(Math.Round(邊長(3), 3) = 邊長(2), "true", "fels"))

回應
分享
檢舉

登入發表回應

Zed_Yang

iT邦新手 3 級 ‧ 2019-10-08 10:57:24

是否只是看起來一樣
差在形態上?
試試先將結果和被比較的數值統一轉型成float或其他試試?

邊長(1) = 15
邊長(2) = 21.213
邊長(3) = 15
MsgBox(Math.Round((邊長(3) ^ 2 + 邊長(1) ^ 2) ^ 0.5, 3) &
vbNewLine & 邊長(2) & vbNewLine & "是否相等:" &
IIf(CDec(Math.Round((邊長(3) ^ 2 + 邊長(1) ^ 2) ^ 0.5, 3)) = CDec(邊長(2)), "true", "false"))

個人測試
我直接宣告三個數字

Dim a = 15
Dim b = 21.213
Dim c = 15
MsgBox(Math.Round((c ^ 2 + a ^ 2) ^ 0.5, 3) & vbNewLine & b & vbNewLine & "是否相等:" & IIf(Math.Round((c ^ 2 + a ^ 2) ^ 0.5, 3) = b, "true", "false"))
答案是true
所以應該是你的邊長1 2 3 型態的問題