主题：不太明白了？

请专家看看下面的代码

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

测试结果没有报错，却显示偶数，怎么回事呀？