以下是引用qq1023569223在2011-4-6 19:40:31的发言：

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

以下是引用qq1023569223在2011-4-6 20:35:15的发言：

定义数组后面又没有说明类型的，都是动态数组(不能定义其大小)吧，不信你再看书吧！至于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