用VB怎么把输入的数值相加起来，代码哦

在VB中，我怎么样才可以将自己输入的数值加起来呢？~

友情提示：val()不能识别逗号和货币符号，如果出现类似情况而且不追求没有小数位的话那么考虑改用int()吧
另外，下面的例子我成功运行了的啊
Private Sub Form_Load()
Text5.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text)
End Sub
没什么问题的啊不知道LZ运行的哪里错误了？

赋值给一个变量：
dim i as long '定义i为一个长整数
Private sub text1_change()'如果TEXT1的数值改变，那么把i的值改为text1的只
i=text1.text
end sub

个输入框的值分别相加：（这里就假如有5个）

Private siub command1_click()
Msgbox "得出的和:" & text1.text + text2.text + text3.text + text4.text + text5.text ,0,"得出的和"
end sub

1、首先开始编写代码，定义变量，如下图所示。

2、这是一个累加程序，所以会用到相关的累加语句,此题使用For-Next循环语句。具体编写如下图所示。

3、不仅仅需要一个For-Next循环语句，还需要在里面嵌套一个For-Next循环语句。

4、最后将剩下的代码补齐，编写完整的代码如下图所示。

5、然后运行程序，输入一个值检验一下。如果n为8，则1！+2!+3!+4!.......+8!=46233，就完成了。

代码如下：

Sub Main()

System.Console.WriteLine("欢迎云金杞来到VB.NET的世界")

Dim first, second, result As Integer

System.Console.WriteLine("请输入first的数字")

first = Console.ReadLine

System.Console.WriteLine("请输入second的数字")

second = Console.ReadLine

result = first + second

Console.WriteLine("两个数字的和")

Console.WriteLine(result)

End Sub

如上代码，主要是两个函数：

console.write()

console.read()

扩展资料

Console.WriteLine()函数输出格式详解

格式项都采用如下形式：

{index[,alignment][:formatString]}

其中"index"指索引占位符，这个肯定都知道；

",alignment"按字面意思显然是对齐方式,以","为标记；

":formatString"就是对输出格式的限定，以":"为标记。

alignment:可选，是一个带符号的整数，指示首选的格式化字段宽度。如果“对齐”值小于格式化字符串的长度，“对齐”会被忽略，并且使用格式化字符串的长度作为字段宽度。

如果“对齐”为正数，字段的格式化数据为右对齐；如果“对齐”为负数，字段的格式化数据为左对齐。如果需要填充，则使用空白。如果指定“对齐”，就需要使用逗号。

1，先定义一个全局变量，如：

Dim s as long

2，然后将输入的数值加到全局变量里，得到相加后的值：

s = s + Format(Text1, 0) '添加输入框Text1里的值

3，最后显示出来，代码如下：

Dim s As Long '定义全局变量
Private Sub Command1_Click()
If IsNumeric(Trim(Text1)) = flase Then Text1 = "": Exit Sub '如果不是数字不处理
s = s + Format(Text1, 0) '累加
Label1 = Format(s, "0") '显示相加的值
End Sub
Private Sub Form_Load() '初始化
Command1.Caption = "累加"
Label1 = ""
Text1 = ""
s = 0
End Sub

程序运行后的效果如下：

.text)
如果text1.text的值为：2 对应的text2.text的值为：整数
——————————：3 ———————————：长整数
——————————：4 ———————————：单精度浮点数
——————————：5 ———————————：双精度浮点数
——————————：6 ———————————：货币值
——————————：7 ———————————：日期
——————————：8 ———————————：字符串

Dim i As Integer

Private Sub Command1_Click()
Dim j As Integer
j = Val(Text1.Text)
i = i + j
Label1.Caption = Str(i)
End Sub

那我还想问一下，如果我在前面再加上一个输入框A，当输入框A输入的数字（型号）是一样的时候，输入框B（数值）的数字就跟上一个相加，然后再文本框显示出来（型号+总数的显示形式）。如果输入不同的型号，那么就在文本框的第二行显示出来。这样要怎么设计呢？
Dim i As Long
Dim Model As String

Private Sub Command1_Click()
Dim j As Long
Dim s As String

s = Text2.Text
If s = Model Then
j = Val(Text1.Text)
i = i + j
Label1.Caption = Model & ":" & Str(i)
Else
Model = s
Label2.Caption = Model & ":" & Str(i)
End If
End Sub

---

用VB怎么把输入的数值相加起来，代码哦视频