主题：求数组值用别的数组代替问题，谢谢

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

不明白楼上的意思，到底想要做什么？

数据开发软件就想把学校学习的数学问题在命令窗口实现一遍，用一个数组绑定到赋值到另一个数组的固定字符

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