2计算圆的周长和面积 开始 输入半径 r Private Sub Command1_Click( Dim r As single, pi As single, c As single, s As single pi=3.1415 c=2*pi*r s=pi*r*r 输出cs 结束 r = InputBox"请输入半径r" pi=3.1415 c=2*pi*r s=pi*r*r Print c,s