標題: [發問] 請教些陣列宣告命名問題 [打印本頁]

---

作者: mark15jill    時間: 2012-11-30 09:34     標題: 請教些陣列宣告命名問題

本帖最後由 mark15jill 於 2012-11-30 09:36 編輯

以下是兩段陣列宣告，想請問，若今天有 chbo1(10,10) ~ chbo13(10,10) 該如何撰寫？
    Dim chbo1(10, 10) As CheckBox
    Dim chbo2(10, 10) As CheckBox

因為原本是使用大範圍的宣告，但因程式結果需求只能區域陣列宣告。
雖說可以 依序編寫，可是這樣就失去意義。

---

作者: kimbal    時間: 2012-11-30 23:49

回復 1# mark15jill


    不太清楚你想要的效果.
想說的是陣列不只是兩維,還可以是3維,4維...
Dim chbo(13, 10, 10) As CheckBox

---

作者: GBKEE    時間: 2012-12-1 12:32

回復 1# mark15jill
雖說可以 依序編寫，可是這樣就失去意義
是這樣嗎?

1. Sub Ex()
   
2.     Dim chbo1(10, 10) As CheckBox
   
3.     Dim AR(1 To 13), xi As Integer
   
4.     For xi = 1 To UBound(AR)
   
5.         AR(xi) = chbo1
   
6.     Next
   
7. End Sub

複製代碼

---

作者: mark15jill    時間: 2012-12-5 16:17

謝謝 GBKEE 與 kimbal  兩位大大的教導，小弟在此謝過。 目前測試 三重迴圈(kimbal大大教導的)。
只是，可能運算個數大多，執行中，會有些許延遲@@"

目前仍在把程式簡易化，等好了再放上來@@"

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)