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