Foxtable(狐表)用户栏目专家坐堂 → [求助]foxtable 中如何输入二维数组


  共有12598人关注过本帖树形打印复制链接

主题:[求助]foxtable 中如何输入二维数组

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


加好友 发短信
等级:婴狐 帖子:28 积分:300 威望:0 精华:0 注册:2011/12/1 21:23:00
[求助]foxtable 中如何输入二维数组  发帖心情 Post By:2011/12/10 18:34:00 [只看该作者]

如何把下列矩阵输入到数组中去 有没有会的?求教图片点击可在新窗口打开查看

0 130 86 493 372 482 455 568 160 243 315 672 302 683 564 629
130 0 223 622 361 634 550 316 292 439 381 677 453 765 682 757
86 223 0 578 427 588 331 553 242 192 328 458 408 721 636 711
493 622 578 0 826 354 213 272 339 764 836 1031 179 149 146 477
372 361 427 826 0 837 754 885 496 613 680 881 656 969 996 960
482 634 588 354 837 0 915 490 351 774 847 1042 184 497 413 176
455 550 331 213 754 915 0 376 575 440 630 127 473 1048 964 1038
568 316 553 272 885 490 376 0 398 661 895 432 311 403 414 613
160 292 242 339 496 351 575 398 0 433 506 700 170 482 399 474
243 439 192 764 613 774 440 661 433 0 140 566 593 906 822 897
315 381 328 836 680 847 630 895 506 140 0 769 666 979 895 970
672 677 458 1031 881 1042 127 432 700 566 769 0 861 716 1090 1164
302 453 408 179 656 184 473 311 170 593 666 861 0 322 238 370
683 765 721 149 969 497 1048 403 482 906 979 716 322 0 215 620
564 682 636 146 996 413 964 414 399 822 895 1090 238 215 0 536
629 757 711 477 960 176 1038 613 474 897 970 1164 370 620 536 0


 回到顶部
帅哥哟,离线,有人找我吗?
e-png
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1695 积分:10725 威望:0 精华:0 注册:2009/10/25 16:45:00
  发帖心情 Post By:2011/12/10 22:21:00 [只看该作者]

图片点击可在新窗口打开查看 何来的矩阵呢


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/12/10 23:47:00 [只看该作者]

定义二维数组:

 

Dim a(10,10) As Integer
a(0,0) = 1
a(0,1) = 2
a(1,0) = 4
a(1,4) = 1

[此贴子已经被作者于2011-12-10 23:47:30编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lxl
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:858 积分:6071 威望:0 精华:19 注册:2008/9/1 9:13:00
  发帖心情 Post By:2011/12/11 10:31:00 [只看该作者]

显示赋值可以这样

Dim num(,) As Integer = {{1,2,3} ,{4,5,6},{7,8,9}}

使用的时候:

For i As Integer = 0 To 2
    For j As Integer = 0 To 2
        Output.Show(num(i,j))
    Next
Next


 回到顶部
帅哥哟,离线,有人找我吗?
sandygood
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:28 积分:300 威望:0 精华:0 注册:2011/12/1 21:23:00
  发帖心情 Post By:2011/12/11 11:38:00 [只看该作者]

楼上的方法确实简单明了,感谢之至!昨天不会写无奈只好先将数据输入表中再调用了


 回到顶部