VB做加減乘除的代碼是什麽？或者怎麽加減乘除？

添加了操作數正確性驗證和除數不能為0驗證。

私有子命令1_Click()

If IsNumeric(Text1。Text)和Text1。Text & lt& gt""和IsNumeric(Text2。文本)和文本2。Text & lt& gt”“那麽

選擇案例組合1。列表索引

案例0

短信3。Text = Val(Text1。Text) + Val(Text2。正文)

案例1

短信3。Text = Val(Text1。Text) - Val(Text2。正文)

案例2

短信3。Text = Val(Text1。文本)* Val(文本2。正文)

案例3

If Val(Text1。正文)& lt& gt那麽0

短信3。Text = Val(Text1。Text) / Val(Text2。正文)

其他

MsgBox“分隔符不能為0”，“錯誤”

如果…就會結束

結束選擇

其他

MsgBox“請輸入壹個操作數”，“錯誤”

如果…就會結束

末端接頭

私有子窗體_Load()

Combo1。AddItem "+"

Combo1。AddItem "-"

Combo1。AddItem "* "

Combo1。AddItem "/"

Combo1。ListIndex = 0

Text1。文本= " "

文本2。文本= " "

短信3。文本= " "

命令1。Caption = "計算"

末端接頭