作者TrueFeeling (昨日之死)
看板Visual_Basic
標題Re: [VB6 ] 計算機
時間Fri Jun 10 23:14:00 2005
※ 引述《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)