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
相关推荐
黄雪超29 分钟前
JVM——函数式语法糖:如何使用Function、Stream来编写函数式程序?
java·开发语言·jvm
ThetaarSofVenice35 分钟前
对象的finalization机制Test
java·开发语言·jvm
思则变1 小时前
[Pytest] [Part 2]增加 log功能
开发语言·python·pytest
lijingguang1 小时前
在C#中根据URL下载文件并保存到本地,可以使用以下方法(推荐使用现代异步方式)
开发语言·c#
¥-oriented1 小时前
【C#中路径相关的概念】
开发语言·c#
CoderCodingNo2 小时前
【GESP】C++四级考试大纲知识点梳理, (7) 排序算法基本概念
开发语言·c++·排序算法
恋猫de小郭2 小时前
Meta 宣布加入 Kotlin 基金会,将为 Kotlin 和 Android 生态提供全新支持
android·开发语言·ios·kotlin
JosieBook2 小时前
【Java编程动手学】使用IDEA创建第一个HelloJava程序
java·开发语言·intellij-idea
Thomas_YXQ2 小时前
Unity3D DOTS场景流式加载技术
java·开发语言·unity
旷世奇才李先生2 小时前
Ruby 安装使用教程
开发语言·后端·ruby