const pi=3.1416
sub circle（byval r as single,L as single,a as single,V AS SINGLE）
L=2*pi*r
A=pi*r*r
V=4/3*r*r*r*pi
end sub