Private Sub Command1_Click()Const pi = 3.1415Dim R1 As IntegerR1 = 10.4MsgBox Sqr(R1) * pi '面积MsgBox R1 * R1 * R1 * pi * 4 / 3 '体积MsgBox R1 * R1 * pi * 4 '表面积End Sub