Shikh Mohammad Usman Haidar , BCA Third Year
?
0 likes?68 views
This is a work by the student of BCA Department student from Third Year studying at Dezyne E'cole College,Ajmer
Shikh Mohammad Usman Haidar , BCA Third Year
- 1. Information Technology 2D Array Sorting 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 ¨C 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 Private Sub Form_Activate() c = 0 For i = 1 To 3 For j = 1 To 3 Text3(c).Text = "" c = c + 1 Next Next Text3(0).SetFocus End Sub Private Sub Text3_Change(Index As Integer) Dim a(3, 3), b(3, 3), t, c As Integer c = 0 For i = 1 To 3 For j = 1 To 3 a(i, j) = Val(Text3(c).Text) c = c + 1 Next Next c = 0 Print For i = 1 To 3 For j = 1 To 3 Text1(c).Text = a(i, j) c = c + 1 Next Print Next c = 0 Print For i = 1 To 3 For k = 1 To 3 For j = 1 To 3
- 6. P a g e | 3 3 | P a g e For l = 1 To 3 If a(i, j) < a(k, l) Then b(i, j) = a(i, j) a(i, j) = a(k, l) a(k, l) = b(i, j) End If Next Next Next Next c = 0 Print For i = 1 To 3 For j = 1 To 3 Text2(c).Text = a(i, j) c = c + 1 Next Print Next End Sub Private Sub Clear_Click() c = 0 For i = 1 To 3 For j = 1 To 3 Text3(c).Text = "" c = c + 1 Next Next Text3(0).SetFocus End Sub Private Sub Exit_Click() Unload Me End Sub
- 7. P a g e | 4 4 | P a g e