以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  不太明白了？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15278)
--  作者：放晴得天空
--  发布时间：2011/12/19 15:48:00
--  不太明白了？

请专家看看下面的代码

Dim A1 As Integer = 3.5797961
Select Case A1
Case 1,3,5,7,9
output.show("奇数")
Case 2,4,6,8,10
output.show("偶数")
Case Else
output.show("无效数")
End Select

 

测试结果没有报错，却显示偶数，怎么回事呀？
--  作者：放晴得天空
--  发布时间：2011/12/19 15:52:00
--  
好像明白了，A1 As Integer  是整数，嘿嘿
--  作者：blackzhu
--  发布时间：2011/12/19 15:54:00
--  
定义的不对,有小数点的.你这个应该是无效数.
--  作者：kylin
--  发布时间：2011/12/19 17:59:00
--  
Dim A1 As Double  = 3.5797961