Question

1．已知圆半径，求圆面积、球表面积和球体积，使用InputBox 、MsgBox函数。求大神帮助啊！！设计成VB程序

Answer 1

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