作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:数学作业 时间:2024/06/18 01:16:35
要求用inputbox输入一个正实数,用msgbox输出它的平方和平方根,要求每个数保留三个小数.
要求用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