作者TrueFeeling (昨日之死)
看板Visual_Basic
标题Re: [VB6 ] 计算机
时间Sun Jun 12 15:17:02 2005
※ 引述《fumizuki (小狮子)》之铭言：
: '指数运算
: o = "^": GoSub SearchProc
指数前面应该不会有人打+-*/号吧???
: If p > 0 Then
: GoSub SplitProc
: If op1 Like "-*" Then
: Eval = -Eval(Mid(op1, 2)) ^ Eval(op2)
: Else
: Eval = Eval(op1) ^ Eval(op2)
: End If
: GoTo EndProc
: End If
: Eval = Val(s)
: EndProc:
: c = c - 1: Exit Function
: SearchProc:
: p = Len(s) + 1
: Do
: p = InStrRev(s, o, p - 1)
: If p <= 1 Then
: f = 0 '首字忽略；找不到则离开回圈
: Else
: a = Mid(s, p - 1, 1)
: If a = "+" Or a = "-" Or a = "*" Or a = "/" Or a = "^" Then
: f = 1
: Else
: f = 0
: End If
: End If
: Loop While f = 1
: If p = 1 Then p = 0
: Return
: a = Mid(s, p - 1, 1)
: If a = "+" Or a = "-" Or a = "*" Or a = "/" Or a = "^" Then
: f = 1
: Else
: f = 0
: End If
: End If
: Loop While f = 1
: If p = 1 Then p = 0
: Return
--
少年读书，如隙中窥月；
中年读书，如庭中望月；
老年读书，如台上玩月。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.141.158.129
1F：推 fumizuki:的确是不会 210.58.156.43 06/12
2F：推 fumizuki:修掉了... 210.58.156.43 06/12
3F：推 TrueFeeling:修在哪里220.141.158.129 06/12
4F：推 fumizuki:在SearchProc里 多一行 210.58.156.43 06/12
5F：推 TrueFeeling:如果把: GoSub SearchProc删掉是不是也可以220.141.158.129 06/12
6F：推 fumizuki:不行 210.58.156.43 06/12
7F：推 TrueFeeling:对吼,还有p220.141.158.129 06/12