(1) Val(Text2.Text)
(2) t = a: a = c: c = t
(3) End If
(4) Text4.Text
(5) i * 3
(6) n mod 3 = 0
(7) Next i