作者TrueFeeling (昨日之死)
看板Visual_Basic
標題Re: [VB6 ] 計算機
時間Sat Jun 11 17:05:06 2005
※ 引述《fumizuki (小獅子)》之銘言:
: ※ 引述《TrueFeeling (昨日之死)》之銘言:
: : ^^^^^^^^^^^^^^^^^^^^^^^
: : 這邊的"s 只剩下數值"是什麼意思?
: 數值是 0 1 2 3 4 5 6 7 8 9 ,不含其它符號,更不包含空格等等..
: 有加減乘除的都稱它為運算式
這我就不懂了,如果s只剩下數值的話,Eval應該不會再繼續分割下去才對
: : 如果拿這個例子來分析的話:
: : Eval(2-3*5+7/5-9)=Eval(2-3*5)+Eval(7/5-9)
: : 2-3*5或7/5-9這樣算是數值嗎?
: : 還有就是我再即時運算視窗中:
: : ==
: : W="2-3*5"
: : X=Val(W)
: : Print X
: : -13
: : ==
: : 為什麼第3個明明W就是字串,Val()函數還可以計算阿?
: Val() 並不是計算,是轉換,它只取前幾個字元,後面非數字的部份會捨棄。
: 非數字的部份之後還就算還有數字,也照樣捨棄...
: 你最後一個的輸出值抄錯了吧...
: 輸出是 2,不可能是-13
現在我是的結果:
竟然又變成0了@@||
而且3種都是0
然後游標是一個"半形"的黑色長方體
怎麼會這樣?!
: 第一個字元是2,第二個字元不是數字,所以之後的通通捨棄,只剩下2...
: : 這邊有個問題:
: : 傳回數值的時候,
: : 例如Eval(2-3*5+7/5-9)=Eval(2-3*5)+Eval(7/5-9):
: : 假設到了算到了Eval(3)*Eval(5)的時候
: : 這時會變成Val(3)*Val(5),對嗎?
: : 然後Eval=Val()....Val()...Val()....對嗎
: 沒錯,在這裡 Eval 和 Val 的意思是相同的,
: 不過 Val 會捨棄後方非數字的部份,Eval 不會做這個動作...
: Eval 就是自訂的函數,用來做四則運算用的...
: : 嗯,這個我知道
: : 只是,不明白為什麼剛剛你在說明的時候,最高最低的意思
: 什麼?
: 最高是說優先等級最高,會最先被處理的呀...
嗯嗯,我們理解的應該都一樣,這應該只是表達的不同^^
: : ^^^^^^^^
: : 這邊的下一次意思是?
: : 我的想法是:
: : 如果這串字串有8個運算子
: 8個運算子的話...
: 1+2+3+4+5+6+7+-8
: 1: 1+2+3+4+5+6+7+-8
: 2: 1
: 3: 2+3+4+5+6+7+-8
: 4: 2
: 5: 3+4+5+6+7+-8
: 6: 3
: 7: 4+5+6+7+-8
: 8: 4
: 9: 5+6+7+-8
: 10:5
: 11:6+7+-8
: 12:6
: 13:7+-8
: 14:7
: 15:-8
: 共15次
: : 那麼Eval執行的次數會變成1+2*8次的樣子
: 等於說 Eval 執行的次數等於 運算元的數量 + 運算子的數量
: 上面有 8 個運算元 (1,2,3,4,5,6,7,8),和 7 個運算子 (都是+號)
: 8 + 7 = 15
: (其中-8是負數,-8 視為一個運算元)
嗯嗯,這邊我想錯了
: : 然後傳回
: : 這邊有個問題:
: : SplitProc裡面的Return是Return到哪裡?
: : 感覺像是c=c+1
: : Eval0=Eval1+Eval2然後c=c-1
: : c=c+1
: : 然後Eval1=Eval1a+Eval1b
: : 然後c=c-1
: : c=c+1
: : 然後Eval1=Eval2a+Eval2b
: : 然後c=c-1
: GoSub 和 Return 是互相配合的,有 Gosub 才有 Return
: 沒有 GoSub,使用 Return 是會發生錯誤的。
: Return 當然是回到 GoSub 的地方呀
以這段程式為例:
p = InStr(s, "+")
If p > 0 Then GoSub SplitProc: Eval = Eval(op1) + Eval(op2): GoTo EndProc
你的意思是說,執行到GoSub SplitProc的時候
它會跳到
SplitProc:
op1 = Left(s, p - 1): op2 = Mid(s, p + 1): Return
然後SplitProc跑完又會回到GoSub SplitProc
然後在跳到
SplitProc:
op1 = Left(s, p - 1): op2 = Mid(s, p + 1): Return
就這樣反覆循環,
然後最後才進入Eval = Eval(op1) + Eval(op2)然後GoTo EndProc嗎?
如果是這樣的話,
在GoSub Return的循環過程中
Eval並沒有被分割,沒有被定義成Eval = Eval(op1) + Eval(op2)
它只在這一小段的程式中跳過去在跳回來,
沒有跑到程式的其他部分,這樣的話我無法理解
我一直以為是GoSub SplitProc以後,配合著
SplitProc:
op1 = Left(s, p - 1): op2 = Mid(s, p + 1): Return
有了op1 = Left(s, p - 1): op2 = Mid(s, p + 1)其中op1,op2的定義之後,
繼續定義Eval = Eval(op1) + Eval(op2)得到新的Eval(即Eval(op1)和Eval(op2)),
然後再用新的Eval(即Eval(op1)和Eval(op2))重Function的一開始,
原原本本的再跑一次
: : 嗯嗯,(筆記筆記ing)^^
--
少年讀書,如隙中窺月;
中年讀書,如庭中望月;
老年讀書,如臺上玩月。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.141.159.236