Foxtable(狐表)用户栏目专家坐堂 → 求数组值用别的数组代替问题,谢谢


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

主题:求数组值用别的数组代替问题,谢谢

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


加好友 发短信
等级:幼狐 帖子:134 积分:1809 威望:0 精华:0 注册:2015/12/5 19:21:00
求数组值用别的数组代替问题,谢谢  发帖心情 Post By: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

 回到顶部