- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教表达式求值代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9793)
-- 发布时间：2011/5/8 0:21:00
-- 请教表达式求值代码
怎样实现在窗口1文本框TextBox1中输入1算式：
如（10+2）*2*1、5/（5-5/1）、6/(5/4-1)、10*(4-2)+4等
点计算按钮，文本框中TextBox2出现计算结果，如以上都等于24.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:速算24.table |
-- 发布时间：2011/5/8 7:36:00
--
代码：
Dim s As String = e.Form.Controls("TextBox1").Value
If s > "" Then
e.Form.Controls("TextBox2").Value = eval(s)
End If
参考：
http://www.foxtable.com/help/topics/1277.htm
-- 发布时间：2011/5/8 22:31:00
--
谢谢狐爸