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

转载于:https://www.cnblogs.com/totoo/p/vb.html

VB求最大公约数的两个例子相关推荐

求最大公约数c语言代码_辗转相除求最大公约数原理
辗转相除法代码代码并不难,很多人都会写. public static int f(int a, int b){ while(b != 0){ int temp = b; b = a % b; a = ...
C语言求最大公约数的三种方法
最大公约数是两个数可以同时整除的数中最大的那个这里用三种方法来解决穷举法求最大公约数判断x和y的最大公约数,x和y其中一定有一个相对较小的数,然后从这个较小数开始遍历,不断地用x和y去除这个数, ...
[C语言]求最大公约数和最小公倍数
最大公因数,也称最大公约数.最大公因子,指两个或多个整数共有约数中最大的一个.a,b的最大公约数记为(a,b),同样的,a,b,c的最大公约数记为(a,b,c),多个整数的最大公约数也有同样的记号.求 ...
打卡第二十四天（问题：计算阶乘，打印九九乘法表，计算最大公约数的两种算法）
1.计算阶乘这里给出递归和递推两种计算阶乘的程序. #include<stdio.h> //递归法计算阶乘 long factorial(int n) {if(n==0||n==1)re ...
分别求两个整数的最大公约数和最小公倍数。_看不懂辗转相除法求最小公约数？以身相许那种哦！...
给你打个比喻吧:你英雄救美了,美女想要报答你,你想要1000块感谢费,但是美女却想要以身相许 ,懂了吧,同样都是报答,只是用了不一样的方式,辗转相除法也是这样,你两个数的最大公约数不容易求,我就用另外 ...
c语言编程从键盘上输入两个整数m和n,C语言习题求键盘输入的两个正整数的最大公约数和最小公倍数...
C语言习题求键盘输入的两个正整数的最大公约数和最小公倍数以下文字资料是由(历史新知网www.lishixinzhi.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! C语言习题求 ...
python求最大公约数和最小公倍数的两种方法
最大公约数和最小公倍数的求解可以归结为求最大公约数,最小公倍数为两数乘积除以最大公约数这里介绍两种求解方法,一种数常规易于理解的,一种是用辗转相除法实现的 # 求最大公倍数和最小公约数 a=int( ...
埃拉托色尼筛选法c语言求最大公约数,用埃拉托色尼筛算法求两个数最大公约数C++的实现...
#include "stdafx.h" #include "iostream" #include #include //使用埃氏筛选法求最大公约数 void s ...
【C语言】求两个整数的最大公约数和最小公倍数，用一个函数求最大公约数。用另一个函数根据求出的最大公约数求最小公倍数。
程序如下.思路:编写一个有返回值的函数,使用辗转相除法求两数最大公约数:再编写一个有返回值的函数根据公式(最小公倍数=两数之积除以两数的最大公约数)求两数最小公倍数. #include<stdi ...

VB求最大公约数的两个例子

VB求最大公约数的两个例子相关推荐

最新文章

热门文章