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

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

<P>如以下程式：</P>
<P>本人先定义chang为双精度，然后通过输入chang来定Hchang，可是发现输入整数后，Hchang也不为0,请问为什么？</P>
<P>Dim chang&nbsp; As Double, Hchang As Double<BR>&nbsp;&nbsp;&nbsp; chang = InputBox("input a double", "input")<BR><FONT color=#f73809>If VarType(chang) = vbInteger Then<BR></FONT>&nbsp;&nbsp;&nbsp; Hchang = 0<BR>Else<BR>&nbsp;&nbsp;&nbsp; Hchang = Val(Right(CStr(chang), 1))<BR>End If<BR>MsgBox Hchang<BR></P>

雪山飞狐_lzh 发表于 2006-7-5 20:29:00

<P><FONT color=#f73809>VarType(chang)恒等于vbDouble，当然不行</FONT></P>
<P><FONT color=#f73809>可以对chang取整再判断是否不变</FONT></P>

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

那一開始把chang定義成variant可以嗎
页: [1]
查看完整版本: vartype函數不能判斷出是整數？