社区 › VB › vartype函數不能判斷出是整數？

yuangw1234 发表于 2006-7-5 15:31:00

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

如以下程式：
本人先定义chang为双精度，然后通过输入chang来定Hchang，可是发现输入整数后，Hchang也不为0,请问为什么？
Dim changAs 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 发表于 2006-7-5 20:29:00

VarType(chang)恒等于vbDouble，当然不行
可以对chang取整再判断是否不变

yuangw1234 发表于 2006-7-7 15:11:00

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

查看完整版本: vartype函數不能判斷出是整數？