If i% And 1 Then
'奇数
Else
'偶数
End If
解决方案 »
- 自动计算两textbox里数值相除,得小数点后两位的百分数?
- 怎样判断本机已经安装过SQL Server 服务(可以是sql server200 or Msde ) (是本机)
- 一个关于代码管理的问题
- 关于文件的问题
- 請問這三个东西怎么弄出来?TreeView、ListView、IShellFoder
- 帮帮忙 计算Windows从启动后所运行的总时间 这程序有问题啊~~
- 关于VB的开发平台
- 关于Winsock 的DataArrival事件何时会触发,请高手探讨!
- 使用套接字结构类型碰到一点小问题,用过的朋友一定知道吧,来看看啊
- 请问简单问题:VB中将INT型转换成STRING和从STRING转换成INT型的函数分别是什么?
- 花了一天时间终于写好了,大家帮我Debug吧!顺便散分!
- 如何用API函数调用打开多个文件的对话框?并取出期每个带路径文件名!
因为要考虑负数的情况
If i% MOD 2 = 0 Then
'偶数
Else
'奇数
End If
看最后一位的奇偶