怎样用vb编程计算从键盘上输入任意个数,求其总和、平均值

新建工程,1个文本框和1个按钮
text1用来录入数据, 因为是任意个数,用很多文本框是不方便的,程序设计是使用","来分隔数字,你可以输入任意多个数字,然后按钮command1后,就可以显示总和及平均值.

Private Sub Command1_Click()
If Len(Text1) = 0 Then Exit Sub
If InStr(Text1, ",") < 2 Then Exit Sub

Dim a, sumn%, i%, j%
a = Split(Text1, ",")

For i = 0 To UBound(a)
If IsNumeric(Val(a(i))) Then '防止有非数字的情况发生,做一下校验
sumn = sumn + Val(a(i))
j = j + 1
End If
Next

Print "总和为:" & sumn
Print "平均数为:" & sumn / (UBound(a) + 1)
End Sub

求和的按钮单击事件
dim a，b #
a=text1.text+text2.text
b=(text1.text+text2.text)/2
print "总和为：”＆a＆”平均值为：”＆b

??难说了这