VB过程的递归调用,辗转相除法求最大公约数

VB过程的递归调用,辗转相除法求最大公约数

csharp 复制代码
'过程的递归调用,辗转相除法求最大公约数
Private Function gys(ByVal m%, ByVal n%) As Integer
    Dim r%
    r = m Mod n 'm大或者n大都无所谓,这个不影响计算,由于辗转相除法的算法,最终大值会作为被除数,小值作为除数。
    If r = 0 Then
        gys = n
    Else
        gys = gys(n, r)
    End If
End Function
Private Sub Command1_Click()
    Dim x%, y%
    x = Val(Text1.Text)
    y = Val(Text2.Text)
    Print gys(x, y)
End Sub
相关推荐
rit84324994 小时前
基于MATLAB的模糊图像复原
开发语言·matlab
fie88894 小时前
基于MATLAB的声呐图像特征提取与显示
开发语言·人工智能
_extraordinary_5 小时前
Java SpringMVC(二) --- 响应,综合性练习
java·开发语言
@。1246 小时前
对于灰度发布(金丝雀发布)的了解
开发语言·前端
hsjkdhs7 小时前
C++之多层继承、多源继承、菱形继承
开发语言·c++·算法
Full Stack Developme7 小时前
Python Redis 教程
开发语言·redis·python
qq_4924484468 小时前
Jmeter设置负载阶梯式压测场景(详解教程)
开发语言·python·jmeter
ID_180079054738 小时前
京东获取整站实时商品详情数据|商品标题|数据分析提取教程
java·开发语言
qiuiuiu4139 小时前
正点原子RK3568学习日志-编译第一个驱动程序helloworld
linux·c语言·开发语言·单片机
molong9319 小时前
Kotlin 内联函数、高阶函数、扩展函数
android·开发语言·kotlin