※ 引述《fumizuki (小狮子)》之铭言： : ※ 引述《TrueFeeling (昨日之死)》之铭言： : : 如果我上面的判断没错的话,GoSub SplitProc和GoTo EndProc是冲突的 : : 可是却同时进行?让我觉得很矛盾 : 没有同时进行呀，SplitProc跑完後，会 Return 回来，跑 Eval(op1) + Eval(op2)。 : 然後再 Goto EndProc，结束这一个函数。 : 跑 Eval = Eval(op1) + Eval(op2) 的时候会先执行 Eval(op1)，得到一个值， : 然後再执行 Eval(op2)，也得到一个值，两个值相加存进 Eval 中。 如果Eval(op1)和Eval(op2)的里面还有运算子的时候, 例如: Eval(2-3*5+7/5-9)=Eval(2-3*5)+Eval(7/5-9) 那麽这两个分割後的Eval函数, 要在什麽地方继续分割呢?(因为已经Goto EndProc了) : 把我那串程式列成规则就是： : 题目是一串四则运算的方程式(里面有加、减、乘、除、负号、数字、及空白)， : 方程式解法如下所示，请告诉我答案。 : 1. 将方程式中的空白去除掉，但为求效率，所以只有第一次要做这个动作。 : 2. 先处理优先等级最低的加法，分割成二部份，并相加。 ^^^^^^^^^^^^ : 3. 处理优先等级最低的减法，分割成二部份，把被加数变负数，并相加。 ^^^^^^^^^^^^ : 4. 处理优先等级最高的乘法，分割成二部份，并相乘。 ^^^^^^^^^^^ : 5. 处理优先等级最低的除法，分割成二部份，并相除。 ^^^^^^^^^^^^ : 6. 第一个字元是减号的时候，从第二个字元开始找起。 : 7. 处理减号的时候要注意是负号还是减号，当减号前一个字元不是数字的时候，此符号 : 则为负号。 优先等级这里有疑问,依照你程式的写法 我的解读是: 先用+号将字串分割成前段和後段,然後每一个分割後的字串依此继续分割 当分割完的函数里面没有+号的时候才会-号,再来是乘号,再来是除号 ,所以优先等级我看不懂你说最高和最低是什麽意思 : 上七项规则对照程式码如下： : 1. : If c = 1 Then s = Replace(s, " ", "") 是什麽东西让c=1的呢?我一直找不到 = = : 2. : p = InStr(s, "+") : If p > 0 Then GoSub SplitProc: Eval = Eval(op1) + Eval(op2): GoTo EndProc : 3.6.7. : '第一个字元是减号的时候，从第二个字元开始找起。 : If s Like "-*" Then p = 2 Else p = 1 : p = InStr(p, s, "-") : If p > 0 Then : '检查减号的前一个字元 : op1 = Mid(s, p - 1, 1) : If op1 = "+" Then '减号前一个字元是加号 : p = p - 1: GoSub SplitProc: Eval = Eval(op1) + Eval(op2): GoTo EndProc : ElseIf op1 = "-" Then '减号前一个字元是减号 : p = p - 1: GoSub SplitProc: Eval = Eval(op1) - Eval(op2): GoTo EndProc : ElseIf op1 = "*" Then '减号前一个字元是乘号 : p = p - 1: GoSub SplitProc: Eval = Eval(op1) * Eval(op2): GoTo EndProc : ElseIf op1 = "/" Then '减号前一个字元是除号 : p = p - 1: GoSub SplitProc: Eval = Eval(op1) / Eval(op2): GoTo EndProc : Else '减号前一个字元是数字 : GoSub SplitProc: Eval = Eval(op1) + Eval("-" & op2): GoTo EndProc : End If : End If : 4. : p = InStr(s, "*") : If p > 0 Then GoSub SplitProc: Eval = Eval(op1) * Eval(op2): GoTo EndProc : 5. : p = InStr(s, "/") : If p > 0 Then GoSub SplitProc: Eval = Eval(op1) / Eval(op2): GoTo EndProc : : 不好意思,我天资驽钝,还是不懂><(原谅我吧orz) : : 可是p如果是变数的话,电脑要从第几个字元开始找起呢 : : 还是说p是承接上面 p=2 Else p=1 的p : 既然我就指定是 p 了， p 是 1 就从第一个字元找， p 是 2 就是第二个字元找呀 嗯嗯,这段我了解了原来p是承接上面 p=2 Else p=1 的p没错 : ※ 引述《TrueFeeling (昨日之死)》之铭言： : : 我看到的是: : : Label1.Caption = Eval(Text1.Text) : : 这个意思我觉得是,点一下Command3然後他的Caption会显示Text1.Text算出来的值 : : 可是如果是这样的话,代表的是输出 : : 但是如果要由输入的Text1.Text变成方程式的话, : : 应该会有一个东西来影响方程式的东西 : : 看程式内容我觉得Text1.Text就是Eval(s)中的s, : : 但是我没有看到在Text1.Text和s有任何的转换关系,所以..我还是不懂orz : 什麽转换？ : 程式就是你在 Text1.Text 输入完方程式後，按下 Command3 : 然後会执行 Command3_Click()， : 在 Command3_Click() 中会呼叫 Eval ，把 Text1.Text 的内容传进去当作第一个参数。 是喔,呼叫可以这样用@@||(惊!!) : 进到 Eval 里面，第一个参数 s 当然是 Text1.Text 的内容啦！ : 然後 Eval 就开始处理 s 的内容，该分割的就分割， : 然後再次呼叫 Eval，交给新的 Eval 去处理被分割的二组运算式， : 直到所有运算式都被分解成数字的时候再将数字相加或相减...等等四则运算。 : 最後就会得到一个答案，这个答案传回给 Command3_Click()。 : 因为我说 Label1.Caption = Eval(Text1.Text)，所以这个答案就会交给 Label1去处理 : Label1 就会把它的 Caption 这个属性的新值输出。 : ※ 引述《TrueFeeling (昨日之死)》之铭言： : : ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ : : 如果s字串前面有负号,则下面S字串由第2个找起,否则由第1个找起? : : 如果是的话下面 : : Else : : GoSub SplitProc: Eval = Eval(op1) + Eval("-" & op2): GoTo EndProc : : 这个的作用好像有重复 : : 因为我把他拿掉测试似乎没影响 : 上面有说了，之前没说明清楚... : 没影响是因为你给的运算式刚好没有符合条件... : 至於下面那五个符号，为何想要用其它来取代？ : op1 的定义，我就是要它代表第一组运算式的， : op2 就是第二组。 : 分割的程式码有二段，主要的那段就是 SplitProc 那里。 : 另一段程式码是在 : If p > 0 Then : op1 = Mid(s, p - 1, 1) : 这个区段中，为的只是要检查目前这个运算子的前一个字元是不是也是运算子。 : 所以只有 op1，不会有op2... : 你要用其它符号取代，当然是可以，只不过多使用了一个变数而已... 但是依照程式里面op1的定义是: op1 = Left(s, p - 1) 所以这样来说,感觉实际上是两个变数,只是因为前一个用完,後面一个重新定义的样子 -- 感谢你还漫有耐心的,陪我喇勒这麽多^^|| -- 少年读书，如隙中窥月； 中年读书，如庭中望月； 老年读书，如台上玩月。 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 220.141.159.236