下列程序： Public Function f(ByVal n/%,ByVal r/%) If n<>0 Then f=f(n/r,r) Print n Mod r; End If End Function Private Sub Command1_Click() Print f(100,8) End Sub 运行程序，单击按钮，运行结果是( )，函数过程的功能是( )。