Question

vb练习题补充程序

三、补充程序求圆的面积及圆柱体的体积，界面如图所示。【步骤】（1）设计应用程序的界面：在窗体上创建两个命令按钮Command1和Command2，四个标签Label1、Label2、Label3和Label4，四个文本框Text1、Text2、Text3和Text4。（2）设置对象的属性对象名称 属性名称 属性值 Command1 Caption 求圆的面积 Command2 Caption 求圆柱的体积 Label1 Caption 圆的半径 Label2 Caption 圆柱的高 Label3 Caption 圆的面积 Label4 Caption 圆柱的体积 Text1、Text2、Text3、Text4 Text （3）编写事件代码：注意： r：半径，对应Text1；h：高，对应Text2； s：面积，对应Text3；v：体积，对应Text4 圆周率取值：3.14159 Private Sub Command1_Click() Dim r As Single, s As Single r = s = Text3.Text = Str(s) End Sub Private Sub Command2_Click() Dim r As Single, h As Single, v As Single r = h = v = Text4 = v End Sub

Answer 1

r = val(text1.text)
s = 3.14159 * r * r


r = val(text1.text)
h = val(text2.text)
v = 3.14159 * r * r * h