小问题!!先解决者得20分，其它进来者每人送1分，送完为止。

Question

dim strValue as string
dim lngPosition as long
dim lngResault as longstrValue=text1.text
lngPosition=instr(strvalue,"/",vbTextCompare)
lngResault=clng(mid(strValue,1,lngPosition-1))
           /clng(mid(strValue,lngPosition+1,len(strValue)))
msgbox lngResault '8

Answer 1

你的目的不只是涉及“/”吧，对于任意运算符
我认为可以逐个字符检查，如果不是数字这是运算符或扩号，然后在用split函数用刚刚检索的非数值字符拆分，然后在根据运算进行计算

Answer 2

虽然这个并不复杂，还有更简单一点的吗？能不能不自己写函数，一个VB语句搞定。Guan Zhu

Answer 3

谢谢 penper(木头) 
只想看看有没简单一点。