vartype函數不能判斷出是整數？

yuangw1234

如以下程式：

本人先定义chang为双精度，然后通过输入chang来定Hchang，可是发现输入整数后，Hchang也不为0,请问为什么？

Dim chang  As Double, Hchang As Double
    chang = InputBox("input a double", "input")
If VarType(chang) = vbInteger Then
    Hchang = 0
Else
    Hchang = Val(Right(CStr(chang), 1))
End If
MsgBox Hchang

雪山飞狐_lzh

VarType(chang)恒等于vbDouble，当然不行

可以对chang取整再判断是否不变

yuangw1234

那一開始把chang定義成variant可以嗎