タイトル : Re^3: 数字の比較について 投稿日 : 2017/01/19(Thu) 13:26 投稿者 : SUZUKI
下記のプログラムを作成しました 結果は MsgBox("Kは2.3でありません") MsgBox("nは2.333333333333333です") MsgBox("mは2.3です") 2.3はDouble型ですね ただ k = 2.3 でビルドエラーにならないのが不思議ではあります 自分なりの結論としては vb6.0でSingle型で定義したのはvb2005では少なくともDouble型に しないとうまく動かないという結論となりました Option Strict On Dim k As Single k = 2.3 '======= If k = 2.3 Then MsgBox("Kは2.3です") Else MsgBox("Kは2.3でありません") End If Dim n As Double n = 2.333333333333333 '======== If n = 2.333333333333333 Then MsgBox("nは2.333333333333333です") Else MsgBox("nは2.333333333333333でありません") End If Dim m As Decimal m = CDec(2.3) '=================== If m = 2.3 Then MsgBox("mは2.3です") Else MsgBox("mは2.3でありません") End If |