close



程式碼:
Private Sub Command1_Click()
n1 = Val(InputBox("輸入第一個整數"))
n2 = Val(InputBox("輸入第二個整數"))
x = n1
y = n2
Do
q = x Mod y
If q <> 0 Then
x = y
y = q
End If
Loop While q > 0
MsgBox "兩整數" & n1 & " 與 " & n2 & " 的 GCD = " & y & " 及 LCM = " & n1 * n2 / y

End Sub
arrow
arrow
    全站熱搜

    愛爾 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄