我想利用两个TEXT文本框和一个COMMAND按键来做个计算器，一个框是用来输入式子，例如（1+3-9*8/6），另外一个用来输出结果。。用COMMAND控制。。但是我想了一天都想不出怎么编这个程序。。。希望高手帮帮我好吗？我是菜鸟。。。。先谢。。。

Option Explicit Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long

Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0 End Function

Sub calc(ByVal x As String) Dim result ExecuteLine "dim x as double" ExecuteLine "x= " & x ExecuteLine "clipboard.settext x" result = Clipboard.GetText MsgBox x & "=" & result Set result = Nothing End Sub

Private Sub Command1_Click() calc Text1 End Sub

Private Sub Form_Load() Text1.Text = "1+2*3-4/5" End Sub

vb计算字符串表达式的程序，注：窗体中加入一个文本框名为text1一个按钮command1

这种使用API函数实现的因为VB不像JavaScript用eval函数就可以计算字符串表达式。

虽然不是完全我想要的，，，但是已经很开心，，，真的很谢你。。。。

哈哈！vb没想到这么多人都在用!你是不是长沙的

我是广州的。。。
问题又出现啦。。。我不能生成EXE文件哦。。。生了后双击它会说我少了个叫VBA.dll的文件。。。怎么办？？再帮我好吗？我就差那么一点就有得用啦。。。

跪 求一答。。.......请朋友们不要用这样的字眼好吗？很郁闷的说。。。。 少了个文件，你就补上呀 不过，你使用了API函数，如果操作系统改变，很可能实现不了的

哈哈。。我又不是男孩子，，怕什么呢？？？难得高手们看得起我是我的荣幸嘛，，，一小跪又如何呢？？我真的赶着用的所以才。。。。。。。。。
补上？？？怎么补？？？把他拿到同一个文件夹？？？？但是不行哦。。。。

这要用逆波兰式计算法。