際際滷

際際滷Share a Scribd company logo
Information Technology
Array Matrix Multiplication
Submitted By
Shekh Mod. Usman
Haider
www.dezyneecole.com
Project Report
On
Visual Basic Programming
At
Dezyne E卒cole College
Ajmer
Submitted to
Dezyne E卒cole College
Towards the
Partial Fulfillment on
Bachelors of Computer Application
By
Shekh Mohammad Usman Haider
Dezyne E卒cole College
106/10 Civil Line, Ajmer
Tel  0145-2624679
Www.dezyneecole.com
2016
Acknowledgement
I Usman Haider, Student On Dezyne E卒cole College, An Extremely
Grateful To Each And Every Individual. Who Has Contributed In
Successful Completion Of My Project. I Express My Gratitude
Towards Dezyne E 卒cole College For Their Guidance and Contrast
Supervision As Well As For Providing The Necessary Information And
Support Regarding The Completion Of Project.
Thank You
P a g e | 1
1 | P a g e
P a g e | 2
2 | P a g e
Dim i, j, k, c As Integer
Dim a(3, 3), b(3, 3), co(3, 3) As Integer
Private Sub Command3_Click()
c = 0
For i = 1 To 3
For j = 1 To 3
a(i, j) = Text1(c).Text
c = c + 1
Next
Next
c = 0
For i = 1 To 3
For j = 1 To 3
b(i, j) = Text2(c).Text
c = c + 1
Next
Next
c = 0
For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
co(i, j) = co(i, j) + a(i, k) * b(k, j)
Next
Next
Next
c = 0
For i = 1 To 3
For j = 1 To 3
Text3(c).Text = co(i, j)
c = c + 1
Next
Next
End Sub
P a g e | 3
3 | P a g e

More Related Content

Shikh Mohammad Usman Haidar , BCA Third Year

  • 1. Information Technology Array Matrix Multiplication Submitted By Shekh Mod. Usman Haider www.dezyneecole.com
  • 2. Project Report On Visual Basic Programming At Dezyne E卒cole College Ajmer Submitted to Dezyne E卒cole College Towards the Partial Fulfillment on Bachelors of Computer Application By Shekh Mohammad Usman Haider Dezyne E卒cole College 106/10 Civil Line, Ajmer Tel 0145-2624679 Www.dezyneecole.com 2016
  • 3. Acknowledgement I Usman Haider, Student On Dezyne E卒cole College, An Extremely Grateful To Each And Every Individual. Who Has Contributed In Successful Completion Of My Project. I Express My Gratitude Towards Dezyne E 卒cole College For Their Guidance and Contrast Supervision As Well As For Providing The Necessary Information And Support Regarding The Completion Of Project. Thank You
  • 4. P a g e | 1 1 | P a g e
  • 5. P a g e | 2 2 | P a g e Dim i, j, k, c As Integer Dim a(3, 3), b(3, 3), co(3, 3) As Integer Private Sub Command3_Click() c = 0 For i = 1 To 3 For j = 1 To 3 a(i, j) = Text1(c).Text c = c + 1 Next Next c = 0 For i = 1 To 3 For j = 1 To 3 b(i, j) = Text2(c).Text c = c + 1 Next Next c = 0 For i = 1 To 3 For j = 1 To 3 For k = 1 To 3 co(i, j) = co(i, j) + a(i, k) * b(k, j) Next Next Next c = 0 For i = 1 To 3 For j = 1 To 3 Text3(c).Text = co(i, j) c = c + 1 Next Next End Sub
  • 6. P a g e | 3 3 | P a g e