作者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)