下图中第（10）题如何编写Excel中的宏

Question

这是一定要编写宏，但是不会，求大神帮忙解答一下，谢谢谢谢

Answer 1

Sub SuiJiShu()
    [A2] = Int(Rnd() * (99 - 10)) + 10
    [B2] = Int(Rnd() * (99 - 10)) + 10
End Sub

Sub GongYueShu()
    t = IIf([A2] > [B2], [B2], [A2])
    For i = 1 To t
        If [A2] Mod i = 0 And [B2] Mod i = 0 Then gys = i
    Next
    [C2] = gys
End Sub