Question

快！vb程序 求平方根

就是输入一个数，另一个text中会显示结果

Answer 1

Private sub command1_click()
text2.text=sqr(val(text1.text))
End sub

Answer 2

Private Sub 按钮_click()
Text2.Text = Sqr(val(Text1.Text))
End Sub

Answer 3

Private Sub Text1_Change()
Text2.Text = Sqr(val(Text1.Text))
End Sub