Private Sub Command1_Click()
r = Val(InputBox("输入圆柱体底面的半径R"))
h = Val(InputBox("输入圆柱的高H"))
s = 3.14159 * r * 2 * h + 3.14159 * r * r * 2
V = 3.14159 * r * 2 * h
MsgBox "圆柱体的表面积S=" & s & vbCrLf & " 体积V=" & V
End Sub
'请参考。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024