滿意答案

418_毛

2017.11.29

采納率：54%????等級：13

已幫助：40475人

代碼如下

'已增加操作數正確性驗證及 除數不能為0驗證

Private Sub Command1_Click()

If IsNumeric(Text1.Text) And Text1.Text <> "" And IsNumeric(Text2.Text) And Text2.Text <> "" Then

Select Case Combo1.ListIndex

Case 0

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

Case 1

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

Case 2

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

Case 3

If Val(Text1.Text) <> 0 Then

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

Else

MsgBox "除數不能為0", , "錯誤"

End If

End Select

Else

MsgBox "請輸入操作數", , "錯誤"

End If

End Sub

Private Sub Form_Load()

Combo1.AddItem "+"

Combo1.AddItem "-"

Combo1.AddItem "*"

Combo1.AddItem "/"

Combo1.ListIndex = 0

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Command1.Caption = "計算"

End Sub

01分享舉報

總結

以上是生活随笔為你收集整理的加减乘除html代码vb,VB做加减乘除的代码是什么啊？ 或者是怎么做加减乘除 ？...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。