如何把下列矩阵输入到数组中去 有没有会的？求教

（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 ）

 何来的矩阵呢

定义二维数组：

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

显示赋值可以这样

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

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