作者waiter337 (給開司一罐蘇格登)
看板Visual_Basic
標題[VB6 ] 將陣列匯入陣列
時間Thu Nov 10 07:19:37 2016
目前看到書本不大懂
有點懂 又不大懂
因為感覺怪怪
假設陣列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://webptt.com/m.aspx?n=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
1F：→ MOONRAKER: 第一個就不對 陣列要逐元素讀取 如 A(XX) 11/10 10:23
2F：→ MOONRAKER: 對while也有誤解 11/10 10:23
3F：→ MOONRAKER: 進去寫一次就明白的事情 幹嘛自己紙上談兵東猜西猜 11/10 10:24
抱歉 或許我竄改了某個重要關鍵
原程式如下
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