Visual_Basic 板


LINE

不好意思,再问程式码部分 ※ 引述《fumizuki (小狮子)》之铭言: : ※ 引述《fumizuki (小狮子)》之铭言: : : 是打算输入运算式後按enter再算出值? : : 还是像一般计算机一样按下了加减乘除等於就会算出值? : 哇哈!这种运算式真不好写...好不容易才试了出来... : 用递回法写的,写了一长串,看起来颇复杂的...~.~ : Private Sub Command1_Click(Index As Integer) : Text1.Text = Text1.Text & Index : End Sub : Private Sub Command2_Click(Index As Integer) : Text1.Text = Text1.Text & Command2(Index).Caption : End Sub : Private Sub Command3_Click() : Label1.Caption = Eval(Text1.Text) : End Sub : Function Eval(s As String) 方程式名:Eval ? 方程式参数s设为字串? : Dim p As Integer, op1 As String, op2 As String, o As String : Static c As Integer: c = c + 1 : If c = 1 Then s = Replace(s, " ", "") 请问上面这段,c的作用是? : p = InStr(s, "+") : If p > 0 Then GoSub SplitProc: Eval = Eval(op1) + Eval(op2): GoTo EndProc 我猜的意思是: If p > 0 -->如果有+号的话,然後执行SplitProc,不过後面就不知道为什麽 : If s Like "-*" Then p = 2 Else p = 1 我猜的意思是: 如果字串s里面是-号後面是一串字元的话,然後後面还是看不懂 : p = InStr(p, s, "-") : If p > 0 Then 如果有减号的话,然後 : op1 = Mid(s, p - 1, 1) op1=字串中,减号的前一个字元 : If op1 = "+" Then 这边看不懂,为什麽op1刚刚代表减号,现在为什麽代表加号 : p = p - 1: GoSub SplitProc: Eval = Eval(op1) + Eval(op2): GoTo EndProc p = p-1 ==>看不懂,後面也看不懂 : 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 : Else : GoSub SplitProc: Eval = Eval(op1) + Eval("-" & op2): GoTo EndProc : End If : End If : p = InStr(s, "*") : If p > 0 Then GoSub SplitProc: Eval = Eval(op1) * Eval(op2): GoTo EndProc 如果字串中有*号,..... : p = InStr(s, "/") : If p > 0 Then GoSub SplitProc: Eval = Eval(op1) / Eval(op2): GoTo EndProc 如果字串中有/号.... : Eval = Val(s) 这里传回的模式也看不懂 : EndProc: : c = c - 1: Exit Function c = c - 1的作用是? : SplitProc: : op1 = Left(s, p - 1): op2 = Mid(s, p + 1): Return 将字串拆成2份(以p的位置为分界点) 第1份是p的左边 第2份是p的右边 : End Function -- 少年读书,如隙中窥月; 中年读书,如庭中望月; 老年读书,如台上玩月。 --



※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.162.90.149







like.gif 您可能会有兴趣的文章
icon.png[问题/行为] 猫晚上进房间会不会有憋尿问题
icon.pngRe: [闲聊] 选了错误的女孩成为魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一张
icon.png[心得] EMS高领长版毛衣.墨小楼MC1002
icon.png[分享] 丹龙隔热纸GE55+33+22
icon.png[问题] 清洗洗衣机
icon.png[寻物] 窗台下的空间
icon.png[闲聊] 双极の女神1 木魔爵
icon.png[售车] 新竹 1997 march 1297cc 白色 四门
icon.png[讨论] 能从照片感受到摄影者心情吗
icon.png[狂贺] 贺贺贺贺 贺!岛村卯月!总选举NO.1
icon.png[难过] 羡慕白皮肤的女生
icon.png阅读文章
icon.png[黑特]
icon.png[问题] SBK S1安装於安全帽位置
icon.png[分享] 旧woo100绝版开箱!!
icon.pngRe: [无言] 关於小包卫生纸
icon.png[开箱] E5-2683V3 RX480Strix 快睿C1 简单测试
icon.png[心得] 苍の海贼龙 地狱 执行者16PT
icon.png[售车] 1999年Virage iO 1.8EXi
icon.png[心得] 挑战33 LV10 狮子座pt solo
icon.png[闲聊] 手把手教你不被桶之新手主购教学
icon.png[分享] Civic Type R 量产版官方照无预警流出
icon.png[售车] Golf 4 2.0 银色 自排
icon.png[出售] Graco提篮汽座(有底座)2000元诚可议
icon.png[问题] 请问补牙材质掉了还能再补吗?(台中半年内
icon.png[问题] 44th 单曲 生写竟然都给重复的啊啊!
icon.png[心得] 华南红卡/icash 核卡
icon.png[问题] 拔牙矫正这样正常吗
icon.png[赠送] 老莫高业 初业 102年版
icon.png[情报] 三大行动支付 本季掀战火
icon.png[宝宝] 博客来Amos水蜡笔5/1特价五折
icon.pngRe: [心得] 新鲜人一些面试分享
icon.png[心得] 苍の海贼龙 地狱 麒麟25PT
icon.pngRe: [闲聊] (君の名は。雷慎入) 君名二创漫画翻译
icon.pngRe: [闲聊] OGN中场影片:失踪人口局 (英文字幕)
icon.png[问题] 台湾大哥大4G讯号差
icon.png[出售] [全国]全新千寻侘草LED灯, 水草

请输入看板名称,例如:Tech_Job站内搜寻

TOP