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