ارسم خريطة تدفق لطباعة الاعداد الفردية من واحد الي عشرة ماعدا العدد 7

Dim A As byte = 1
Do While A <=1
If A <> 7 Then
MsgBox(A)
A = A + 2
Else
A = A + 2
End If
Loop

1- start
2- m=1
3-is m<=10
3-1 then is m=7 then m=m+2 go to the beginning of step 3
3-2 else print M \\ M=M+2 \\ go to the beginning of step 3
4- end