用递归吧，省时省力，代码如下Option Explicit Private Sub Command1_ClickMsgBox calEnd Sub Function calByVal n As Long As Long Dim x As Integer If n 0 Then x = n Mod 1...