※ 引述《TrueFeeling (昨日之死)》之铭言： : 没想到竟然也可以算次方,可是我想不出原理是什麽 : 如果说程式执行到^的时候,字串已经里面不会再有加减乘除号了, : 这样 : p = InStr(s, "^") : If p > 0 Then GoSub SplitProc: F = F(op1) ^ F(op2): GoTo EndProc : 这边就可以理解 : 但是这边 : ElseIf op1 = "^" Then : p = p - 1: GoSub SplitProc : 如果-前面有^,後面有*, : 例如:Eval(5^-3*2)的时候 : 照理说,我没有设定Eval=Eval(op1) ^ Eval(op2): : (因为设了会出错) : Eval(5^-3*2)应该无法分割,但是答案却出乎我预料的正确@@!! 怎麽可能正确 你 F 那行就错误了 ... 正确程式码是这样... Public Function Eval(s As String) Dim p As Integer, op1 As String, op2 As String, o As String Static c As Integer: c = c + 1 If c = 1 Then s = Replace(s, " ", "") 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 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 ElseIf op1 = "^" Then Else GoSub SplitProc: Eval = Eval(op1) + Eval("-" & op2): GoTo EndProc End If End If p = InStr(s, "*") If p > 0 Then GoSub SplitProc: Eval = Eval(op1) * Eval(op2): GoTo EndProc p = InStr(s, "/") If p > 0 Then GoSub SplitProc: Eval = Eval(op1) / Eval(op2): GoTo EndProc p = InStr(s, "^") If p > 0 Then GoSub SplitProc: Eval = Eval(op1) ^ Eval(op2): GoTo EndProc Eval = Val(s) EndProc: c = c - 1: Exit Function SplitProc: op1 = Left(s, p - 1): op2 = Mid(s, p + 1): Return End Function 为什麽 ElseIf op1 = "^" Then p = p - 1: GoSub SplitProc: Eval = Eval(op1) / Eval(op2): GoTo EndProc 会错误，我算了一下， 是因为 ^ 的优先等级的问题... 因为 ^ 这个运算子的优先等级比 * 、 / 还要高 所以优先顺序应该是 ^ / * - + 程式要反过来变成 + - * / ^ ElseIf op1 = "^" 的下面那行全部消掉， p = p - 1: Gosub SplitProc 根本也没意义 ^ 这个运算子是要留在最後处理的，所以在 ElseIf 这里就不做处理 如果真的打成这样... ElseIf op1 = "^" Then p = p - 1: GoSub SplitProc: Eval = Eval(op1) / Eval(op2): GoTo EndProc 会变成 5 ^ (-3 * 2) 正确的结果应该是 (5 ^ -3) * 2 -- VB 程式设计 仓木麻衣 PTT 星爷板 行列输入法 ====================================================== Visual_Basic MaiKuraki Stephen Array --

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