Sub ab(number())
    Dim max
    Dim min
    max = number(0)
    min = number(0)
    For Each x In number
        If max < x Then max = x
        If min > x Then min = x
    Next x
Print "最大数是："; max; "最小数是："; min
End Sub
Private Sub Form_Load()
Dim m(3) As Integer
For i = 0 To 2
    m(i) = InputBox("请输入:")
Next i
Call ab(m())
End Sub

'调试通过了的程序
Private Sub ab(number() As Integer)      '如果不加类型，那么要求 传进 Variant 类型的数组，而你传进来的是 Integer 类型，自然报类型不匹配。
    Dim max
    Dim min
    max = number(0)
    min = number(0)
    For Each x In number
        If max < x Then max = x
        If min > x Then min = x
    Next x
Print "最大数是："; max; "最小数是："; min
End Sub

Private Sub Form_Click()
Dim m(2) As Integer                   '与你要输入的数据个数一样，不要定义大了，否则最小值就是 0 。
For i = 0 To 2
    m(i) = InputBox("请输入:")
Next i
Call ab(m())
End Sub

原来这样！

其实ab m() 也可以调用 当去掉关键字Call
书上说的

Option Explicit

Private Sub Form_Load()
    Me.AutoRedraw = True
    Dim m(), i As Long
    ReDim m(0 To 2)
    For i = 0 To 2
         m(i) = Val(InputBox("请输入:"))
    Next i
    ab m()    '这句有问题，要么你改上面的函数部分，要么改这里。建议改上面的。
End Sub

'Sub ab(ParamArray number())           '这里是要求传递 任意多个参数，但不能把整个数组传进去。
Sub ab(number())                      '要求传递数组进来。
     Dim max
     Dim min
     Dim x
     max = number(0)
     min = number(0)
     For Each x In number
         If max < x Then max = x
         If min > x Then min = x
     Next x
Print "最大数是："; max; "最小数是："; min
End Sub
'结贴了吗，也就是出结果了？

花了我半个小时，就为了给你回贴，希望能看得懂！！

Function MaxMin(数字 As String, 分隔符 As String) As String
'判断是否有分隔符--------------------------------
If InStr(数字, 分隔符) < 1 Then
MsgBox "数字中没有包含：“" & 分隔符 & "”分隔符"
Exit Function
End If
Dim Num() As Integer '声明数组
ReDim Num(0) '重定义数组
'循环截取数字------------------------------------
For i = 0 To UBound(Split(数字, 分隔符))
X = Split(数字, 分隔符)(i)
 If IsNumeric(X) = True Then '如果截取到的是为数字
 ReDim Preserve Num(UBound(Num) + 1) '动态增加数组
 Num(UBound(Num)) = X '将截取到的数字赋值到数组
 End If
Next i
'从小到大排序数字--------------------------------
For i = 1 To UBound(Num)
    For j = 1 To UBound(Num)
        If Num(i) < Num(j) Then
        X = Num(i)
        Num(i) = Num(j)
        Num(j) = X
        End If
Next j, i

MaxMin = "最大值是：" & Num(UBound(Num)) & "  最小值是：" & Num(1)

End Function

Private Sub Command1_Click()
MsgBox MaxMin("35-52-35-53-95-68-68-65-5--5", "-")
End Sub

原来上面有了 = =

[ 本帖最后由 wube 于 2011-4-30 04:53 编辑 ]