能实现这个表达式吗

Question

a1=123
a2="<232"
if a1 & a2 then
     ......我的a1与a2都是表达式变量，a1里存的是数字型，a2里存放带比较运算符的字符型，有什么方法能实现以上表达的正确比较

Answer 1

能做你参照下 http://jinesc.6600.org/bbs/disp.asp?idd=58612&room=111 
3楼以后的回复  

Answer 2

其实就直接Left函数取得比较符就可以了

Answer 3

這個只能做字符串比較，不能做數據比較,先把a1轉換成字符串，然後再比較
?"123">">232"
flase

Answer 4

Private Sub Command1_Click()
Dim a1 As Integer, a2 As String
a1 = 123
a2 = "<232"
Dim obj As Object
Set obj = CreateObject("MSScriptControl.ScriptControl")
  obj.Language = "vbscript"
If obj.Eval(a1 & a2) Then MsgBox a1 & a2
End Sub