※ 引述《TrueFeeling (昨日之死)》之铭言： : ※ 引述《fumizuki (小狮子)》之铭言： : : 没有同时进行呀，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了) 你的问题大概是 　 Eval = Eval(op1) + Eval(op2): Goto EndProc 这一行吧 　 这是两行叙述，第一行执行时会去呼叫 Eval， op1 和 op2 那两个 Eval 都「执行完成」的时候，才会 Goto EndProc 　 : : 把我那串程式列成规则就是： : : 题目是一串四则运算的方程式(里面有加、减、乘、除、负号、数字、及空白)， : : 方程式解法如下所示，请告诉我答案。 : : 1. 将方程式中的空白去除掉，但为求效率，所以只有第一次要做这个动作。 : : 2. 先处理优先等级最低的加法，分割成二部份，并相加。 : ^^^^^^^^^^^^ : : 3. 处理优先等级最低的减法，分割成二部份，把被加数变负数，并相加。 : ^^^^^^^^^^^^ : : 4. 处理优先等级最高的乘法，分割成二部份，并相乘。 : ^^^^^^^^^^^ : : 5. 处理优先等级最低的除法，分割成二部份，并相除。 : ^^^^^^^^^^^^ : : 6. 第一个字元是减号的时候，从第二个字元开始找起。 : : 7. 处理减号的时候要注意是负号还是减号，当减号前一个字元不是数字的时候，此符号 : : 则为负号。 : 优先等级这里有疑问,依照你程式的写法 : 我的解读是: : 先用+号将字串分割成前段和後段,然後每一个分割後的字串依此继续分割 : 当分割完的函数里面没有+号的时候才会-号,再来是乘号,再来是除号 : ,所以优先等级我看不懂你说最高和最低是什麽意思 先乘除後加减啊 　 乘除优先运算，加减最後运算，这数学规则应该知道吧 　 因为最先进入的程式是最後才会结束的，所以要倒过来，变成加减先处理，再处理乘除 　 至於乘与除先後顺序不会影响结果，加与减也是... : : 上七项规则对照程式码如下： : : 1. : : If c = 1 Then s = Replace(s, " ", "") : 是什麽东西让c=1的呢?我一直找不到 = = 前面翻翻程式码吧 　 最开头就写了个 c = 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 : : 既然我就指定是 p 了， p 是 1 就从第一个字元找， p 是 2 就是第二个字元找呀 : 嗯嗯,这段我了解了原来p是承接上面 p=2 Else p=1 的p没错 : : 什麽转换？ : : 程式就是你在 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 这个属性的新值输出。 : : 上面有说了，之前没说明清楚... : : 没影响是因为你给的运算式刚好没有符合条件... : : 至於下面那五个符号，为何想要用其它来取代？ : : op1 的定义，我就是要它代表第一组运算式的， : : op2 就是第二组。 : : 分割的程式码有二段，主要的那段就是 SplitProc 那里。 : : 另一段程式码是在 : : If p > 0 Then : : op1 = Mid(s, p - 1, 1) : : 这个区段中，为的只是要检查目前这个运算子的前一个字元是不是也是运算子。 : : 所以只有 op1，不会有op2... : : 你要用其它符号取代，当然是可以，只不过多使用了一个变数而已... : 但是依照程式里面op1的定义是: : op1 = Left(s, p - 1) : 所以这样来说,感觉实际上是两个变数,只是因为前一个用完,後面一个重新定义的样子 op1 有两个地方在使用它，两个地方并不会冲突，用过了後就不再使用了... -- VB 程式设计 仓木麻衣 PTT 星爷板 行列输入法 ====================================================== Visual_Basic MaiKuraki Stephen Array --

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