a = InputBox("正の整数を入力してください。") If a < 0 Then MsgBox ("正の整数を入力してください。") End If Cells(1, 1).Value = a b = InputBox("正の整数を入力してください。") If b < 0 Then MsgBox ("正の整数を入力してください。") End If Cells(2, 1).Value = b
If a < b Then a = c Else b = c End If
For e = 2 To c Step 1
f = a Mod e Cells(5, c).Value = f g = b Mod e Cells(6, c).Value = g
