vb 如何把结果显示在文本框里

Question

Function sum(N As Integer, m As Integer, p As Integer) As Long
sum() = (s1 + s2) / s3
End Function
Private Sub Command1_Click()
Dim sum() As Integer
N = Text1.Text
m = Text2.Text
p = Text3.Text
s1 = 0
For i = 1 To N
s1 = s1 + i
Next i
s2 = 0
For j = 1 To m
s2 = s2 + j
Next j
s3 = 0
For k = 1 To p
s3 = s3 + k
Next k
Text4.Text = sum(N, m, p)
End Sub

最后提示说下标越界，错在哪啊？怎么改？

Answer 1

Function sum(N As Integer, m As Integer, p As Integer) As Single
sum = (N + m) / p
End Function

Private Sub Command1_Click()
Dim N As Integer, m As Integer, p As Integer
Dim i As Integer, j As Integer, k As Integer
Dim s1 As Integer, s2 As Integer, s3 As Integer
N = Val(Text1.Text)
m = Val(Text2.Text)
p = Val(Text3.Text)
For i = 1 To N
   s1 = s1 + i
Next i
For j = 1 To m
   s2 = s2 + j
Next j
For k = 1 To p
   s3 = s3 + k
Next k
Text4.Text = sum(s1, s2, s3)
End Sub

Answer 2

你的数组和函数同名，函数也有问题。追问

能说下如何改吗？

Answer 3

楼主，你不妨描述下你需要做什么？
输入什么数据，进行怎样的计算，否则神仙也帮不了你。