Dim lngI As Long
    Dim lngJ As Long
    Dim strNumber   As String
    lngI = Val(Split(字符串, "+")(1))
    For lngJ = 0 To lngI
        strNumber=Val(Split(字符串, "+")(0))+lngJ
        CurrentDb.Execute "Insert INTO 明细表(号码) " _
                        & "Select " & strNumber & " " _
                        & "FROM XXX "

    Next