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