Private Sub Form_Load()
公司主营业务：网站设计、网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。成都创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联公司推出单县免费做网站回馈大家。
Text1.Text="":Text2.Text=""
Label1.Caption="":Label2.Caption=""
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Label1.Caption="":Label2.Caption=""
a=Val(Text1.Text)
b=Val(Text2.Text)
Label1.Caption="商："+Str(a \ b)
Label2.Caption="余数："+Str(a Mod b)
End Sub
在VB中运用模运算(mod)进行求余数。
对于整型数a，b来说，取模运算或者求余运算的方法都是：
1、求 整数商： c = a/b；
2、计算模或者余数： r = a - c*b。
求模运算和求余运算在第一步不同: 取余运算在取c的值时，向0 方向舍入；而取模运算在计算c的值时，向负无穷方向舍入。所谓向0方向舍入，就是以小数点为界限，直接将小数部分去掉。如（Int）-1.324=-1（亦叫截断法）；
而向负无穷方向舍入，就是最终结果比真实值更小。如（Int）-1.324=-2；（int此处是强制转换数据类型）注意c是指商。
扩展资料
通常情况下取模运算(mod)和求余(rem)运算被混为一谈，因为在大多数的编程语言里，都用’%’符号表示取模或者求余运算。在这里要提醒大家要十分注意当前环境下’%’运算符的具体意义，因为在有负数存在的情况下，两者的结果是不一样的。
求模运算和求余运算在第一步不同: 取模求余运算在取c的值时，向0 方向舍入(fix()函数)；注：fix()函数是MATLAB中的一种取整函数、截断函数，直接截取数字的整数部分。而求余取模运算在计算c的值时，向无穷小方向舍入(floor()函数)。
注：floor()函数为向下取整的函数。
没有比这个更简单的了
Richtextbox1.text = Regex.Replace(Richtextbox1.text, " (\/\s*)?((\w+:)?\w+)(\w+(\s*=\s*(([ " " '])(\\[ " " ' 'tbnr]|[^\7])*?\7|\w+)|.{0})|\s)*?(\/\s*)? ", String.Empty)
VB中使用MOD运算求两个整数相除的余数：
例如：求27除以5的余数，最简单的方法是
27 Mod 5 就可以了。
也可以用
27 － 27 \ 5 * 5 来求得。
其中 \ 是整数除法的运算符。27 \ 5 的值就等于27除以5的商的整数部分（19 \ 10 = 1)
即是5。由于 \ 和 * 的运算优先组长相同，所以，
27 － 27 \ 5 * 5
＝27 － 5 * 5
＝27 － 25
＝2
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