Public Subcommand1_click()
dimr as integer
r=val(inputbox("请输入半径"))
s=3.1415926*r^2
msgbox"圆的面积为:"&s
endsub