101Sub过程 个调用计算圆面积及周长过程(sr)的 Private Sub Command1 Click Dim r, a, s As single r=Val( InputBox("输入半径R")) Call sr(r, a, s) Print: Print: Pr 计算圆面积和周长的子过程: Print“半径:"; Private sub sr(a,crb) Print“面积:"; Const pi=31416 Print“周长:c=a*a*pi'计算面积 End Sub b=2*pi*a"计算周长 End sub一个调用计算圆面积及周长过程(sr)的 Private Sub Command1_Click() Dim r, a, s As Single r = Val(InputBox("输入半径R")) Call sr(r, a, s) Print: Print: Print Print “半径："; r Print “面积："; a Print “周长："; s End Sub 计算圆面积和周长的子过程： Private Sub sr(a, c, b) Const pi = 3.1416 c = a * a * pi ’计算面积 b = 2*pi*a ’计算周长 End Sub 10.1 Sub过程