Dim e As Double
Private Sub Command1_Click()
Dim x As Double
Dim y As Double
e = 2.718281828459
Dim r1 As Double
Dim r2 As Double
r1 = (x ^ 3 + (e ^ (-6)) * Log(y)) * ((Sin(x) * Sin(y)) / (x ^ 2 + y ^ 2))
r2 = (2 + 2 * x * (e ^ y)) / (Sqr(Abs(x * y)))
Dim r As Double
r = Sqr(r1 + r2)
End Sub
追问怎么没出现inputbox
追答Dim e As Double
Private Sub Command1_Click()
Dim x As Double
Dim y As Double
x=inputbox("请输入x")
y=inputbox("请输入y")
e = 2.718281828459
Dim r1 As Double
Dim r2 As Double
r1 = (x ^ 3 + (e ^ (-6)) * Log(y)) * ((Sin(x) * Sin(y)) / (x ^ 2 + y ^ 2))
r2 = (2 + 2 * x * (e ^ y)) / (Sqr(Abs(x * y)))
Dim r As Double
r = Sqr(r1 + r2)
print r;
End Sub
追问怎么没出现inputbox
追答x=inputbox("请输入x")
y=inputbox("请输入y")
本回答被提问者和网友采纳