السلام عليكم
صلحت form و حطيت فيه اثنين textbox و label
و حطيت زر امر يقوم باخذ القيم الموجودة في التكست بوكس و وضعها في مصفوفة
لكن ما رضى يشتغل و يعطيني رسالة خطأ
علما بإني وضعت في label1 مسمى X(1)
الرقم يزداد كل ما ضغط المستخدم زر الادخال بمعنى ان العنصر اللي راح تدخله الان راح يكون رقمه في المصفوفة 1 ثم بعد الضغط يصير 2 و هكذا
هذا كود امر الادخال:
Dim x1, y1 As String
i -= 1
x(i) = Val(TextBox1.Text) 'وضع القيم المدخلة من قبل المستخدم في المصفوفة
y(i) = Val(TextBox2.Text)
i += 1 'زيادة العداد
x1 = "X(" & i & ")" 'اظهار رقم العنصر الذي سيتم ادخاله للمستخدم
y1 = "y(" & i & ")"
Label1.Text = x1
Label2.Text = y1
