Dim i為整數，j為整數，s為整數
列表框1。清楚的
打開輸入路徑作為#1 '打開文件。
“Do While Not EOF(1)”循環到文件末尾。
行輸入#1，tmp '讀取1行。
I = i+1 'i表示數組的哪壹行。
對於j = 0到1 'j表示數組的哪壹列。
arr(i，j) = Split(tmp，" = "(j)
然後
S = UBound(arr)'獲取數組下標。
環
' Close #1 '關閉文件。
我。列表框1。List() = arr