vb加法代碼

㈠ vb加法計算代碼

PrivateSub Command1_Click()Dim a As Integer,b As

Integera=Val(Text1.Text)b=Val(Text2.Text)Text3.Text=a+bEnd Sub在這段VB程序中，「a=Val(Text1.Text)b=Val(Text2.Text)」是加法的代碼。

代碼如下：

PrivateSub Command1_Click()

Label2.Caption = Val(Text1.Text) + Val(Text2.Text)

End Sub

PrivateSub Command2_Click()

Text1.Text = "": Text2.Text = "": Label2.Caption = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

(1)vb加法代碼擴展閱讀

OptionExplicit

PrivateSubCombo1_Change()

EndSub

PrivateSubCommand1_Click()

IfIsNumeric(Text1.Text)AndIsNumeric(Text2.Text)Then

SelectCaseCombo1.Text

Case"+"

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

Case"-"

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

Case"×"

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

Case"÷"

IfCLng(Text2.Text)<>0ThenText3.Text=CLng(Text1.Text)/CLng(Text2.Text)ElseMsgBox"出數不能為0",vbOKOnly,"提示"

CaseElse

MsgBox"請選擇運孫擾算方式",vbOKOnly,"提示則茄旦"

EndSelect

Else

MsgBox"請輸入數字",vbOKOnly,"提示"

EndIf

EndSub

PrivateSubForm_Load()

Combo1.AddItem"+"

Combo1.AddItem"-"

Combo1.AddItem"×"

Combo1.AddItem"÷"

EndSub

參考納姿資料：網路 加法 （匯編源程序用語）

㈡ VB簡單的計算機製作加法程序代碼

dim
a
,b,s
a=val(inputbox("請輸入一個數字"))
b=val(inputbox("請輸入另一個數字"))
if
b<>0
then
msgbox
a
&
"+"
&
b
&
"="
&
a+b
&vbcrlf
& a
&
"-"
&
b
&
"="
&
a-b
&vbcrlf
& a
&
"*"
&
b
&
"="
&
a*b
&vbcrlf
& a
&
"/"
&
b
&
"="
&
a/b
&vbcrlf
else
msgbox
a
&
"+"
&
b
&
"="
&
a+b
&vbcrlf
& a
&
"-"
&
b
&
"="
&
a-b
&vbcrlf
& a
&
"*"
&
b
&
"="
&
a*b
&vbcrlf
& "除數為0,無法計專算除法運屬算"
end
if

㈢ 求VB 加法自動計算代碼

很簡單，你在VB中、增加3個TEXT組件
分別為text1、text2、text3
並增加以下代碼：
Private
Sub
Text1_Change()
Text3
=
Val(Text1)
+
Val(Text2)
End
Sub
Private
Sub
Text2_Change()
Text3
=
Val(Text1)
+
Val(Text2)
End
Sub
OK了
你在回text1或text2中輸入數字後答
結果自動計算並在TEXT3中顯示。

㈣ vb中相加的怎麼做

Text3.Text = Text1.Text + Text2.Text 是字元串相加，結果就是把兩個字元串連起來。正確應該是Text3.Text = val(Text1.Text) +val(Text2.Text)注意：+運算在VB中有兩種定義褲缺，一個是正胡洞辯常的加法，一個是字元串相連。VB會自動根據情況選擇，Text3.Text 是字元串，因此VB自動選擇第二種定義來算。但-和*運算只有一顫穗種定義，那就是數字相差和相乘，因此VB會自動把Text3.Text 轉換成數字運行運算。

㈤ 一個加減乘除及平方根的VB程序的代碼是多少呀

加法：a=b+c
減法：a=b-c
乘法：a=b*c
除法：a=b/c
整除：a=b\c(除法結果為浮點數，就是通常的小數，整除只留回整數部分)
取余：答a=b
mod
c(結果為b除以c的余數)
平發根：a=sqr(b)
乘方：a=b^c(b的c次方)
不知道你需要什麼，只好把常用的運算都列出來。有不懂的補充。