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
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