生活中,许多女士喜欢穿高跟鞋,那穿高跟鞋会使人感到美吗?黄金分割能解释这个问题。人体躯干与身高比例的黄金分割点是肚脐。换句话说,这一比值越接近0.618,愈给人美之感。现按要求编写“高跟鞋的最佳之选”的VB程序(界面如下图所示),实现如下功能: 首先,设某女躯干a米和身高b米,分别从文本框Text1和Text2中输入,比值为g。鞋跟高度为s(单位与 a、b 一致),那么比值g=(a+s)/( b+s),如果g=0.618,那么鞋跟高度S的值就是最佳高度,所以最佳的鞋跟高度s=(0.618b-a)/0.382,设计程序计算最佳鞋跟高度的程序。
(1)应用程序界面设计时,为了显示s的值,在窗体中添加了 控件,一般需将它的 属性值设置为空。
(2)图中的人物是通过设置Image1对象的 属性,将外部图像文件添加进去的。
(3)请根据题意将下列程序补充完整。
Private Sub Command1_Click( )
Dim a As Single, b As Single,s As Single
a = Val(Text1.Text)
b = ①
②
Label4.caption=str(s)
End Sub