请问各位大虾,能否帮小弟我解决一个"先乘除" "后加减"算法的问题

[rickyshen]

问题是这样的: 当用户在一个TEXT框里输入一段字符;例如:5+2*3-2/3,然后当用户按确认时,自动的把TEXT框里的字符先乘除后加减,最后显示答案.
这样一个实现方法一定要写在FUNCTION里,谢谢各位大虾了!!

[zhsu]

没有括号运算吗？

[zbstone]

vb我才刚刚起步，具体的写不出，不过以前编过C的，你看看清华版的数据结构，里面有算法介绍的，可以考虑用栈这个数据结构来实现。希望对你有帮助：）

[luyantl]

这样没有必要吧
要不这样可以吗?
Public Function a() As Double
a = 5 + 2 * 3 - 2 / 3

End Function

Private Sub Command1_Click()
Text1.Text = a
End Sub

[iamltd]

这个要求有点复杂

查数据结构上关于栈的部分
或者是编译原理上关于句法分析的部分
都有源程序的

[crystal_heart]

这个，这个问题，去翻翻编译原理的书了。
我想你指的是 x+y*z 这样子的东西吧？

[wyj581]

up

[kevingarnett]

5+（2*3）-（2/3）
不能这样吗？

[lisayxw]

create table arith

sql = "select " & text1.text & " from arith"

[lisayxw]

补充一下：table 里面至少要有一条记录

[zyl910]

以前有人问过
acptvb(微软全球技术中心 VB技术支持)的回答：



回复人： acptvb(微软全球技术中心 VB技术支持) ( ) 信誉：99 2002-6-26 16:53:41 得分:0


感谢您使用微软产品。

您可以利用Microsoft Script Control来实现这个功能。

首先，你需要在工程里引用一下Microsoft Script Control。然后加入一下代码：

Private Sub Form_Load()

Dim scr As New ScriptControl
Dim mycode As String

scr.Language = "vbscript"
mycode = "public function Test()" + vbCrLf
mycode = mycode + "MsgBox ""Hello VB""" + vbCrLf
mycode = mycode + "End function"

scr.AddCode (mycode)
scr.Eval ("Test()")

End Sub

这样，在字符串mycode里定义的函数Test()就会被调用了。

参考：

HOWTO: Use Script Control Modules and Procedures Collections
http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q184745


- 微软全球技术中心 VB技术支持

本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境，请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。

[Sean918]

。。。糊涂了。。。

楼主问的只是一个四则运算的优先级算法问题吧？


简单点你用 case 把数字和计算符号分开然后计算就行拉

不用管优先级

[thinkeasy]

表达示计算呀，你到网上找一下吧，有这样的原代码