用VB怎么把输入的数值相加起来，代码哦
那如果在前面再加一个条件，如果输入的型号（数字来的）相同，那么就将同种型号的数量相加起来，在文本框里显示（型号+数量总数形式），分行在文本框里显示 展开
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
程序运行后的效果如下：
已赞过
已踩过<
如果text1.text的值为：2 对应的text2.text的值为：整数
——————————：3 ———————————：长整数
——————————：4 ———————————：单精度浮点数
——————————：5 ———————————：双精度浮点数
——————————：6 ———————————：货币值
——————————：7 ———————————：日期
——————————：8 ———————————：字符串
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
