1 1 1 1 1 0 1
0 0 1 1 0 0 0
0 1 1 0 1 1 1
0 0 1 1 1 1 1
1 0 1 1 0 1 0
1 0 0 1 1 1 1
1 1 0 1 1 1 1
0 0 1 1 1 0 0
1 1 1 1 1 1 1
1 0 1 1 1 1 1


上面的内容需要10行7列的数组存放.
怎么在定义数组时给它付初值

VB6中貌似只能定义完之后一个一个赋值
顶多你把它们写成个字符串然后用技巧取出每一位存进数组

唉,太麻烦了
C等语言都支持初始化时用花括号给多维数组付值

我用的方法是保存一个文件,然后循环读取的

一维数组我找到方法付初值
Dim strURL '存放程序用到的SWF文件地址
Dim btnDown As Integer '当前按下按扭
Dim optSel As Integer '当前选中的选项

Private Sub Form_Load()
strURL = Array("http://www.wwenglish.com//ddimg/uploadimg/20060109/093358914.swf", _
"http://www.wwenglish.com//ddimg/uploadimg/20060109/093439296.swf", _
"http://www.wwenglish.com//ddimg/uploadimg/20060109/093524273.swf", _
"http://www.wwenglish.com//ddimg/uploadimg/20060109/093605758.swf", _
"http://www.wwenglish.com//ddimg/uploadimg/20060109/093645254.swf", _
"http://www.wwenglish.com//ddimg/uploadimg/20060109/093711648.swf", _
"http://www.wwenglish.com//ddimg/uploadimg/20060109/093851260.swf", _
"http://www.wwenglish.com//ddimg/uploadimg/20060109/093932627.swf", _
"http://www.wwenglish.com//ddimg/uploadimg/20060109/094040904.swf", _
"http://www.wwenglish.com//ddimg/uploadimg/20060109/094132265.swf", _
"http://www.wwenglish.com//ddimg/uploadimg/20060109/094204744.swf", _
"http://www.wwenglish.com//ddimg/uploadimg/20060109/094234286.swf", _
"http://www.wwenglish.com//ddimg/uploadimg/20060109/094302413.swf", _
"http://www.wwenglish.com//ddimg/uploadimg/20060109/094352221.swf", _
"http://www.wwenglish.com//ddimg/uploadimg/20060109/094500108.swf" _
)
二维不行

这个算赋初值么……就是个方便点的批量赋值…………赋初值还是依照概念 和定义同时的……

二维我想可以通过嵌套吧（没试过）

Dim strURL()

Sub xxx
StrURL=Array(Array(1,2,3),Array(2,3,4),Array(3,4,5))
End Sub

这种嵌套关系在Pascal语言里是可以的
就是 var a:array[1..5,1..3]of integer
和 var a:array[1..5] of array[1..3] of integer
是相同的，调用时即使第二种声明的也可以这样： a[2,3]:=5;a[2][3]:=5;

LS的方法理论上可以。
操作下就知道了

熊帮我测试一下 thanks

熊。我很想帮你。
我在网吧

我说的是BearBen……
http://bbs.bc-cn.net/dispuser.asp?id=173472

[此贴子已经被作者于2007-8-12 15:19:03编辑过]

他是你同学吧。

嗯 是啊
初中同学

魔力北极熊
奇幻的预言
赶快去找不思议的爱

[此贴子已经被作者于2007-8-12 15:22:31编辑过]