※ 引述《fumizuki (小狮子)》之铭言： : ※ 引述《TrueFeeling (昨日之死)》之铭言： : 正确程式码是这样... : 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 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) 嗯,我是过,结果答案似乎也不是这样 例如我输入2^-1*2 答案是0.5@@!! (不知道电脑怎麽算的!!) : 正确的结果应该是 : (5 ^ -3) * 2 -- 少年读书，如隙中窥月； 中年读书，如庭中望月； 老年读书，如台上玩月。 --

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