[VB6 ] 將陣列匯入陣列

[waiter337 (給開司一罐蘇格登)]

目前看到書本不大懂

有點懂 又不大懂

因為感覺怪怪




假設陣列A
dim A()
元素有5個
a
b
c
d
e

將他用此公式

dim B()
dim XX = 1
While XX < 5
        B(XX -1 ) = A
XX += 1
next
匯入

所以在陣列中應該是這樣吧


陣列
B  0  1  2  3  4

0  a  b  c  d  e

1

2

3

4

目前猜測陣列算式為

B(0)(0) = a
B(0)(1) = b
B(0)(2) = c
B(0)(3) = d
B(0)(4) = e




如果我改成
dim B()
dim XX = 1
While XX < 5
        B(XX -1 ) = val(A(XX-1))
XX += 1
next
匯入

所以在陣列中應該是這樣吧


陣列
B  0  1  2  3  4

0  a

1  b

2  c

3  d

4  e


算式為

B(0) = a
B(1) = b
B(2) = c
B(3) = d
B(4) = e


主要是想問第一個陣列直接加入陣列 是否為此邏輯

是否有需要注意或者可變化的方式


好像是說

A B 都為 一維陣列

所以才會有 B()() 的用法


如果說

B我改成

dim B(,)   <--不知道對不對=,=


匯入陣列後
想要把B陣列改成
B  0  1  2  3  4

0     a

1     b

2     c

3     d

4     e


那我是否這樣寫呢?
dim B()
dim XX = 1
While XX < 5
        B( 1 , XX -1 ) = val(A(XX-1))
XX += 1
next



那如果說 我改成
B  0  1  2  3  4

0

1  a  b  c  d  e

2

3

4

那我是否這樣寫呢?
dim B()
dim XX = 1
While XX < 5
        B(1) = A
XX += 1
next



求大大 釋疑
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.35.158.244
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1478733579.A.B2C.html
※ 編輯: waiter337 (114.35.158.244), 11/10/2016 07:22:51
※ 編輯: waiter337 (114.35.158.244), 11/10/2016 07:35:36
→ MOONRAKER: 第一個就不對 陣列要逐元素讀取 如 A(XX)
→ MOONRAKER: 對while也有誤解
→ MOONRAKER: 進去寫一次就明白的事情 幹嘛自己紙上談兵東猜西猜
抱歉 或許我竄改了某個重要關鍵



原程式如下

Public Class Form1

    Private Sub Button1_Click(...) Handles Button1.Click
        Dim student(2)
        Dim total_score(2), avg_score(2)
        Dim sr As New IO.StreamReader("D:\DATA\學生成績.txt")

        Dim count As Integer = 1
        While Not sr.EndOfStream
            Dim str = sr.ReadLine
            Dim tmp = Split(str, ", ")   '<--他這裡是用split 將字串用","分隔
            student(count - 1) = tmp
            For j As Integer = 2 To 4
                total_score(count - 1) += Val(tmp(j))
            Next
            count += 1
        End While


    ...
    ...
    ...
    End Sub
※ 編輯: waiter337 (114.35.158.244), 11/10/2016 13:57:01
.txt檔案內容
93001, RR, 89, 90, 77
93002, MM, 76, 95, 97
93003, TT, 88, 71, 68
※ 編輯: waiter337 (1.175.18.70), 11/10/2016 14:23:52
※ 編輯: waiter337 (1.175.18.70), 11/10/2016 14:24:51
※ 編輯: waiter337 (1.175.18.70), 11/10/2016 14:25:38