Re: [VB6 ] 計算機

看板Visual_Basic作者TrueFeeling (昨日之死)時間19年前 (2005/06/11 16:42)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串32/51 (看更多)

※ 引述《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