作者TrueFeeling (昨日之死)
看板Visual_Basic
標題Re: [VB6 ] 計算機
時間Sun Jun 12 00:33:20 2005
※ 引述《fumizuki (小獅子)》之銘言：
: 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
^^^^^^^^^^^^^^^^^^^^^^^^^^^
發現Bug
: End If
如果2^2+3^3-4^2
依照原式:
會變成
2^2+3^3+(-4)^2=50
如果改成
Eval = Eval(op1) - Eval(op2)
則2^2+3^3-4^2=15正確
但是我擔心補這洞,破另一個洞
不知道還有沒有Bug
--
少年讀書，如隙中窺月；
中年讀書，如庭中望月；
老年讀書，如臺上玩月。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.141.159.236