vb中输入x，求sin(x)，要求精度为10^-(-6),求代码，谢谢

dim x as double dim result as double x=inputbox("please input x") result = Math.Round(Math.sin(x),6) debug.print result