Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书",……}怎么逐一递增呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

上述代码怎么可以批量生成如下递增的模式呢？

Dim sre() As String = {"接收入党申请书"}

Dim sre() As String = {"接收入党申请书","审看入党申请书"}

Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书"}

Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书","建立发展党员档案"}

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))

逛逛老师有没有办法实现：和一楼一样的效果呢？麻烦指导一下谢谢

{“”}号我总是无法直接标注

Dim sre() As String = {"接收入党申请书"}

Dim sre() As String = {"接收入党申请书","审看入党申请书"}

……

末尾字符不要，号

Dim sre() As String = {接收入党申请书,}

Dim sre() As String = {接收入党申请书,审看入党申请书,}

……

代码如下：

For i As Integer = 1 To sre.Length

Dim sre1(i) As String

array.Copy(sre,sre1,i)

Output.Show( "Dim sre() As String = {" & String.Join(",",sre1) & "}")

当前运行效果如下：

此主题相关图片如下：微信图片_20201212144621.png

是要生成一系列数组使用？还是要生成一个字符串？

如果是前者，去掉Output.Show即可

Output.Show("""" & String.Join(""",""",sre1).TrimEnd("""").TrimEnd(","))

输出和定义有啥关系？不明白

For i As Integer = 1 To sre.Length

Dim sre1(i) As String

array.Co py(sre,sr e1,i)

Output.Show("Dim sre() As String = {" & """" & Str ing.Join(""",""",sre1).TrimEnd("""").TrimEnd(",") & "}")

output.Show("For Each s As Str ing In sre")

output.Show("Forms(" & "发展流程" & ").Co ntrol s(s).Image=zhuangtai1")

output.Show("Next")

output.Show(" ")

谢谢有点蓝老师我是想实现如下：在你和逛逛老师的指导下实现了

此主题相关图片如下：捕获.png

主题：Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书",……}怎么逐一递增呢？