输入圆柱体底面的半径R,和高H,输出其表面积S和体积V 用VB输入圆柱体底面的半径R,和高H,输出其表面积S和体积V

输入圆柱体底面的半径R,和高H,输出其表面积S和体积V 用VB输入圆柱体底面的半径R,和高H,输出其表面积S和体积V
输入圆柱体底面的半径R,和高H,输出其表面积S和体积V 用VB
输入圆柱体底面的半径R,和高H,输出其表面积S和体积V

输入圆柱体底面的半径R,和高H,输出其表面积S和体积V 用VB输入圆柱体底面的半径R,和高H,输出其表面积S和体积V
界面：4 个标签,4个文本框,2个命令按钮（网络不给力,传不上图）
代码：
Private Sub Command1_Click()
Dim r, h, s, v As Single
Const Pi = 3.1415926
r = Text1
h = Text2
s = 2 * Pi * r * r + 2 * Pi * r * h
v = Pi * r * r * h
Text3 = s
Text4 = v
End Sub
Private Sub Command2_Click()
Unload Me
End Sub