[.NET] 還是計算機 >"<

看板Visual_Basic作者finsky ( )時間20年前 (2005/11/29 03:25)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串1/2 (看更多)

這是小妹第一次寫計算機的程式邏輯應該有不足或是衝突的地方請指教因為根本都不會正確的執行 >"< 這次主要的是問題是假設我要求 10 + 2 在按下 + 之後 operand1 = 10 operator= + 但是按下 2 之後 operand1 = 0 與 operator = "" 為什麼會這樣呢？不懂下面那個地方觸發請大家幫我個忙謝謝指點 '按數字鍵串接鍵入的數字 sub getnum(sender as object, e as eventargs) txt_sum.text =(CInt(txt_sum.text & sender.text) ).toString end sub '按下 + - * / 記錄前面鍵入的數值 sub savestage(sender as object, e as eventargs) if operator="" then operand1=Val(txt_sum.text) else operand2=Val(txt_sum.text) compute() end if operator=sender.text txt_sum.text="" end sub '計算 sub compute() Select case operator case "+" cmpt = operand1 + operand2 operand1=cmpt case "-" cmpt = operand1 - operand2 operand1=cmpt case "*" cmpt = operand1 * operand2 operand1=cmpt case "/" On Error Resume Next cmpt = operand1 / operand2 if err.number <> 0 then txt_sum.text=err.Description else txt_sum.text=cmpt.toString operand1=cmpt end if end Select End Sub '按下 = Sub Ans(sender as object, e as eventargs) operand2=Val(txt_sum.text) compute() txt_sum.text=cmpt.toString end Sub ' 按下 CLS Sub Cls(sender5 as object, e as eventargs) operator="" operand1=0 operand2=0 txt_sum.text="" end Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.63.100.150 ※ 編輯: finsky 來自: 61.63.100.150 (11/29 03:52)