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

Posted Faxcom

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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 

以上是关于VB求最大公约数的两个例子的主要内容,如果未能解决你的问题,请参考以下文章

vb,编写过程求一维数组中的最大值及其在数组中的位置(最好能把程序写下来)

VB求数组中最大值和它的位置

求一段JS的函数代码....

VB中如何求最大值和最小值,我写了下面的代码可是只能求最大值和平均值。最小值一直显示0

最大公约数怎么算

python求最大公约数