المصفوفات

الأخوة الكرام : هل هذا الكود صحيح وإلا أرجو إفادتي بالصحيح :-

dim n as integer

n= inputbox("")

dim a(n) as integer

for i = 1 to n

a(i) = inputbox ("")

next i

على حسب فهمي فأنت تريد أدخل رقم في ال InputBoxs الأولى فيظهر لك InputBoxs بعدد الرقم الذي أدخلت و تقوم بحفظ المدخلات في ال InputBox في مصفوفة اذا لك الكود :

Dim a() As String
Dim n As Integer
n = InputBox("")
ReDim a(n)
For i = 1 To n
a(i) = InputBox("")
Next i

اذا كان هناك أي استفسار فأنا تحت أمرك

بالضبط اخي crazy-man ، لقد وضعت نفس التعديل الذي كنت اريد وضعه ، حيث انه لابد من تحديد حجم المصفوفة مسبقاً قبل التعامل معها ..

بارك الله في الجميع مع تحياتي