最佳答案

请问，在你的TextBox1中输入的一串字符是什么格式的，要怎样计算这些字符的平均值？

例1：你在TextBox1中输入“12,34,56,78,101,333,425”，类似这种有分隔符的数字就比较好计算平均值。

例2：你在TextBox1中输入“ABCdefGHI789V”，类似这种只有数字和字母的，你要计算他们的ASCII码的平均值，我们也能计算。

举上面两个例子就是要说明：

如果你在文本框中输入乱七八糟的包含数字、字母、中英文、标点符号，而又不说明如何计算平均值，要得到怎样的平均值，谁能给你计算平均值啊，你是不是应该把问题描述清除后，我们才能给你回答啊。

那么，我暂且认为你的问题属于例1中的那种，那么如下代码可以给出平均值：

看到你用TextBox1，那么说明你用的是VB.Net而非VB6，所以，我也用VB.Net给你答案吧：

假如，当你输入一串字符后按下计算按钮（Button1），我就计算平均值的话：

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimS()AsString=Split(TextBox1.Text,",")
DimLAsInteger=LBound(S),UAsInteger=UBound(S),IAsInteger=0,SumAsLong=0
DimCountAsInteger=U-L+1,AvgAsDouble=0
ForI=LToU
Sum=Sum+Val(S(I))
Next
Avg=Sum/Count
TextBox2.Text=Trim$(Avg)
EndSub