下面實現字串表示式
計算**由筆者收藏的本論壇**改編,記不清是哪位網友提供的了,非常感謝。
option explicit
private declare function ebexecuteline lib "vba6.dll" (byval pstringtoexec as long, byval unknownn1 as long, byval unknownn2 as long, byval fcheckonly as long) as long
private function executeline(scode as string, optional fcheckonly as boolean) as boolean
executeline = ebexecuteline(strptr(scode), 0&, 0&, abs(fcheckonly)) = 0
end function
sub calc(byval x as string)
dim result
executeline "dim x as double"
executeline "x= " & x
executeline "clipboard.settext x"
result = clipboard.gettext
msgbox x & "=" & result
set result = nothing
end sub
private sub command1_click()
calc text1
end sub
private sub form_load()
text1.text = "1+2*3-4/5"
end sub
利用棧實現字串表示式計算
棧的基本機構 1 棧典型的結構,先進者後出,後進者先出,從操作特性上來看,棧是一種 操作受限 的線性表,只允許在一端插入和刪除資料。2 用陣列實現的棧叫做順序棧,用鍊錶實現的棧,我們叫做鏈式棧 棧的簡單實現 基於陣列實現的順序棧 public class arraystack else if ch ...
Java解析字串表示式 逆波蘭表示式的計算
問題來由 讀入乙個字串形式的四則運算表示式,輸出對應的計算結果。如讀入的是 6 5 2 3 8 3 那麼解析後的輸出結果應為288。思路 一般的計算過程是這樣的,首先計算優先順序最高的小括號裡面的內容,即 5 2 3 8 3 將 2 3 的計算結果並存為a,接著用計算 a 8 並存為b 計算 5 b...
java解析字串表示式 逆波蘭表示式的計算
上回合我們講了如何將中綴表示式轉換成逆波蘭表示式,這回合我們講一講如何計算逆波蘭表示式。結合這一回合和上一回合,我們將能夠實現這樣乙個功能 計算乙個中綴表示式的結果!話不多說,走起來!讀入乙個字串形式的四則運算表示式,輸出對應的計算結果。如讀入的是 6 5 2 3 8 3 那麼解析後的輸出結果應為2...