关于两道LOGO题

张老师，我有两道LOGO题想请教一下：
1）TO B ;A
HT IF :A=0[STOP]
MAKE "X 400-RANDOM 200
MAKE "Y 400-RANDOM 200
PU SETXY SE :X :Y PD
MAKE "B 5+RANDOM 6
REPEAT 5[FD :B RT 144]
B :A-1
END
执行B 30
用语言说明运行结果

2）TO BB
CS HT RT 90 MAKE "N 1
REPEAT 5[PD SET 10*:N PU FD 10 MAKE"N :N+2]
PD FD 10 SETXY [40 80]HOME
SETXY[60 -40]SETXY [110 0]
SETXY [40 80]SETXY [60 -40]
END
执行 BB
谢谢！！！
                                                     提高班 张玥