※ 引述《TrueFeeling (昨日之死)》之铭言： : 如果我上面的判断没错的话,GoSub SplitProc和GoTo EndProc是冲突的 : 可是却同时进行?让我觉得很矛盾 没有同时进行呀，SplitProc跑完後，会 Return 回来，跑 Eval(op1) + Eval(op2)。 然後再 Goto EndProc，结束这一个函数。 跑 Eval = Eval(op1) + Eval(op2) 的时候会先执行 Eval(op1)，得到一个值， 然後再执行 Eval(op2)，也得到一个值，两个值相加存进 Eval 中。 把我那串程式列成规则就是： 题目是一串四则运算的方程式(里面有加、减、乘、除、负号、数字、及空白)， 方程式解法如下所示，请告诉我答案。 1. 将方程式中的空白去除掉，但为求效率，所以只有第一次要做这个动作。 2. 先处理优先等级最低的加法，分割成二部份，并相加。 3. 处理优先等级最低的减法，分割成二部份，把被加数变负数，并相加。 4. 处理优先等级最高的乘法，分割成二部份，并相乘。 5. 处理优先等级最低的除法，分割成二部份，并相除。 6. 第一个字元是减号的时候，从第二个字元开始找起。 7. 处理减号的时候要注意是负号还是减号，当减号前一个字元不是数字的时候，此符号 则为负号。 上七项规则对照程式码如下： 1. If c = 1 Then s = Replace(s, " ", "") 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 就是第二个字元找呀 ※ 引述《TrueFeeling (昨日之死)》之铭言： : ※ 引述《fumizuki (小狮子)》之铭言： : : 在 Command3_Click 那里... : : 第一次呼叫在 Command3_Click 那里， : 我看到的是: : 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 (昨日之死)》之铭言： : ※ 引述《fumizuki (小狮子)》之铭言： : : p = InStr(s, "+") : : If p > 0 Then GoSub SplitProc: Eval = Eval(op1) + Eval(op2): GoTo EndProc : : If s Like "-*" Then p = 2 Else p = 1 : ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ : 如果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... 你要用其它符号取代，当然是可以，只不过多使用了一个变数而已... -- VB 程式设计 仓木麻衣 PTT 星爷板 行列输入法 ====================================================== Visual_Basic MaiKuraki Stephen Array --

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