编写圆的面积及圆柱的体积的程序,已知圆的半径及圆柱的高.要求画出程序界面

Private Sub Command1_Click()
•\x05 Dim r!,s#
•\x05 r = val(Text1.Text)
•\x05 s = 3.14 * r ^ 2
•\x05 Text3.Text = s
•\x05End Sub
•\x05Private Sub Command2_Click()
•\x05 Dim h!,v#
•\x05 r =val( Text1.Text)
•\x05 h = val( Text2.Text)
•\x05 v = 3.14 * r ^ 2 * h
•\x05 Text4.Text = v
•\x05End Su