ضرب ماتریس ها در ویژوال بیسیک

[v.b.f1]

سلام دوستان سوالی در مورد ضرب ماتریس ها در ویژوال بیسک داشتم اصولا چطوریه

با استفاده از MSFlexGrid1 مثلا اگه بخوام یه ماتریس 4*4 بگیرم

خودمم یه کاریش کردم ولی نمیدونم خطاش تو چیه میدونم ستون اول ضرب میشه در سطر اول ماتریس دوم وووو

  For i = 1 To 4
    For j = 1 To 4
    Sum = 0
      For k = 1 To 4
     c(i, j) = a(i, k) * b(j, k)
   MSFlexGrid1.Row = i - 1
      MSFlexGrid1.Col = j - 1
     MSFlexGrid1.Text = Str(c(i, j))
      
    Next k
    Next j
  Next i
End If

با تشکر

 

[the_king]

Private Const n As Long = 4

Private Sub Form_Load()
    Dim I As Long, J As Long
    Dim Width As Long, Height As Long
    With MSFlexGrid1
        .FixedRows = 0
        .FixedCols = 0
        .Rows = n
        .Cols = n
        Width = ScaleX(33 * n + 8, vbPixels, ScaleMode)
        Height = ScaleY(33 * n + 8, vbPixels, ScaleMode)
        .Move 0, 0, Width, Height
        For J = 1 To n
            .ColWidth(J - 1) = 500
            .RowHeight(J - 1) = 500
            .ColAlignment(J - 1) = flexAlignCenterCenter
            For I = 1 To n
                .TextMatrix(I - 1, J - 1) = I * J
            Next
        Next
    End With
End Sub

مشخص کردن تعداد سطر و ستون :

        .FixedRows = 0
        .FixedCols = 0
        .Rows = n
        .Cols = n

مشخص کردن ابعاد کل MSFlexGrid برای جا شدن همه سطر و ستون ها :

        Width = ScaleX(33 * n + 8, vbPixels, ScaleMode)
        Height = ScaleY(33 * n + 8, vbPixels, ScaleMode)
        .Move 0, 0, Width, Height

مشخص کردن طول و عرض خانه ها :

            .ColWidth(J - 1) = 500
            .RowHeight(J - 1) = 500

مشخص کردن موقعیت Text در کادر خانه ها :

            .ColAlignment(J - 1) = flexAlignCenterCenter

نمایش مقدار در خانه ها :

                .TextMatrix(I - 1, J - 1) = I * J