Split 帮忙一下高手

来源：百度知道 编辑：UC知道 时间：2024/06/17 02:05:00
Split
在文本输入2，2，3，6这样的文字 按扭后出现在 label中出现这四个数的平均数 应该怎么做？？

在窗体上建立一个command 一个text .text里的数字用英文的逗号","隔开

Private Sub Command1_Click()
Dim str() As String, he As Integer
str = Split(Text1.Text, ",")
For i = 0 To UBound(str)
he = he + Val(str(i))
Next i
Print "这些数的和是;" & he
Print "这些数的平均是是:" & he / (UBound(str) + 1)
End Sub