VB的編程題（從鍵盤上輸入兩個正整數M和N，求最大公因子）

Dim A As Integer

Dim B As Integer

Dim maxv As Integer

Dim minv As Integer

A = Val(InputBox("輸入A"))

B = Val(InputBox("輸入B"))

maxv = IIf(A > B, A, B)

minv = IIf(A < B, A, B)

Dim r As Integer

Do

r = maxv Mod minv

maxv = minv

minv = r

Loop While (r <> 0)

MsgBox "公約數" & maxv

End Sub