好吧，我承认，我没见过。不过不排除是用VB.NET所写的插件。因为VB6是不支持运算符重载的。既然能够自定义运算符，那肯定是跟插件有关。或许他是用宏，或者其他什么东西完成的。。。我没看见过，所以不敢妄下结论。希望你能把这个文件发到我的邮箱里。。。。如果有的话。。。。我邮箱xtnxing@sina.com，可以研究研究。
创新互联主营赤峰林西网站建设的网络公司,主营网站建设方案,app开发定制,赤峰林西h5微信小程序定制开发搭建,赤峰林西网站营销推广欢迎赤峰林西等地区企业咨询
double是双精度 有效数值位52位 表示成指数的形式 即指数11位 即表示成
所以180.89305用2进制表示是10110100.1110010010011110111011001011111110110001010110110101
即
180.89305在double中存在的实际数值是
1.01101001110010010011110111011001011111110110001010110110101 *2^7
取小数点后 52位有效值后 等于10进制的180.893049999999998
所及加最后变成了 1808930.99999999998
第一次当然输出近似值1808931
第二次int函数去掉了小数点后的数int就是只取整数的部位的不是四舍五入 所以少了1
Not一个数值实际上是对这个数值进行“非”运算，即转换为2进制，0变为1，1变为0，你可以这样试：
For i = 1 To 10
s = i
debug.print not (i Mod 5 )
Next
这样可以看到not (i Mod 5 )这个表达式究竟等于多少。
按照你的想法，应该这样做结果才是对的：
If Not (i Mod 5 0) Then
简单VB2010程序（命令行上的）：
Class Module '程序开头（自动会加的）
Dim a as integer '声名变量a为整型（整数）
Sub Main() '本程序（自动加的）
Console.Readln(A) '读取变量a的值（键盘打2）
Console.Writeline(A) '输出a的值（屏幕上出现2，也就是a）
End Sub ‘程序结束(自动加的)
End Class ‘程序结尾（自动加的）
要学VB先学Basic语言，非常简单，我猜是最简单的了。
解释变量：是一个单词或字母（不能用中文），除了语句用的单词，变量的值可以变，如：A等于1，如果写A=A+1的话，A就会给自己的值加上1，变成2.
基本运算符号：
+加，-减，*乘，/除，mod取余数。
=等于，不等于，大于,小于,=大于或等于,=小于或等于。
逻辑运算：
not不、否，and和,or或， xor异或（详情后面解释）,一般XOR不会用到，除非做数学或画图。
变量类型：
integer整数,string字符串,char字符,single数位少的小数,double精度高（数位多）的小数，decimal非常多个数位的小数，boolean布尔：分真(True)与假(False)
数学成绩好吗（最低要求90,高要求95 or =100）？把学的东西用上去。
Not:
Not True(真)=False(假),不真等于假，显然，不假等于真。
And:
真和真等于真，只要有一个假，全假。
Or:
只要有一个真，全真，全是假，就是假。
Xor:
全是真的话，那结果是假，其他的跟Or一样。
再加一句，编程主要是人人讨厌的数学，英语也得好，编程语言不重要。
邮箱：ltntec@hotmail.com
VB6中Mod 运算符功能是两数相除求余。
如果两数中带小数，Mod 会先四舍六入取整，再按整数求余，余数带小数的话只取整数部分。
注意，如果有书说四舍五入，是错的。
在 VB6 用的是所谓银行家算法，是四舍六入：
小数部分比 0.5 小就舍(例如0.4，0.49999)，比 0.5 大就进(例如0.6，0.500001)，
刚好是 0.5 可能舍可能进，如果小数点前面是偶数就舍(例如2.5 得 2)，是奇数就进(例如3.5 得 4)。
Mod 运算符在VB.NET中有改动，余数可以带小数。
以上资料来自：
所以2.5 mod 2结果是0
VB中通过Mod方式求余比如：Dim r as Integer '定义一个整型变量r
r = 50 Mod 4 '求50除以4的
余数
，赋值给变量r补充：VB中取余
运算符
是Mod
