参考答案

Private Sub Command1_Click()
    Text1.Text = InputBox("请输入身高")
    Text2.Text = InputBox("请输入体重")
End Sub