正文
包含vb.net实现两数相加的词条
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
VB怎么实现字符串相加
这个问题用vb.net比较简单.......
在text1里输入12
85
74
69
73
91
65
在text2里输入第一个数+第二个数
vb.net实现两数相加我这个方法vb.net实现两数相加的前提是vb.net实现两数相加:
text1里的每个数必需由空格分隔
text2里的文本要用+分隔
----------------------------------------------------------
dim
t1()
as
string
dim
t2()
as
string
dim
t1l,
i
as
integer
dim
temp
dim
r
as
integer,
rs
as
string
'用split函数分隔用户的输入
t1
=
split(text1.text,
"
")
t2
=
split(text2.text,
"+")
'获取数组t1中一共有几个元素
for
each
temp
in
t1
t1l
=
t1l
+
1
next
'直接开始相加
for
each
temp
in
t2
r
=
r
+
t1(i)
rs
=
rs
t1(i)
"+"
i
=
i
+
1
next
'显示结果
rs
=
left(rs,
len(rs)
-
1)
rs
=
rs
"="
r
text3.text
=
rs
----------------------------------------------------------
代码就是这样vb.net实现两数相加,缺点就是不是说在text2中输入第一个数+第二个数才可以加vb.net实现两数相加,输入a+b也可以加
vb.net只使用一个textbox实现两数相加
Private Sub cmdand_Click()
txtlabel.Text = "加"
End Sub
Private Sub Cmdchange_Click()
If txtlabel.Text = "" Then
txtfirst.Text = -1 * Val(txtfirst.Text)
Else
txtsecond.Text = -1 * Val(txtsecond.Text)
End If
End Sub
Private Sub cmddouble_Click()
txtlabel.Text = "乘"
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdhit_Click()
txtlabel.Text = "减"
End Sub
Private Sub cmdmod_Click()
txtlabel.Text = "除"
End Sub
Private Sub cmdresult_Click()
Dim myresult As Double
Select Case txtlabel.Text
Case "加"
myresult = Val(txtfirst.Text) + Val(txtsecond.Text)
Case "减"
myresult = Val(txtfirst.Text - txtsecond.Text)
Case "乘"
myresult = Val(txtfirst.Text * txtsecond.Text)
Case "除"
myresult = Val(txtfirst.Text / txtsecond.Text)
End Select
txtlabel.Text = ""
txtsecond.Text = ""
txtfirst.Text = myresult
txtresult.Text = myresult
End Sub
Private Sub Cmd0_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "0"
Else
txtsecond.Text = txtsecond.Text + "0"
End If
End Sub
Private Sub Cmd1_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "1"
Else
txtsecond.Text = txtsecond.Text + "1"
End If
End Sub
Private Sub Cmdclean_Click()
'txtresult.Text = "0"
'get txtresult.Text = Nothing
txtresult.Text = ""
txtsecond.Text = ""
txtlabel.Text = ""
txtfirst.Text = ""
txtresult.SetFocus
End Sub
Private Sub Cmd2_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "2"
Else
txtsecond.Text = txtsecond.Text + "2"
End If
End Sub
Private Sub Cmd3_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "3"
Else
txtsecond.Text = txtsecond.Text + "3"
End If
End Sub
Private Sub Cmd4_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "4"
Else
txtsecond.Text = txtsecond.Text + "4"
End If
End Sub
Private Sub Cmd5_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "5"
Else
txtsecond.Text = txtsecond.Text + "5"
End If
End Sub
Private Sub Cmd6_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "6"
Else
txtsecond.Text = txtsecond.Text + "6"
End If
End Sub
Private Sub Cmd7_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "7"
Else
txtsecond.Text = txtsecond.Text + "7"
End If
End Sub
Private Sub Cmd8_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "8"
Else
txtsecond.Text = txtsecond.Text + "8"
End If
End Sub
Private Sub Cmd9_Click()
If txtlabel.Text = "" Then
txtfirst.Text = txtfirst.Text + "9"
Else
txtsecond.Text = txtsecond.Text + "9"
End If
End Sub
Private Sub Form_Load()
txtfirst.Text = ""
txtlabel.Text = ""
txtsecond.Text = ""
End Sub
Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub m2_Click()
frmAbout.Show 1
End Sub
Private Sub txtfirst_Change()
txtresult.Text = txtfirst.Text
End Sub
Private Sub txtsecond_Change()
txtresult.Text = txtsecond.Text
End Sub
这个VB 6.0 的,你自己改下。。。
vb.net 如何让一个textbox中的数字相加
1、按空格分隔(Split或者正则表达式等)得出字符数组
2、Integer.TryParse()如果为真,则是数字,累加数字
关于vb.net实现两数相加和的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。