数量拆分问题

Function 循环输出编号(str as string,num as long)
    '示例：call 循环输出编号("MO-137051-",20)
    dim i as long
    for i=1 to num
        '以下msgbox可替换为输出标签的相关语句块
        msgbox str & format(i,"000")
    next
End Function