ＶＢで２３５－２３４．３を０．７にする方法

質問

以下のプログラムを実行するとＴｅｘｔ１の内容は0.6999969となります
０．７となるプログラミング方法があれば教えて下さい

Private Sub Command1_Click()
Dim u1 As Single
Dim u2 As Single
Dim u3 As Single
u1 = 234.3
u2 = 235
u3 = u2 - u1
Text1 = u3
End Sub

以上宜しくお願いします

回答No.1

めとろいと（@naktak） · ベストアンサー

宣言を「Currency」型に。

お礼

早速回答頂きまして有り難うございました
おかげさまで解決しました

回答No.2

X-trail_00

いちばん簡単なのは
型をSingleではなくCurrencyにする。
Singleで無いとダメなら四捨五入