Question

Private Sub Command1_Click() Dim x(10) As Integer, maxv As Integer, minv As Integer Dim i As Integer

Private Sub Command1_Click()
Dim x(10) As Integer, maxv As Integer, minv As Integer
Dim i As Integer
For i = i To 10
x(i) = Int(90 * Rnd + 10)（显示越界）
Text1 = Text1 & Str(x(i))
Next i
Call maxmin(x, i)
Text2 = maxv
Text3 = minv
End Sub

Answer 1

For i = i To 10
改为
For i = 1 To 10

Call maxmin(x, i)
改为
Call maxmin(x, 10)

Answer 2

上面的程序应该没有问题，不过如果你想把i当10送你的过程maxmin()，应该如下。
Call maxmin(x, i-1)

可以百度HI找我。