vb编写程序，通过输入框输入一个正整数，将这个整数的平方根通过消息框返回给用户，代码是什么？

Answer 1

Private Sub Command1_Click()
n = Val(InputBox("输入数"))
MsgBox "平方根：" & Sqr(n)
End Sub