vb点虐 最大公约数 求最大公约数伪代码

vb递归求最大公约数

Private Function gcd(n As Integer, m As Integer) As Integer

成都创新互联专注于湖南企业网站建设,成都响应式网站建设公司,商城开发。湖南网站建设公司,为湖南等地区提供建站服务。全流程按需策划设计，专业设计，全程项目跟踪，成都创新互联专业和态度为您提供的服务

Dim k As Integer, max As Integer, min As Integer '定义一个大数的变量max，一个小数的变量

If n m Then '如果n大，那么

max = n  'n是大数

min = m  'm是小数

Else

max = m

min = n

End If

k = max Mod min 'k为大数除小数的余数

If k = 0 Then

gcd = min

Else

gcd = gcd(min, k) '递归调用，参数应该是小数和余数

End If

End Function

Private Sub form_click()

Dim m As Integer, n As Integer

m = Val(InputBox("输入第1个数"))

n = Val(InputBox("输入第2个数"))

Print gcd(n, m) '这里gcd后面要加参数，你的没写

End Sub

vb中语句的&=和=的有什么区别，&=表示什么意思？ 求高人指点！

是long类型声明字符

dim a as long 显示声明

a 隐式声明

a=1 代表给长整形变量a赋值1

不是和=为一体而是接与变量名后

======================以上为VB6

你这个是VB.NET的代码 = 是 累加的意思

再Label1.Text 原本内容的基础上 连接上 ("最小公倍数=" m1 * n1 / m) vbCrLf 这内容

vb点虐 求两个自然数的最大公约数和最小公倍数 辗转相乘法。

最大公约数

do until a=b

if ab then

a=a-b

elseif ba then

b=b-a

end if

loop

msgbox (a)

最小公倍数

c = a

22:

If a Mod b = 0 Or b Mod a = 0 Then

If a b Then

MsgBox(a)

Else

MsgBox(b)

End If

Else

a = a + c

GoTo 22

End If

辗转相乘法是什么玩意？

文章标题：vb点虐 最大公约数 求最大公约数伪代码
本文地址：http://shouzuofang.com/article/ddesicc.html