HSIEN6001

回復 29# GBKEE

~索引值  ~
最小的索引值是----> 0 開始的長整數.

這#17

1. Sub Ex_陣列()
   
2.     Dim A As String, W, xi As Integer, i As Integer
   
3.     W = Array("A", "B", "C", "D")
   
4.     For i = LBound(W) To UBound(W)
   
5.         MsgBox "Array(""A"", ""B"", ""C"", ""D"")" & Chr(10) & "W(" & i & ")  -> " & W(i)
   
6.     Next
   
7. End Sub

複製代碼

這  
LBound(W) ---> LBound 函数可以找到数组某一维的下限索引值。
UBound(W)---> UBound 函数可以找到数组某一维的上限索引值。
故For  i = LBound(W) To UBound(W) = 4 個索引值 ; 最小長整數為0  , 故 i  = "W(" &  i & ") = 0 To 3
W(0) = A , W(1) = B , W(2) = C , W(3) = D

而 : Split(字串, "分割字元")(1)---->指的是第(1)個索引值

兩者的() 無相關  ;是不同的應用
.....這樣的邏輯,對嗎?!

要打結了   O_Q

GBKEE

回復 31# HSIEN6001
最小的索引值是----> 0 開始的長整數.  這不一定
例  Dim A(4 To 7)  ->   最小的索引值是 4 , 最大的索引值是7   
Option Base  0 或 1   可指定最小的索引值為 0 或 1

1. Option Explicit
   
2. Option Base 1
   
3. 'Option Base 陳述式 在模組層次中用來宣告陣列索引的預設下限。語法 Option Base {0 | 1}
   
4. Sub Ex_陣列()
   
5. Dim A As String, W, xi As Integer, i As Integer
   
6. W = Array("A", "B", "C", "D")
   
7. MsgBox LBound(W)
   
8. For i = LBound(W) To UBound(W)
   
9. MsgBox "Array(""A"", ""B"", ""C"", ""D"")" & Chr(10) & "W(" & i & ") -> " & W(i)
   
10. Next
    
11. End Sub

複製代碼

c_c_lai

回復 30# HSIEN6001
如果妳事前沒加上 On Error Resume Next 偵測來避開錯誤的話，
是會產生  執行階段錯誤 '53'：找不到檔案 的。
妳那種寫法是  不管三七二十一先殺了再說！
這在正規的程式撰寫語法上，是不太好的，也是我極力去避免的。
明知會產生錯誤卻又走旁道避開，哪日不靈光就嗚呼哀栽了！
總之我是建議妳學習正軌模式，對妳的功力增長會有實質幫助的。

HSIEN6001

回復 32# GBKEE
大致上,有概念了~^^

回復 33# c_c_lai
用 "判斷式" 的邏輯去下指令 , 避免之後程序因On Error Resume Next
未出現偵錯的段落提示 ; 而產生Run出不完整的結果
是這樣的意思，我瞭解!

受益良多，謝謝兩位大大指導!