با الگوي زير مي توان يك ماتريس را تعريف كرد:
Dim MatrixName(m As Integer, n As Integer) As Integer
مثلا" كد زير يك ماتريس 4*3 را تعريف مي كند:
کد:چون فهرست گذاري اعداد در ويژوال بيسيك از صفر شروع مي شود بايد از مقدار 3 و 4 ، يك واحد كم كنيم.'Dim mymatrix(2, 3) As Integerبراي دستيابي به درآيه هاي ماترس از الگوي زير كمك مي گيرم:
(MatrixName(i As Integer, j As Integer
طبق مثال كد زير درآيه 23 را برمي گرداند:
کد:چون فهرست گذاري اعداد در ويژوال بيسيك از صفر شروع مي شود بايد از مقدار 2 و 3 ، يك واحد كم كنيم.'mymatrix(1, 2)براي مقداردهي مي توانيم از كد زير استفاده كنيم:
MatrixName(i As Integer, j As Integer) = a As Integer
مثال:
کد:مقدار درآيه 23 برابر يك مي شود'mymatrix(1, 2) = 1
به گونه اي ديگر هم مي توان يك ماتريس را تعريف نمود. به مثال زير توجه كنيد:
كد بالا اين چنين ماتريسي را تعريف مي كند:کد:Dim mymatrix( , ) As Integer = {{1, 2, 3}, {4, 5 ,6}}
3 2 1
6 5 4






پاسخ با نقل قول
Bookmarks