Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书","建立发展党员档案","明确谈话人和谈话时间","记录谈话情况","党员群团组织推荐","支委会讨论研究","上报备案材料","积极分子上级审查备案并提出意见","积极分子发展对象培训教育考察登记表","入党积极分子通知书","指定培养联系人","培养教育第一次","培养教育第二次","半年考察第一次","培养教育第三次","培养教育第四次","半年考察第二次","入党积极分子所在党小组研究提出意见","支委会听取意见研究确定","列为发展对象前公示","发展对象上报备案材料","发展对象上级审查并提出意见","确定入党介绍人","政治审查","集中培训","预备党员支委会研究审查","上报预审材料","上级党委预审","填写入党志愿书","支部大会讨论接收预备党员","预备党员支委会研究审查","预备党员支部大会决议","预备党员上报上级党委","上级党委派人谈话","预备党员上级审批","预备党员支部大会宣布","编入党支部和党小组","入党宣誓","继续教育","继续考察","提出转正申请","预备党员转正所在党小组提出意见","预备党员转正上级党委审批与意见","党支部征求党员和群众的意见","预备党员转正支委会审查","预备党员转正支部大会讨论表决通过","转正前公示","预备党员转正报上级党委","预备党员转正上级党委审批与意见","预备党员转正谈话并宣布"}
For i As Integer = 1 To sre.Length
Dim sre1(i) As String
array.Copy(sre,sre1,i)
Output.Show( String.Join(",",sre1))
Next