Question

把下列数学表达式改写成等价的VB算术表达式?

Answer 1

'未做错误处理，如果需要自己加进去
Option ExplicitPrivate Sub Form_Activate()
Print Fc_1(1, 2)
Print Fc_2(1, 1)
Print Fc_3(1, 2, 3)
Print Fc_4(1, 2, 3, 4)
End SubFunction Fc_1(ByVal x, ByVal y)
Fc_1 = (1 + y / x) / (1 - y / x)
End Function
Function Fc_2(ByVal x, ByVal y)
Fc_2 = x ^ 2 + 3 * x * y / (2 - y)
End Function
Function Fc_3(ByVal a, ByVal b, ByVal c)
Fc_3 = Sqr(Abs(a * b - c ^ 3))
End FunctionFunction Fc_4(ByVal a, ByVal b, ByVal c, ByVal s)
Fc_4 = Sqr(8 * (s - a) * (s - b) * (s - c))
End Function

Answer 2

等式呢

Answer 3

0＜y＜20

Answer 4

ax平方 3xy–4y平方