vb 中text 里的数 怎么求和

3个文本框分别为text1,text2text3,标签为label1,命令按钮为command1,代码为：
Private
Sub
Command1_Click()
Label1Caption
=
Val(Text1Text)
+
Val(Text2Text)＋Val(Text3Text)
End
Sub
因为文本框的内容为字符型，所以要先转换为数值型，否则会进行字符串的连接。

dim a,b 'a 存储上线数字
textbox1text显示你的结果
for i=1 to a
b= b + i
next i
textbox1text=b

将文本框text1和文本框text2的数值相加，应该写完val(text1text)+val(text2text),而不是直接text1text+text2text。

由于在vb中，“+”号即可用来将两个字符相连，有可以用来将两个数相加，因为text中的内容默认为字符型，如果直接用“+”号是实现不了两个数的数值相加的，而是直接将两个数当字符相连起来了，所以，通常应将字符转换为数字在相加，也就是使用val()函数。

Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。
从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
主要优点：
1，简单易学。
2，开发速度快。
3，可读性很好。

Private Sub Form_Load()
Dim str1 As String, i As Long, a() As String, b() As Double, n As Long, s As Double
str1 = Trim(InputBox("输入数据"))
a = Split(str1, ",")
n = UBound(a) + 1 '数目
If n = 0 Then Exit Sub

ReDim b(n - 1)
For i = 0 To n - 1
b(i) = Val(a(i))
s = s + b(i) '求和
Next

MsgBox "和=" & s & " 平均=" & s / n
End Sub

代码如下：

Sub Form_Click()

a = InputBox(w输入第一个数"> a — Val(a)

b = InputBox(w输人第二个数") b = Val(b)

c = InputBox("输人第三个数 c = VaKc)

d = InputBox(w输人第四个数"） d = Val(d)

sum = a + b+ c + d aver = sum / 4

扩展资料：

另外一种方法：

Private Sub Form_Click()

Dim a As Single

For i = 1 To 4

a = InputBox("请输入一个数：", "数据输入")

Sum = Sum + a

n = n + 1

Avg = Sum / n

Next i

Print "和是：", Sum

Print "平均值是：", Avg

End Sub

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

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

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

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

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

Private Sub Command1_Click()
Dim a(1 To 10) As Double
Dim i As Integer
Dim max As Integer
Dim min As Integer
Dim s As Integer
i = 1
While i <= 10
a(i) = InputBox("输入数字")
i = i + 1
Wend
For i = 1 To 10
s = s + a(i)
Print a(i);
Next i
Print "和是：" & s
Print "平均值是：" & s / 10
max = a(1)
min = a(1)
For i = 1 To 10
If a(i) > max Then
max = a(i)
End If
If a(i) < min Then
min = a(i)
End If
Next i
Print "最大是:" & max
Print "最小是:" & min
End Sub

---