Afutseng's Blog

VB多維陣列給定初始值的簡潔寫法
原文如下：

此為程式的一小段，輸入坐號，找出姓名
ttable(0, 1) = "1"
ttable(0, 2) = "2"
ttable(0, 3) = "3"
ttable(0, 4) = "4"
ttable(0, 5) = "5"

ttable(1, 1) = "John"
ttable(1, 2) = "Tom"
ttable(1, 3) = "Helen"
ttable(1, 4) = "Marry"
ttable(1, 5) = "Sue"

不知VB是否能像Java一樣，
用{{1,2,3,4,5},{John,Tom,Helen,Marry,Sue}}類似的方法來填陣列值
還是只能像上述的方法一個一個下去填???

Private Sub Command1_Click()
   Dim tab1
   tab1 = Array(Array("", "1", "2", "3", "4", "5"), Array("", "John", "Tom", "Helen", "Marry", "Sue"))
  
   For i = 0 To UBound(tab1)        '0 to 1
      For j = 1 To UBound(tab1(i))  '1 to 5
         Print tab1(i)(j) & "　";
      Next
      Print
   Next
End Sub

http://tw.knowledge.yahoo.com/question/question?qid=1506122309877