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
大家幫幫忙了 關於古詩的,古詩問題,大家幫幫忙
春 1 天街小雨潤如酥,草色遙看近卻無。韓愈 早春呈水部張十八員外 2 碧玉妝成一樹高,萬條垂下綠絲絛。賀知章 詠柳 3 留連戲蝶時時舞,自在姣鶯恰恰啼。杜甫 江畔獨步尋花七絕句 4 沾衣欲溼杏花雨,吹面不寒楊柳風。志南 絕句 5 兩個黃鸝鳴翠柳,一行白鷺上青天。杜甫 絕句 6 西塞山前白鷺飛,桃花...
關於眼睛,大家幫幫忙,關於眼睛,大家幫幫忙。。。
雅非 翼 當然不對,弱視本身是一個發育型的眼病,也就是說在小孩出生以後,遇到了一些特殊的情況,最後就出現了弱視,並不是出生就弱視,比如講出生以後,小孩有中度或高度的遠視或者散光,或者是高度的,600度以上的近視,遠視是300度以上的遠視,這樣的小孩容易引起弱視,如果小孩一隻眼視覺發生偏斜也就是我們說...
大家幫幫忙啊 matlab問題!
這樣就可以了。for v 1 100 belta j end括號 在matlab有特殊用途,指cell矩陣。關於matlab的fgetl的問題,急求大家幫忙啊 問題是你開啟檔案根本就沒成功。對於檔案操作,不判斷開啟檔案是否成功就進行後續操作,是很不好的習慣。你前面的三行 寫的莫名其妙,filenam...