Question

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

Answer 1

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