紧急，紧急，最好明天四点之前告诉我，vb 程序 体重测试 哪位高手帮帮忙

要求分男女不同情况，要复杂一点，如果有其他的一些可以加进去的东西更好
注：VB书上的刘连英主编的就不要写了，谢谢了

Private Sub Command1_Click()
Dim a As String, b
a = InputBox("请输入性别：", "性别", "")
b = InputBox("请输入身高（厘米）：", "身高", "")
If a = "男" Then
MsgBox "男生正常体重为" & b - 100 & "公斤。" & (b - 100) * 2 & "斤。"
Else
MsgBox "女生正常体重为" & b - 102 & "公斤。" & (b - 102) * 2 & "斤。"
End If
End Sub

在窗体上画出commandbox控件，到代码窗口写上以上代码

希望对你有帮助

男生：身高-100 乘以2
女生：身高-102 乘以2

你好！ 你连体重与身高算法都不说清楚怎么给你写啊 希望对你有所帮助，望采纳。