求解答，求两个数的最大公约数，并且要求使用for循环

Question

求解答，使用visual basic，求两个数的最大公约数，并且要求使用for循环

Answer 1

m = InputBox("输入第一个自然数")
n = InputBox("输入第二个自然数")
If m > n Then t = m: m = n: n = t
Dim i As Integer, x As Integer
For i = 1 To m
If n Mod i = 0 And m Mod i = 0 Then
x = i
End If
Next
MsgBox ("最大公约数为" & x)

```