Functiongcd%(ByValm%，ByValn%)Dimr%r=mModnIfr=Thengcd=nElsegcd=gcd(n，r)EndIfEndFunction