VB中输入任意个数,以文本框提供变量,然后求和,和平均数

'添加1个按钮贺1个文本框就可以了，复制以下代码

Private Sub Command1_Click()
Dim s() As Integer, sum As Long, ave As Long, n As Integer
sum = 0: ave = 0
If Not IsNumeric(Text1) And Val(Text1) <= 0 Then MsgBox "请输入个数(大于0)": Exit Sub
n = Val(Text1)
ReDim s(n)
For i = 1 To n
s(i) = Val(InputBox("输入数字"))
sum = sum + s(i)
Next
t = n & "个数字为:" & vbCrLf
For i = 1 To n
t = t & s(i) & ","
If i Mod 5 = 0 Then t = t & vbCrLf
Next
t = t & vbCrLf & "和为：" & sum & vbCrLf
t = t & "平均数为：" & sum / n & vbCrLf
MsgBox t
End Sub

只要有规则 就可以呵.

假设文本框是text1
你输入的任意个数的数字是用空格来分隔的..

看下面的代码:

Private Sub Command1_Click()
Dim a, sumadd!, i%

a = Split(Text1, " ")

For i = 0 To UBound(a)
sumadd = sumadd + a(i)
Next

Print "总和及平均数分别是:"; sumadd; sumadd / (UBound(a) + 1)