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这些控件的名称是否正确！！