关于VB的编程题、、、求一个实数的平方根,平方,立方,立方根,每个数保留3位小数 谢谢啦

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/16 19:40:16
关于VB的编程题、、、求一个实数的平方根,平方,立方,立方根,每个数保留3位小数谢谢啦关于VB的编程题、、、求一个实数的平方根,平方,立方,立方根,每个数保留3位小数谢谢啦关于VB的编程题、、、求一个

关于VB的编程题、、、求一个实数的平方根,平方,立方,立方根,每个数保留3位小数 谢谢啦
关于VB的编程题、、、求一个实数的平方根,平方,立方,立方根,每个数保留3位小数 谢谢啦

关于VB的编程题、、、求一个实数的平方根,平方,立方,立方根,每个数保留3位小数 谢谢啦
Private Sub Form_Load()
q = 123
'平方
MsgBox c(q, 2)
'平方根
MsgBox c(q, 1 / 2) '求2次根一个数的1/2次方
'立方
MsgBox c(q, 3)
'立方根
MsgBox c(q, 1 / 3)
End Sub
Function c(d, e)
c = d ^ e
f = a(c)
c = Left(c, f + 3)
End Function
Function a(b)
b = b & ".000"
a = InStr(1, b, ".", 1)
End Function
'----------------------------------------------------------------
'更直接的方法
Private Sub Form_Load()
q = 123
'平方
MsgBox c(q, 2)
'平方根
MsgBox c(q, 1 / 2) '求2次根一个数的1/2次方
'立方
MsgBox c(q, 3)
'立方根
MsgBox c(q, 1 / 3)
End Sub
Function c(a, b)
c = Format(a ^ b, "0.000")
End Function