vb编程:舍r=10.4 pi=3.1415,求圆的面积s?球面积qa?球体积qv?等一下有没

2025-06-21 18:32:18
推荐回答(2个)
回答1:

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

回答2: