visual basic 中的数组问题

hdm2968

像c++的
int map[3][3]=
{{1,0,3}.
{5,2,2},
{4,1,2}}
如何用vb做到
也就是给多维数组赋值 [em7] [em6] [em24] [em24] [em24] [em24]

boywhp

一个一个的赋值就可以了
map（0，0）＝1
map（0，1）＝1
map（0，2）＝1
map（0，3）＝1
map（1，0）＝1
map（1，1）＝1
。。。

hdm2968

有简单的吗？？

[em24] [em24]

sandy_zc_1

哈，编一个脚本吧。

hdm2968

太难了，再简单得像c++的有吗?

gogameover

不难呀！你是用来做地图的吗？

sandy_zc_1

靠，眼镜你到底是干吗的？？？
你不断重复别人的话，或者说一些没有太大意义的话，是不是纯粹为了升级？

hdm2968

是做地图，可能30*30，有简单些的吗？

sandy_zc_1

我的天，你做地图用那种方法？——直接把地图信息打在代码里？

我强烈建议你放弃这种做法，改用文件或脚本吧。而且也不难呀，不明白为什么非要采用那种极端的形式……

sandy_zc_1

比如：

先建立一个名为“Map.txt”的文件，里面输入你的数组信息。（这个例子是30*30）
每一行30个数字，之间用一个空格隔开，分30行。这些数字将通过下面的代码读取到
名为Map1的二维数组中。



Dim Map1(1 To 30, 1 To 30) As Long
Dim Str1 As String, Str2 As String, Str3 As String, Num As Long
Dim s1, s2, s3
Open "Map.txt" For Input As #5
For s1 = 1 To 30
Line Input #5, Str1

  For s2 = 1 To Len(Str1)
   Str2 = Mid$(Str1, s2, 1)
   If Str2 = " " Then
    Num = Val(Str3): s3 = s3 + 1
    Str3 = ""
    Map1(s1, s3) = Num
   Else:
    Str3 = Str3 & Str2
  Next s2
s3 = 0
Next s1

Close #5

大概是这样吧，我没有调试，可能有一些错误。