先在form上建立三个textbox，分别为textbox1,textbox2,textbox3，再建立四个按钮，分别为cmdplus,cmdminus,cmdmultiple,cmddivide，代码如下：
成都创新互联服务项目包括阿里地区网站建设、阿里地区网站制作、阿里地区网页制作以及阿里地区网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，阿里地区网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到阿里地区省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
Private Sub cmdplus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplus.Click
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a + b
End If
Private Sub cmdminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdminus.Click
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a - b
End If
Private Sub cmdmultiple_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmultiple.Click
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a * b
End If
Private Sub cmddivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddivide.Click
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a / b
End If
.net 有自己的资源回收机制GC。
如果变量不再使用了，所有引用该变量的其它变量也都没用了（dispose或者赋值为空了），那么这些没用的变量会定时的被GC自动回收，不需要自己去管理。
如果非要自己释放资源的话，可以使用 GC.Collect() 进行释放，但是并不能保证一次GC.Collect()就可以释放掉所有没有用的资源，可能要经过好几轮GC.Collect()才能释放干净。
所以还是建议不要手动回收了，让系统根据要求自动回收吧。
Option Explicit On
Option Strict On
Imports System
Module Program
Sub Main()
Dim s As String
Dim strs As String()
Dim fz,fm,n,m,t As Long
Console.Write("请输入一个小数：")
s=Console.ReadLine().Trim()
strs=s.Split("."C)
fz=CLng(strs(0))
fm=CLng(Math.Pow(10,strs(1).Length))
fz=fz*fm+CLng(strs(1))
n=fz
m=fm
While n Mod m0
t=n Mod m
n=m
m=t
End While
fz\=m
fm\=m
Console.WriteLine("{0}={1}/{2}",s,fz,fm)
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
End Module
在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()函数为向下取整的函数。
string.SubString(string,string.Length-1)
or
string.Remove(string.Length - 1)
