vb遞歸求最大公約數(shù)

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

成都創(chuàng)新互聯(lián)專注于湖南企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè)公司,商城開發(fā)。湖南網(wǎng)站建設(shè)公司,為湖南等地區(qū)提供建站服務(wù)。全流程按需策劃設(shè)計(jì)，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，成都創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

Dim k As Integer, max As Integer, min As Integer '定義一個(gè)大數(shù)的變量max，一個(gè)小數(shù)的變量

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

max = n? 'n是大數(shù)

min = m? 'm是小數(shù)

Else

max = m

min = n

End If

k = max Mod min 'k為大數(shù)除小數(shù)的余數(shù)

If k = 0 Then

gcd = min

Else

gcd = gcd(min, k) '遞歸調(diào)用，參數(shù)應(yīng)該是小數(shù)和余數(shù)

End If

End Function

Private Sub form_click()

Dim m As Integer, n As Integer

m = Val(InputBox("輸入第1個(gè)數(shù)"))

n = Val(InputBox("輸入第2個(gè)數(shù)"))

Print gcd(n, m) '這里gcd后面要加參數(shù)，你的沒寫

End Sub

vb中語句的&=和=的有什么區(qū)別，&=表示什么意思？ 求高人指點(diǎn)！

是long類型聲明字符

dim a as long 顯示聲明

a 隱式聲明

a=1 代表給長(zhǎng)整形變量a賦值1

不是和=為一體而是接與變量名后

======================以上為VB6

你這個(gè)是VB.NET的代碼 = 是 累加的意思

再Label1.Text 原本內(nèi)容的基礎(chǔ)上 連接上 ("最小公倍數(shù)=" m1 * n1 / m) vbCrLf 這內(nèi)容

vb點(diǎn)虐 求兩個(gè)自然數(shù)的最大公約數(shù)和最小公倍數(shù) 輾轉(zhuǎn)相乘法。

最大公約數(shù)

do until a=b

if ab then

a=a-b

elseif ba then

b=b-a

end if

loop

msgbox (a)

最小公倍數(shù)

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

輾轉(zhuǎn)相乘法是什么玩意？