取一组数据的最大值和最小值问题！

Question

我不能修改，只能重新发一下了。 
'这是通过过程在Text文本框里输入数据 Rem　Gotdata()标准模块  
Sub GotData(datum As String, xx() As Single) 
  Dim number As String 
  Dim i As Integer, j As Integer 
  j = 0 
  number = " " 
  For i = 1 To Len(datum) 
    If Mid(datmu, i, 1) = " " Or Mid(datum, i, 1) = "," Then 
      If number <> " " Then 
          ReDim Preserve xx(j) 
            xx(j) = Val(number) 
            number = " " 
            j = j + 1 
        End If 
    Else 
        number = number + Mid(datum, i, 1) 
    End If 
    If i = Len(datum) And number <> " " Then 
        ReDim Preserve xx(j) 
        xx(j) = Val(number) 
    End If 
  Next i 
  
End Sub '一级数据中极大值和极小值的基本程序 
Sub maxmin(x() As Single, ByVal maxnumber As Single, ByVal minnumber As Single) 
    'x()待处理的一组数据 
    'maxnumber　为极大值 
    'minnumber　为极小值 
    Dim n1 As Integer, n2 As Integer 
    Dim i As Integer 
    n1 = UBound(x) 
    n2 = LBound(x)     maxnumber = x(n1) 
    minnumber = x(n2) 
    For i = n2 + 1 To n1 
        If x(i) > maxnumber Then 
          maxnumber = x(i) 
        ElseIf x(i) < minnumber Then 
          minnumber = x(i) 
        End If 
    Next i 
我在text1里输入数据 text2和text3分别显示最大和最小值 Private Sub Command1_Click() 
Dim xx() As Single Dim a As Single 
Dim b As Single 
Dim maxnumber As Single 
Dim minnmuber As Single 
GotData Text1.Text, xx() 
maxmin xx(), maxnumber, minnumber 
a = maxnumber 
b = minnumber Text2.Text = Str(a) 
Text3.Text = Str(b) 
End Sub 
结果显示的是零。。大家帮一下呀， 

Answer 1

maxmin函数你用byval怎么能返回值呢？
且maxmin的for循环有点问题。

Answer 2

把byval取了还是一样的呀，哪位给说一下到底怎么回事呢。

Answer 3

 '模块
Public Function maxmin(x() As Single, obj As Form)
   
    Dim n1 As Integer, n2 As Integer
    Dim i As Integer
    n1 = UBound(x)
    n2 = LBound(x)
    maxnumber = x(n1)
    minnumber = x(n2)
    For i = n2 + 1 To n1
        If x(i) > minnumber Then
          maxnumber = x(i)
        ElseIf x(i) < minnumber Then
          minnumber = x(i)
        End If
    Next i
  obj.Text2.Text = "最大值为" & maxnumber
  obj.Text3.Text = "最小值为" & minnumber
End Function
'窗体
Private Sub Command1_Click()
Dim xx() As Single
Dim arr
arr = Split(Text1.Text, ",")
l = UBound(arr)
ReDim xx(l)
For i = 0 To l
xx(i) = arr(i)
Next
maxmin xx, Me
End Sub
在Text1里输入数字,数字之间用英文逗号,隔开