要求用inputbox输入一个正实数,用msgbox输出它的平方和平方根,要求每个数保留三个小数.

Private Sub Commmand1_Click()
Dim a As Double
a = InputBox("输入一个正实数")
If a < 0 Then Exit Sub
Print Int(Sqr(a) * 1000) / 1000
End Su