dim a $ d & amp；k & ampt & amp，c#（）
選擇40次並將其放入數組c。
t = 40
ReDim c（t-1）
每1000行的間隔行為
d = 1000
打開“data.txt”作為#1輸入
a =輸入（LOF（1），1）
關閉
b =拆分（a，vbCrLf）
以特定間隔選擇第二個行數。
k = 2
對於i = 0至t - 1
假設每個案例數據由逗號分隔。
c（I）= Split（b（（I+1）* d-1）“、“）（k - 1）
然後
卸下我
末端接頭