Private Sub Command1_Click()
Dim a$
a = Val(InputBox("请输入一个大于0的数值", "输入"))
If a > 0 Then
MsgBox "圆面积是：" & 3.14 * a ^ 2 & "圆球表面积是：" & 4 * 3.14 * a ^ 2 & "圆球体积是" & (4 / 3) * 3.14 * a ^ 3
Else
MsgBox "不合法"
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024