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次方)
不知道你需要什么，只好把常用的运算都列出来。有不懂的补充。