程序设计，vb 求高手解答。谢谢了（要求用inputBox 输入一个正实数，用msgbox输出它的平方和平方根 ，要求每个数保留三位小数。 知识点：InputBox函数， Round(x , n)四舍五入函数建议：先声明变量，将键盘输入的数据放在变量中，再求平方和平方根。（独立写程序时请参考书上的程序例子，分析程序顺序结构，一般结构如下：先声明变量---数据输入（变量赋值）数据处理数据输出。
2019-05-30
程序设计，vb 求高手解答。谢谢了
（要求用inputBox 输入一个正实数，用msgbox输出它的平方和平方根 ，要求每个数保留三位小数。
知识点：InputBox函数， Round(x , n)四舍五入函数
建议：先声明变量，将键盘输入的数据放在变量中，再求平方和平方根。
（独立写程序时请参考书上的程序例子，分析程序顺序结构，一般结构如下：先声明变量---数据输入（变量赋值）数据处理数据输出。
优质解答
Private Sub Command1_Click()
Dim x As Single
x = Val(InputBox("输入一个正实数"))
MsgBox Round(x, 3) & vbCrLf & "平方=" & Round(x * x, 3) & vbCrLf & "平方根=" & Round(Sqr(x), 3)
End Sub
Private Sub Command1_Click()
Dim x As Single
x = Val(InputBox("输入一个正实数"))
MsgBox Round(x, 3) & vbCrLf & "平方=" & Round(x * x, 3) & vbCrLf & "平方根=" & Round(Sqr(x), 3)
End Sub