Arrays: part2
Multi-dimensionalArrays
It’s called also (Two- dimensional Array), it can have more than one dimension to represent data as a table. A two dimensional array takes the row-column form.
For example:
Dim A(5, 5) As Integer “ it’s 6-by-6 array because index starts from 0”
Another form:
Dim value(1 To 4, 1 To 3) As string “`it’s 4 rows and 3 columns”
Explain:
Dim A(3,1) As String “`it’s 4 rows and 2 columns”
A(0 , 0)
A(0 , 1)
A(1 , 0)
Anwar
Grade C
Ali
Grade A
Ali
Grade A
2
A(1 , 1)
A(2 , 0)
A(2 , 1)
A(3 , 0)
A(3 , 1)
Example1: Writea 4 – by – 2 array contains student names and grade.
Solution:
Code:
Dim A(3, 1) As String
Command1:
Private Sub Command1_Click()
Form1.Cls A(0, 0) = "Ali"
A(0, 1) = "A"
Haneen
Grade A
Haneen
Grade A
Zaineb
Grade B
Zaineb
Grade B
Anwar
Grade C
3
A(1, 0) = "Anwar"
A(1, 1) = "C"
A(2, 0) = "Zaineb"
A(2, 1) = "B"
A(3, 0) = "Haneen"
A(3, 1) = "A"
Print " " ; "Student " ; " " ; "Grade" For i = 0 To 3
For j = 0 To 1
Print " " ; (A(i, j)) ; " " , Next j
Print Next i End Sub
Example2 : Writea 5-by-5 Array to display a Matrix numbers showing that each row and each column will increase by 1 number respectively as in the figure:
Solution:
المادة المعروضة اعلاه هي مدخل الى المحاضرة المرفوعة بواسطة استاذ(ة) المادة . وقد تبدو لك غير متكاملة . حيث يضع استاذ المادة في بعض الاحيان فقط الجزء الاول من المحاضرة من اجل الاطلاع على ما ستقوم بتحميله لاحقا . في نظام التعليم الالكتروني نوفر هذه الخدمة لكي نبقيك على اطلاع حول محتوى الملف الذي ستقوم بتحميله .
|