作者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