整数以浮点形式储存

--------------------编程问答--------------------

Private Sub Command1_Click()

    Dim A As Integer

    Dim B As Single

    A = 8

    B = A

    Debug.Print B

End Sub

LZ的代码未出现如LZ所说情况. --------------------编程问答--------------------

--------------------编程问答-------------------- 有可能会有类似的情况，这是浮点数低层二进转换时不能绝对对应造成的。

可以试着用Currency变量，或把结果再转成整型再进行计算。
--------------------编程问答-------------------- 第一次听说这种情况学习中 --------------------编程问答-------------------- 浮点型的数转二进制有数据截取吧 --------------------编程问答-------------------- 谢谢3楼的呵呵不怎么懂学习啦 --------------------编程问答--------------------

引用 1 楼 zdingyun 的回复:

VB code
Private Sub Command1_Click()
    Dim A As Integer
    Dim B As Single
    A = 8
    B = A
    Debug.Print B
End Sub

LZ的代码未出现如LZ所说情况.

+1 也没见到 --------------------编程问答-------------------- 浮点型不精确 --------------------编程问答-------------------- 加个Cint试试呗 --------------------编程问答--------------------

引用 9 楼 buxchang 的回复:

加个Cint试试呗

Cint是什么？

补充：VB ,  基础类