研究表明，人的身高與遺傳有很大關(guān)系，其中成年男性的身高預(yù)測(cè)公式為：身高（cm）=（父親身高+母親身高）*1.08/2，女性的身高預(yù)測(cè)公式為：身高（cm）=（父親身高*0.923+母親身高）/2，編輯界面和運(yùn)行界面分別如下：

（1）應(yīng)用程序界面設(shè)計(jì)時(shí)，若想要將窗體的標(biāo)題改為“預(yù)測(cè)身高”，則應(yīng)該在窗體中的

Caption

Caption

屬性中修改。
（2）運(yùn)行程序時(shí)，在文本框Text1中輸入父親身高，在文本框Text2中輸入母親身高，在文本框Text3中輸入性別（輸入只限：男或女），單擊“預(yù)測(cè)”按鈕Command1，在標(biāo)簽Label4中顯示預(yù)測(cè)身高，程序代碼如下：
Dim s As String’s用于存儲(chǔ)性別
Dim h1As Single,h2As Single,h As Single,flag as Boolean
h1=Val（Text1．Text）
h2=Val（Text2．Text）
s=   ①
if s=“男“then flag=True else      ②
If flag  Then
h=（h1+h2）*1.08/2
Else
h=（h1*0.923+h2）/2
End if
Label4．caption=“孩子的身高是：“+  ③+“cm“
將程序補(bǔ)充完整：
①橫線處應(yīng)該填入

Text3．text

Text3．text

；
②橫線處應(yīng)該填入

flag=False

flag=False

；
③橫線處應(yīng)該填入

Str（h）

Str（h）