1樓:匿名使用者
private sub command1_click()
select case text4.text
case "+"
label2.caption = val(text1.text+text2.text)
case "-"
label2.caption = val(text1.text-text2.text)
case "*"
label2.caption = val(text1.text*text2.text)
case "/ "
label2.caption = val(text1.text/text2.text)
if text4.text = "/" and text2.text = "0" then
msgbox "除數不能為零。divisor cannot be zero." ,,"錯誤"
end if
case esle
label2.caption = "符號錯誤。the sign was false."
end select
end sub
'這樣才是對的 儘量簡化就簡化!
2樓:匿名使用者
msgbox = "除數不能為零。divisor cannot be zero."=不要
3樓:匿名使用者
改成這樣label2.caption = "" + val(text1.text) + val(text2.text)
試試!!
Matlab程式設計問題,matlab程式設計問題
挺簡單的,自己做,上道題動 不給採納,自己想想,簡單的積分問題 matlab 程式設計問題 26 題1 基本運算 a 22 33 4 1 3 31 54 2 32 b 1 4 3 3 2 3 3 1 8 a 6 b ans 28 57 14 19 15 49 36 8 80 a b eye 3,3 ...
vb程式設計問題,VB程式設計問題
設 text1 text2 text3 text4 command1 label1 4個test輸入資料 command1是按鈕 label1顯示內容 我給你寫一個子程式 其它你在工具欄向視窗託就行了,然後把這個子程式複製到 做就ok了 private command1 click dim maxa...
簡單的程式設計問題,一個簡單的程式設計問題
newstr i str 50 i 改成newstr i str 49 i 試試你說的結果很正常,因為你的字串長度預設為50,所以如果你輸入字串不到50個字元,那麼用你的方法反轉後,前面的都是系統自動填充的剩餘的字元,是什麼誰都不知道,就顯示出亂碼了。這種情況你應該先求出輸入字串的長度,然後用它控制...