Sub ab(ParamArray 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)
For i = 0 To 2
    m(i) = Val(InputBox("请输入:"))
Next i
ab m()
End Sub
请问哪里错；

调用ab过程求最大数和最小数

Private Sub Form_Load()
Dim m() '动态数组不能定义其大小，要么写成Dim m(3) As Integer
For i = 0 To 2
    m(i) = Val(InputBox("请输入:"))
Next i
Call ab m() '调用sub要用Call,你那个函数到底是什么参数啊！我看不懂，这里可能有错就自己改吧！
End Sub

我没定义动态数组啊，那不是指定大小为3了吗
调用sub那里没写错吧，Call可以省略的
我的本意是在主函数里输入3个整数然后通过调用ab函数求出最大和最小值

定义数组后面又没有说明类型的，都是动态数组(不能定义其大小)吧，不信你再看书吧！至于call是否可以省略，看你怎么想的吧,我是没有听过！VB我不是太懂！
非动态数组的定义方法是: Dim ArrayName(Length) As Type.
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()
For i = 0 To 2
    m(i) = Val(InputBox("请输入:"))
Next i
Call ab(m())
End Sub


[ 本帖最后由 qq1023569223 于 2011-4-6 20:45 编辑 ]

看看这个吧！你会知道的！https://bbs.bccn.net/thread-329598-1-1.html

Sub ab(ParamArray number())           '这里是要求传递 任意多个参数，但不能把整个数组传进去。
'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)
 For i = 0 To 2
     m(i) = Val(InputBox("请输入:"))
 Next i
 ab m()    '这句有问题，要么你改上面的函数部分，要么改这里。建议改上面的。
 End Sub
 
-------------------------
在WIN7中，没去弄得可以运行 VB6 ，所以我也没调试，你再看看。

还是出错

Private Sub Form_Load()
 Dim m()                                  '这里要指定大小，如果你使用动态数组的话，那么再加一句。
 redim m(0 to 2)                         '动态数组重新定义大小，
 For i = 0 To 2
     m(i) = Val(InputBox("请输入:"))
 Next i
 Call ab(m())
 End Sub

怎样才对啊，出错啊，是哪错了