主题：[求助] 求助改写一段代码

我的程序中有如下一段程序

 

Dim ltx1(),ltx2(),ltx3(),ltx4(),ltx5() As String

    ltx1 = Vars("第一列题型").Split(",")

    ltx2 = Vars("第二列题型").Split(",")

    ltx3 = Vars("第三列题型").Split(",")

    ltx4 = Vars("第四列题型").Split(",")

    ltx5 = Vars("第五列题型").Split(",")  

  

后面一段程序中多次用到 ltx5

 

如：Dim n As Integer = ltx5.length

 

Ltx5(i) =”abc”

 

 

现在我想根据条件判断，将那段程序中的 ltx5 自动替换成 ltx1,ltx2,ltx3，ltx4,或ltx5

 

如 Vars（”列数”）可能为 1,2,3,4,5 中的一个

 

那段程序中的ltx5 自动替换为 ltx1,ltx2,ltx3,ltx4,ltx5

 

应当如何写程序比较好

 

谢谢老师

Dim ltx1(),ltx2(),ltx3(),ltx4(),ltx5() As String
ltx1 = Vars("第一列题型").Split(",")
ltx2 = Vars("第二列题型").Split(",")
ltx3 = Vars("第三列题型").Split(",")
ltx4 = Vars("第四列题型").Split(",")
ltx5 = Vars("第五列题型").Split(",")

Dim ltxs()() As String = {ltx1, ltx2, ltx3, ltx4, ltx5}
For Each ltx As String() In ltxs
   
Next

谢谢大红袍老师，我比原来少写了一页多程序。