Dim tt As String = "A+B-C>20"
Dim A As Integer = 20
Dim B As Integer = 90
Dim C As Integer = 30
If tt Then
   MsgBox("符合")
End If

[此贴子已经被作者于2021-2-28 20:22编辑过]

用.NET程序集引用COM组件MSScriptControl的方法也不行，MSScriptControl方法，只能计算结果，不能计算有变量的。
A = AA(i)
B = BB(i)
C = CC(i)

If aq.Eval(tt) Then
   MsgBox("符合")
End If

[此贴子已经被作者于2021-2-28 20:21编辑过]

已解决