الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

هل طريقة جمع المصفوفه صحيحه

بدأه mdf في 25 أكتوبر 2009 · 1 رد · 367 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هل طريقة جمع المصفوفه الثائية التي عملتها صحيحه

كود الجمع

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

For i = 0 To 6

For j = 0 To 7

i(+j = arr2(i, j))



Next

Label1.Text &= arr2(i, j) & ""

Next

الكود كامل

Public Class Form1

Dim arr2(6, 7) As Integer

Dim i, j As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

For i = 0 To 6

For j = 0 To 7

arr2(i, j) = InputBox(" ")

Next

Next



End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

For i = 0 To 6

For j = 0 To 7

i(+j = arr2(i, j))



Next

Label1.Text &= arr2(i, j) & ""

Next

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

End Class
#2

هل قمت بتجربة البرنامج قبل طرح السؤال؟ يبدو لي أن هناك عدة أخطاء إملائية فيه.

مواضيع مشابهة