专家坐堂-求数组值用别的数组代替问题，谢谢Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求数组值用别的数组代替问题，谢谢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84857)

--  作者：limit_1982
--  发布时间：2016/5/12 8:53:00
--  求数组值用别的数组代替问题，谢谢
Dim he1() As String ={"01","10","29","92","38","83","47","74","56","65"}
Dim he2() As String ={"02","20","11","39","93","48","84","57","75","66"}
Dim he3() As String ={"03","30","49","94","58","85","67","76","12","21"}
Dim he4() As String ={"04","40","59","95","68","86","77","31","13","22"}
Dim he5() As String ={"05","50","69","96","78","87","14","41","23","32"}
Dim he6() As String ={"06","60","15","51","33","42","24","79","97","88"}
Dim he7() As String ={"07","70","16","61","25","52","34","43","52","25"}
Dim he8() As String ={"08","80","17","71","26","62","35","53","44","99"}
Dim he9() As String ={"09","90","18","81","27","72","36","63","45","54"}
Dim he0() As String ={"00","19","19","28","82","37","73","64","46","55"}
Dim bw2() As String ={1,2,4}
bw2().Contains(1) =he1()
bw2().Contains(2) =he2()
bw2().Contains(4) =he4()
For Each a As String In bw2()
    Output.Show( "bw2实际值更改为:" & a)
Next

--  作者：Hyphen
--  发布时间：2016/5/12 8:54:00
--
不明白楼上的意思，到底想要做什么？

--  作者：limit_1982
--  发布时间：2016/5/12 9:01:00
--
数据开发软件就想把学校学习的数学问题在命令窗口实现一遍，用一个数组绑定到赋值到另一个数组的固定字符
[此贴子已经被作者于2016/5/12 9:09:12编辑过]

--  作者：大红袍
--  发布时间：2016/5/12 9:29:00
--
Dim he1() As String ={"01","10","29","92","38","83","47","74","56","65"}
Dim he2() As String ={"02","20","11","39","93","48","84","57","75","66"}
Dim he3() As String ={"03","30","49","94","58","85","67","76","12","21"}
Dim he4() As String ={"04","40","59","95","68","86","77","31","13","22"}
Dim he5() As String ={"05","50","69","96","78","87","14","41","23","32"}
Dim he6() As String ={"06","60","15","51","33","42","24","79","97","88"}
Dim he7() As String ={"07","70","16","61","25","52","34","43","52","25"}
Dim he8() As String ={"08","80","17","71","26","62","35","53","44","99"}
Dim he9() As String ={"09","90","18","81","27","72","36","63","45","54"}
Dim he0() As String ={"00","19","19","28","82","37","73","64","46","55"}
Dim hes() = {he0, he1, he2, he3, he4, he5, he6, he7, he8, he9}
Dim bw2() As String ={1,2,4}
Dim ls As new List(Of String())
For Each a As String In bw2
    ls.add(hes(val(a)))
Next
For Each he() As String In ls
    output.show(String.join(",", he))
Next