1樓：匿名使用者
24點還有括號吧，下面這個能解決。
public function mycalc(byval expression as string) as string
dim calc as object
set calc = createobject("msscriptcontrol.scriptcontrol")
calc.language = "vbscript"
on error goto calcerrmycalc = calc.eval(expression)exit function
calcerr:
mycalc = err.descriptionend function
private sub command1_click()msgbox mycalc(text1)
end sub
可以在text1中填寫(2+3)*5-1測試下當然，最好還是自己寫字尾表示式轉換：http://blog.
2樓：沙慧月
private sub command1_click()
select case text1
case is = "+"
label3.caption = val(label1.caption) + val(label2.caption)
case is = "-"
label3.caption = val(label1.caption) - val(label2.caption)
case is = "*"
label3.caption = val(label1.caption) * val(label2.caption)
case is = "/"
label3.caption = val(label1.caption) / val(label2.caption)
end select
end sub
大家幫幫忙啊,很急的啊，大家幫幫忙啊 很急 拜託 20
老大應 從前有個人見人家的小姑娘，戴著祖母送給她的一頂紅色天鵝絨的帽子，於是大家就叫她小紅帽。有一天，母親叫她給祖母送食物，並囑咐她不要離開大路，走得太遠。小紅帽在森林中遇見了狼，她從未見過狼，也不知道狼性殘忍，於是把來森林中的目的告訴了狼。狼知道後誘騙小紅帽去採野花，自己跑到林中小屋去把小紅帽的祖...
有很急的問題，請大家幫幫忙！謝謝
你好，工傷保險條例 對工傷的界定是這樣的 第十四條 職工有下列情形之一的，應當認定為工傷 一 在工作時間和工作場所內，因工作原因受到事故傷害的 二 工作時間前後在工作場所內，從事與工作有關的預備性或者收尾性工作受到事故傷害的 三 在工作時間和工作場所內，因履行工作職責受到暴力等意外傷害的 四 患職業...
大家幫幫忙啊急， 大家幫幫忙啊
最好使用一個熱水帶或熱水瓶也可以，置於胃部，很有效。注意不要燙傷！大家幫幫忙啊 聊qq啊，慢慢熟悉起來 朋友 有個辦法 你看好一個女孩後 想她問表 第一 可以和她認識 第二 可以知道 時間 呵呵 開玩笑的 慢慢 來 回有機會的 可以寫信啊 雖然很土，不過很有用的，先從做朋友開始吧 這有什麼呀，想認識...