因为我只懂QB,我把QB代码发上来供参考,
而且我没做去括号处理
(以前好像有写过去括号的东西,忘了,没找着)

Function sub53(a$, b$)
d = 0
For i = 1 To Len(a$)
    c$ = Mid$(a$, i, 1)
    If (c$ >= "0" And c$ <= "9") Then
       d = 1
    ElseIf d = 1 Then
       d = 2
    End If
    If d = 2 Then
       x = Val(Mid$(a$, 1, i - 1))
       y = Val(Mid$(a$, i))
       Exit For
    End If
Next

z = Sgn(x) * Sgn(y)

Dim ar(100) As Integer

j = 0
d = 0
e = 1
b$ = b$ + " "
For i = 1 To Len(b$)
    c$ = Mid$(b$, i, 1)
    If (c$ >= "0" And c$ <= "9") Then
       d = 1
    ElseIf d = 1 Then
       d = 0
       j = j + 1
       ar(j) = Val(Mid$(b$, e, i - e))
       e = i
    End If
Next

For i = 1 To j
    If Abs(ar(i)) = Abs(x) Then
       For k = 1 To j
           If Abs(ar(k)) = Abs(y) Then
              If z = Sgn(ar(i)) * Sgn(ar(k)) Then
                 sub53 = -1
                 print "YES"
                 Exit Function
              End If
           End If
       Next
    End If
Next
End Function