Foxtable(狐表)用户栏目专家坐堂 → [求助] 求助改写一段代码


  共有2327人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
sjx71
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:469 积分:4545 威望:0 精华:0 注册:2013/5/22 15:32:00
[求助] 求助改写一段代码  发帖心情 Post By:2016/4/25 13:17:00 [只看该作者]

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

 

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

 

应当如何写程序比较好

 

谢谢老师


 回到顶部