'在窗体上放5个文本框，1个按钮，名字默认，使用以下代码
'半径：Text1
'高:Text2
'底面积：Text3
'侧面积：Text4
'体积：Text5
Private Sub Command1_Click()
On Error Goto 1
Text3.Text = Text1.Text * Text1.Text * 3.14
Text4.Text = Text1.Text * 6.28 * Text2.Text
Text5.Text = Text1.Text * Text1.Text * 3.14 * Text2.Text
Exit Sub
1:
msgbox "数据有错",,"提示"
End Sub
假设半径为r，高度为h，pi为圆周率
底面积=pi*r^2
侧面积=2*r*pi*h
体积=pi*r^2*h
套上公式就行
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024