نيازمند ياري سبزتان هستم

[behnamled]

با عرض سلام
من يه برنامه دارم كه اولا صورت سوال به شرح زير است
------------------------------------------
ماتريسي داريم به ابعاد 8*8 مي خواهيم در خانه شروع با انديس 0 و0 به خانه اي
كه يك موش در ان وجود دارد ودر خانه اي كه يك تكه پنير در ان موجوداست
مي خواهيم كوتاهترين مسير رسيدن موش به تكه پنير را محاسبه و چاپ كنيم
(به صورت خانه هاي شطرنج)
استاندارد ارايه 0و0
------------------------------------------
اين سوال فقط مشخص كنندهي راههاي صحيح است اما
منظور من اين است كه ساده ترين راه كدوم مه
و چطوري ميشه گرافيكيش كرد
اينم كد برنامه است
--------------------------
Private Sub Form_Load()
Dim M, N0, M0
Dim M1()
Dim M2()
Dim Out
Out = ""
E1:
M = InputBox("cheese (A?,?)", "Input", "A3,2")
If Len(M) <> 4 Then GoTo E1
N0 = Mid(M, 2, 1)
M0 = Right(M, 1)
If M0 = N0 Then
For RJ = 0 To M0
Out = Out & "[A" & RJ & "," & RJ & "] -> "
Next
Out = Mid(Out, 1, Len(Out) - 3)
ElseIf M0 = 0 Or N0 = 0 Then
If N0 = 0 Then
For RJ2 = 0 To M0
Out = Out & "[A" & 0 & "," & RJ2 & "] -> "
Next
Out = Mid(Out, 1, Len(Out) - 3)
Else
For RJ2 = 0 To N0
Out = Out & "[A" & RJ2 & "," & 0 & "] -> "
Next
Out = Mid(Out, 1, Len(Out) - 3)
End If
Else
For RJ2 = 0 To M0
Out = Out & "[A" & 0 & "," & RJ2 & "] -> "
Next
For RJ3 = 1 To N0
Out = Out & "[A" & RJ3 & "," & M0 & "] -> "
Next
Out = Mid(Out, 1, Len(Out) - 3)
End If
MsgBox Out, , "OutPut"
End Sub
----------------------------------------
ممنون و متشكر