Re: [VB6 ] 計算機
※ 引述《TrueFeeling (昨日之死)》之銘言:
: ※ 引述《fumizuki (小獅子)》之銘言:
: : 數值是 0 1 2 3 4 5 6 7 8 9 ,不含其它符號,更不包含空格等等..
: : 有加減乘除的都稱它為運算式
: 這我就不懂了,如果s只剩下數值的話,Eval應該不會再繼續分割下去才對
你問:什麼叫做「執行完成」
我說:只剩下數值的時候
當然不會再繼續分割下去呀@@...
: : Val() 並不是計算,是轉換,它只取前幾個字元,後面非數字的部份會捨棄。
: : 非數字的部份之後還就算還有數字,也照樣捨棄...
: : 你最後一個的輸出值抄錯了吧...
: : 輸出是 2,不可能是-13
: 現在我是的結果:
: 竟然又變成0了@@||
: 而且3種都是0
: 然後游標是一個"半形"的黑色長方體
: 怎麼會這樣?!
▍像這樣?
你按到 Insert 按鍵了...
...怎麼可能變成0...?
你式子一模一樣嗎
Val("2+3*7") = 2
沒有可能會不對啊...
你是不是按到什麼了...
: : 第一個字元是2,第二個字元不是數字,所以之後的通通捨棄,只剩下2...
: : 沒錯,在這裡 Eval 和 Val 的意思是相同的,
: : 不過 Val 會捨棄後方非數字的部份,Eval 不會做這個動作...
: : Eval 就是自訂的函數,用來做四則運算用的...
: : 什麼?
: : 最高是說優先等級最高,會最先被處理的呀...
: 嗯嗯,我們理解的應該都一樣,這應該只是表達的不同^^
: : 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 執行的次數等於 運算元的數量 + 運算子的數量
: : 上面有 8 個運算元 (1,2,3,4,5,6,7,8),和 7 個運算子 (都是+號)
: : 8 + 7 = 15
: : (其中-8是負數,-8 視為一個運算元)
: 嗯嗯,這邊我想錯了
: : 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的一開始,
: 原原本本的再跑一次
不是這樣的意思...
If p > 0 Then GoSub SplitProc: Eval = Eval(op1) + Eval(op2): GoTo EndProc
SplitProc:
op1 = Left(s, p - 1): op2 = Mid(s, p + 1): Return
的執行順序是
GoSub SplitProc
op1 = Left(s, p - 1)
op2 = Mid(s, p + 1)
Return
Eval = Eval(op1) + Eval(op2)
GoTo EndProc
Return 是回到原地,但是並不是重覆再執行已執行過的東西,
那樣子毫無意義,會變成無窮迴圈...
--
VB 程式設計 倉木麻衣 PTT 星爺板 行列輸入法
======================================================
Visual_Basic MaiKuraki Stephen Array
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.58.156.43
→
61.62.178.179 06/11, , 1F
61.62.178.179 06/11, 1F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章