vb题 求圆柱的表面积和体积 麻烦高手编写程序代码!

Private Sub Cmd1_Click()
Dim r As Double
Dim h As Double
Const Pi = 3.1415926
'先用InputBox函数引入底面半径和高
r = Val(InputBox("请输入圆柱体底面半径："))
h = Val(InputBox("请输入圆柱体的高："))

'圆柱体的表面积=侧面积+两个底面积
Dim s As Double
s = Pi * 2 * r * h + 2 * Pi * r * r
Lab1.Caption = s
End Sub
Private Sub Cmd2_Click()
Dim r As Double
Dim h As Double
Const Pi = 3.1415926
'先用InputBox函数引入底面半径和高
r = Val(InputBox("请输入圆柱体底面半径："))
h = Val(InputBox("请输入圆柱体的高："))

'圆柱体的体积=底面积*高
Dim v As Double
v = Pi * r * r * h
Lab2.Caption = v
End Sub代码不难,简单的公式处理而已,希望你自己好好消化一下,好好学习,天天向上,祝愉快!遵照“浪花飘零2000”这位朋友的意见,表面积公司略作修改完善! 你仔细检查一下Label1这些控件的名称是否正确!