This preview shows page 1. Sign up to view the full content.
Unformatted text preview: by2 = by2 - 1 mode = 2 ElseIf y + dy < by1 And mode = 1 Then dx = 1 dy = 0 by1 = by1 + 1 mode = 2 x = x + 1 y = y + 1 End If If ct + dc > n Or ct + dc < 1 Then dc = -dc End If ct = ct + dc temp(x, y) = ct x = x + dx y = y + dy Next i For i = 1 To n For j = 1 To n Print temp(j, i); Next j Print Next i End Sub...
View Full Document
This note was uploaded on 09/30/2010 for the course PROGRAMMIN 52635 taught by Professor Agustinus during the Winter '05 term at St. Borromeo.
- Winter '05