VB6 的 Array 使用

小弟想要將

"電話1",3360,240,1335,240,3360,240,6360,1680,2280,3840,240

"電話2",3360,1680,1335,240,3360,240,6360,1680,2280,3840,240

"傳真",3360,3120,1335,240,3360,240,6360,1680,2280,3840,240

資料使用 Array 放置在 陣列資料中

Dim 變數資料(9) As String

變數資料 = Array("電話1", 480, 240, 1815, 240, 3360, 240, 6360, 1680, 2280, 3840, 240)

變數資料 = Array("電話2", 3360,1680,1335,240,3360,240,6360,1680,2280,3840,240)

變數資料 = Array(""傳真",3360,3120,1335,240,3360,240,6360,1680,2280,3840,240)

=========================================================

因為資料都會被最後一個取代掉 ?

所以我想要將陣列改成 Dim 變數資料(3,9) As String

第一行資料放置在 = 變數資料(1,9)

第二行資料放置在 = 變數資料(2,9)

第三行資料放置在 = 變數資料(3,9)

這樣我因該要怎樣寫呢 ?

=========================================================

Update:

其實我的資料不止 ( 3組資料 ) 全部有15~30組或以上

所以使用 ABC 的話可能 需要使用 到 15~30 個才夠用

如果依照您的方式就是需要先將 資料放置在一個 陣列中

再放置到 二維陣列 是個好辦法

但還有沒有簡單些的呢 ?

==================================================

我最終的目的就是要將資料放置在 二維陣列

==================================================

感謝大家提拱方式 謝謝!

1 Answer

Rating
  • 1 decade ago
    Favorite Answer

    Dim A, B, C As Variant

    Private Sub Form_Load()

    A = Array("電話1", 480, 240, 1815, 240, 3360, 240, 6360, 1680, 2280, 3840, 240)

    B = Array("電話2", 3360, 1680, 1335, 240, 3360, 240, 6360, 1680, 2280, 3840, 240)

    C = Array("傳真", 3360, 3120, 1335, 240, 3360, 240, 6360, 1680, 2280, 3840, 240)

    End Sub

    Private Sub Command1_Click()

    For k = 0 To 11 '顯示第1組資料

    Print A(k);

    Next

    Print

    End Sub

    Private Sub Command2_Click()

    For k = 0 To 11

    Print B(k); '顯示第2組資料

    Next

    Print

    End Sub

    Private Sub Command3_Click()

    For k = 0 To 11

    Print C(k); '顯示第3組資料

    Next

    Print

    End Sub

    '底下再設一個2維陣列放陣列資料,其實可以不必這樣了,因為已將資料分別放在A,B,C陣列中了。

    如果想試試不同的作法:

    Dim 變數資料(2, 11) As String

    變數資料(0, 0) = "電話1"

    變數資料(0, 1) = "3360"

    (這樣有點麻煩…)

    可以直接從A,B,C陣列讀入

    Dim 變數資料(2, 11) As String

    For i = 0 To 11 '將第1個Array陣列資料讀入變數資料陣列

    變數資料(0, i) = A(i)

    Next i

    For i = 0 To 11 '將第1個Array陣列資料讀入變數資料陣列

    變數資料(1, i) = B(i)

    Next i

    For i = 0 To 11 '將第1個Array陣列資料讀入變數資料陣列

    變數資料(2, i) = C(i)

    Next i

    • Commenter avatarLogin to reply the answers
Still have questions? Get your answers by asking now.