سؤال في المصفوفات

ماذا تقصد بالضبط !!!

طب أنظر الي الكود التالي :

Dim N As Long
Dim Arr() As String

N = Round(Val(Text1.Text),0)

ReDim Arr(N * N)

هل هذا ما تطلبة ؟؟؟؟

شكراً

وفي حال عدم معرفتك بطول المصفوفه بالضبط يمكنك استخدام التالي لانشاء مصفوفه دايناميكيه .

Dim MyArry() As String

For i = 1 To 33 '?????

ReDim Preserve MyArry(i)
MyArry(i) = Str(i)

Next i

-------------------------------------------

For i = 1 To 33
	Print MyArry(i)
Next i

مشكور أخي على الفائدة