Vb中如何把一个textbox输入的数字不断相加到另一个textbox中?
答案:2 悬赏:30 手机版
解决时间 2021-12-17 15:46
- 提问者网友：热情烫伤自己
- 2021-12-16 16:08
Vb中如何把一个textbox输入的数字不断相加到另一个textbox中?
最佳答案
- 五星知识达人网友：野性不改
- 2021-12-16 16:19
Option Explicit
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim Mark As Boolean
If KeyCode = vbKeyReturn Then
If Right(Text2.Text, 1) <> "+" Or Right(Text2.Text, 1) <> "-" Then
If Len(Text2.Text) = 0 Then
Text2.Text = Text2.Text & Val(Text1.Text)
Else
If Val(Text1.Text) >= 0 Then
Text2.Text = Text2.Text & "+" & Val(Text1.Text)
Else
Text2.Text = Text2.Text & Val(Text1.Text)
End If
End If
End If
Text1.Text = ""
End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim Mark As Boolean
If KeyCode = vbKeyReturn Then
If Right(Text2.Text, 1) <> "+" Or Right(Text2.Text, 1) <> "-" Then
If Len(Text2.Text) = 0 Then
Text2.Text = Text2.Text & Val(Text1.Text)
Else
If Val(Text1.Text) >= 0 Then
Text2.Text = Text2.Text & "+" & Val(Text1.Text)
Else
Text2.Text = Text2.Text & Val(Text1.Text)
End If
End If
End If
Text1.Text = ""
End If
End Sub
全部回答
- 1楼网友：米粥好甜
- 2021-12-16 16:52
1、按空格分隔（split或者正则表达式等）得出字符数组
2、integer.tryparse()如果为真，则是数字，累加数字
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯