最大公約数 （エクセル マクロ）

Sub 最大公約数()

Dim ino1 As Integer
Dim ino2 As Integer

ino1 = Val(InputBox("整数１は？"))
ino2 = Val(InputBox("整数２は？"))

Do Until ino1 = ino2
If ino1 > ino2 Then
ino1 = ino1 - ino2
Else
ino2 = ino2 - ino1
End If
Loop

MsgBox Str(ino1)

End

End Sub

これもなるほど。