برنامه ای در باره ماتریس

[پوریا_م]

سلام دوستان میخواسم این برنامه نسبتا پیچیده رو با vb پیاده کنم لطفا اگه میشه کمک کنیدبرنامه ای که عناصر یک ماتریس 5 * 5 را بخواند سپس یک عدد صحیح کوچکتر از 20 از ورودیبخواند و ماتریس فوق را به اندازه این عدد در جهت عقربه های ساعت دوران داده و حاصل را در خروجی چاپ کند

[pcdownload.bloghaa.com]

چندان هم پیچیده نیست.تابعی که در زیر برات نوشتم یک عدد دریافت میکنه و ماتریس
5*5 a را به اندازه همون عدد در جهت عقربه های ساعت می چرخونه و در ماتریس b قرار میده.


Dim a(5, 5) As Long
Dim b(5, 5) As Long
Private Function charkhesh(n As Long)
For k = 1 To n
For i = 1 To 5
For j = 1 To 5
b(i, j).Text = a(j, 6 - i).Text
Next j
Next i
Next k
End Function