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
相关推荐
LXS_35735 分钟前
Day 05 C++ 入门 之 指针
开发语言·c++·笔记·学习方法·改行学it
etsuyou2 小时前
js前端this指向规则
开发语言·前端·javascript
shizhenshide2 小时前
为什么有时候 reCAPTCHA 通过率偏低,常见原因有哪些
开发语言·php·验证码·captcha·recaptcha·ezcaptcha
mit6.8243 小时前
[Agent可视化] 配置系统 | 实现AI模型切换 | 热重载机制 | fsnotify库(go)
开发语言·人工智能·golang
友友马3 小时前
『 QT 』QT控件属性全解析 (一)
开发语言·前端·qt
小白学大数据3 小时前
实战:Python爬虫如何模拟登录与维持会话状态
开发语言·爬虫·python
一念&3 小时前
每日一个C语言知识:C 结构体
c语言·开发语言
锦***林4 小时前
用 Python 写一个自动化办公小助手
开发语言·python·自动化
立志成为大牛的小牛5 小时前
数据结构——二十六、邻接表(王道408)
开发语言·数据结构·c++·学习·程序人生
祈祷苍天赐我java之术5 小时前
Redis 数据类型与使用场景
java·开发语言·前端·redis·分布式·spring·bootstrap