Private Sub Command1_Click()Dim x As Singlex = Val(InputBox("输入一个正实数"))MsgBox Round(x, 3) & vbCrLf & "平方=" & Round(x * x, 3) & vbCrLf & "平方根=" & Round(Sqr(x), 3)End Sub
