程序代码：

Option Explicit

Private Sub Form_Load()
    Me.AutoRedraw = True
    Dim i&
    For i = 1 To 111
        Debug.Print i, Unknown(i, 3)
        Print i, Unknown(i, 3)
    Next
    Debug.Print
End Sub
'该函数如何命名？
Function Unknown(ByVal n&, ByVal m&) As Long
    Unknown = n - (n Mod m)
End Function