计算机编程vb求最大公约数,VB求最大公约数的两个例子

VB求最大公约数的两个算法

Private Sub Command1_Click()

Dim a As Long, b As Long

a = InputBox("请输入要求最大公约数的整数", " 求两数的最大公约数:step1", 0)

b = InputBox("请输入要求最大公约数的整数", " 求两数的最大公约数:step2", 0)

Print "step1>>>整数1 : "a

Print "step2>>>整数2 : "; b

Do While a <> b

If a > b Then

a = a - b

Else b = b - a

End If Loop

Print "step3：执行步数："; i

Print Print "结果： 最大公约数为 》》》"; a

Print "______________________________________"

End Sub

Rem ?声明：非盈利，切勿用于商业用途。制作者：Totoo

Rem ?功能：计算两数的最大公约数

Rem ?环境：windows

Rem ?类型：开源 'writed by totoo'

Private Sub Command2_Click()

Dim x As Long, y As Long, m As Long, n As Long, r As Long, i As Long

i = 1 x = InputBox("请输入要求最大公约数的整数", " 求两数的最大公约数:step1", 0)

y = InputBox("请输入要求最大公约数的整数", " 求两数的最大公约数:step2", 0)

Print "step1>>>整数1 : "; x

Print "step2>>>整数2 : "; y

If x - y > 0 Then n = y

Else n = x x = y y = n r = x - y

End If

Do While r <> 0

If n - r > 0 Then m = n n = r

Else m = r End If

r = m - n i = i + 1 Loop

Print "step3：执行步数："; i

Print Print "结果： 最大公约数为 》》》"; n

Print "______________________________________"

End Sub

K：求取两个数的最大公约数的两个算法

相关介绍:  最大公因数,也称最大公约数.最大公因子,指两个或多个整数共有约数中最大的一个.a,b的最大公约数记为gcd(a,b).同样的,a,b,c的最大公约数记为gcd(a,b,c),多个整数的最 ...

辗转相除法&lowbar;欧几里得算法&lowbar;java的实现(求最大公约数)

辗转相除法,又被称为欧几里德(Euclidean)算法, 是求最大公约数的算法. 当然也可以求最小公倍数. 算法描述 两个数a,b的最大公约数记为GCD(a,b).a,b的最大公约数是两个数的公共素因 ...

欧几里得求最大公约数--JAVA递归实现

欧几里得算法求最大公约数算法思想: 求p和q的最大公约数,如果q=0,最大公约数就是p:否则,p除以q余数为r,p和q的最大公约数即q和r的最大公约数. java实现代码: public class ...

c语言求最大公约数和最小公倍数

求最大公约数和最小公倍数 假设有两个数a和b,求a,b的最大公约数和最小公倍数实际上是一个问题,得出这两个数的最大公约数就可以算出它们的最小公倍数. 最小公倍数的公式是 a*b/m m为最大公约数 因 ...

一个好的函数(gcd)求最小公约数

这个函数是我无意中看到的很不错,很给力,我喜欢 是用于求最小公约数的 简单的描述就是,记gcd(a,b)表示非负整数a,b的最大公因数,那么:gcd(a,b)=gcd(b,a%b)或者gcd(a,0) ...

acm水题3个：1&period;求最大公约数；2&period;水仙花数；3&period;判断完数

//7.求两个整数的最大公约数#include//用穷举法求出最大公约数int gcd1(int m,int n){ int min = m > n ? n : m ...

Java求最大公约数和最小公倍数

最大公约数(Greatest Common Divisor(GCD)) 基本概念 最大公因数,也称最大公约数.最大公因子,指两个或多个整数共有约数中最大的一个.a,b的最大公约数记为(a,b),同样的 ...

C语言 &&num;183&semi; 求最大公约数

算法提高 求最大公约数   时间限制:1.0s   内存限制:512.0MB      编写一函数gcd,求两个正整数的最大公约数. 样例输入: 5 15样例输出:5 样例输入: 7 2样例输出:1 ...

递归--练习3--noi7592求最大公约数问题

递归--练习3--noi7592求最大公约数问题 一.心得 两个低级错误:1. ll setMax(ll &m,ll &n)中无引用,结果只传值,没传地址2. return f(n,m ...

随机推荐

xposed XDA记录

[OFFICIAL] Xposed for Lollipop/Marshmallow [Android 5.0/5.1/6.0, v86, 2016/10/31] http://forum.xda-d ...

MyEclipse 2015优化技巧

MyEclipse 2015优化速度方案仍然主要有这么几个方面:去除无需加载的模块.取消冗余的配置.去除不必要的检查.关闭更新. 第一步: 去除不需要加载的模块 一个系统20%的功能往往能够满足80% ...

Ubuntu下编译SuiteSparse-4&period;4&period;1和METIS-4&period;0&period;3

网上关于编译的介绍非常多,其实ubuntu系统自带编译好的SuiteSparse,不想折腾的话,用新立得很容易就搞定 准备工作: 下载并编译OpenBLAS(会连带Lapack也下载和编译),图省事请 ...

Java中实现异常处理的基础知识

Java中实现异常处理的基础知识 异常 (Exception):发生于程序执行期间,表明出现了一个非法的运行状况.许多JDK中的方法在检测到非法情况时,都会抛出一个异常对象. 例如:数组越界和被0除. ...

解析XML最快速的方式

采用提JAXB技术 1.根据xml生成xsd 执行:java -jar trang.jar a.xml a.xsd 2.根据java的xjc来生成实现类 执行:xjc a.xsd 注:在执行前最好把数 ...

hadoop hdfs 命令行 设置文件夹大小的上限 quota：配额

>bin/hdfs dfs -put readme.txt /finance >bin/hdfs dfs -du -s /finance > /finance >bin/hdf ...

hdoj 4324 Triangle LOVE 【拓扑】

Triangle LOVE Time Limit: 2000/1000 MS (Java/Others)    Memory Limit: 65536/65536 K (Java/Others) To ...

java精度计算代码，指定精确小数位

java代码: public class App2 { public static void main(String[] args) { String val = checkNumber(" ...

log4j到log4j2升级迁移方案

序:这段时间因为维护的项目存在大量日志打印,严重拖慢整体响应时间,在做性能优化的工作中对这块内容进行了升级换代,由以前的log4j升级为log4j2,以实现日志异步打印.接下来记录一下这个费时半个月的 ...