以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]foxtable 中如何输入二维数组  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15038)

--  作者:sandygood
--  发布时间:2011/12/10 18:34:00
--  [求助]foxtable 中如何输入二维数组

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

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
--  发布时间:2011/12/10 22:21:00
--  

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


--  作者:狐狸爸爸
--  发布时间: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
--  发布时间: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
--  发布时间:2011/12/11 11:38:00
--  

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