PTT數位生活區 / Visual_Basic

Re: [VB6 ] 計算機

看板Visual_Basic作者 (昨日之死)時間19年前 (2005/06/10 23:11), 編輯推噓0(0推 0噓 0→)
留言0則, 0人參與, 最新討論串22/51 (看更多)
※ 引述《fumizuki (小獅子)》之銘言： : p = InStr(s, "+") : If p > 0 Then GoSub SplitProc: Eval = Eval(op1) + Eval(op2): GoTo EndProc : If s Like "-*" Then p = 2 Else p = 1 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 如果s字串前面有負號,則下面S字串由第2個找起,否則由第1個找起? 如果是的話下面 Else GoSub SplitProc: Eval = Eval(op1) + Eval("-" & op2): GoTo EndProc 這個的作用好像有重複 因為我把他拿掉測試似乎沒影響 : p = InStr(p, s, "-") : If p > 0 Then : op1 = Mid(s, p - 1, 1) ^^^ : If op1 = "+" Then ^^^ : p = p - 1: GoSub SplitProc: Eval = Eval(op1) + Eval(op2): GoTo EndProc : ElseIf op1 = "-" Then ^^^ : p = p - 1: GoSub SplitProc: Eval = Eval(op1) - Eval(op2): GoTo EndProc : ElseIf op1 = "-" Then ^^^ : p = p - 1: GoSub SplitProc: Eval = Eval(op1) - Eval(op2): GoTo EndProc : ElseIf op1 = "*" Then ^^^ : p = p - 1: GoSub SplitProc: Eval = Eval(op1) * Eval(op2): GoTo EndProc : ElseIf op1 = "/" Then ^^^ : p = p - 1: GoSub SplitProc: Eval = Eval(op1) / Eval(op2): GoTo EndProc 這5個地方的op1是不是可以用其他符號取代, 我測試過應該是沒問題 想問一下是不是真的像我想的那樣 -- 少年讀書，如隙中窺月； 中年讀書，如庭中望月； 老年讀書，如臺上玩月。 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.162.90.149 ※ 編輯: TrueFeeling 來自: 218.162.90.149 (06/11 03:37)
‣ 更多 TrueFeeling 的文章
文章代碼(AID): #12gQscHy (Visual_Basic)
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 22 之 51 篇)：
排序： 最舊先 | 最新先 | 留言數
10
19
[VB6 ] 計算機
TrueFeeling
19年前, 06/09
2
3
Re: [VB6 ] 計算機
fumizuki
19年前, 06/09
在新視窗開啟完整討論串 (共51篇)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 TrueFeeling 的文章
文章代碼(AID): #12gQscHy (Visual_Basic)