下面代码是本人在网上搜到的，使用时出现数组的第一个值未进行比较，故改之，并做了简单的其他方面使用的提示；方便后者使用，我想这也是第一发帖人的初衷吧。
'下面这段代码有问题，x(0)无法比较
Public Function maxmin(x() As Double)
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)
End If
Next i
For i = n2 + 1 To n1
If x(i) < MinNumber Then
MinNumber = x(i)
End If
Next i
Print "最大值为" & Maxnumber
Print "最小值为" & MinNumber
End Function
'上面代码应改为如下即可使用了，如果比较绝对值则使用abs函数'Maxnumber = abs(x(n1))'MinNumber = abs(x(n2))'If abs(x(i)) > Maxnumber ThenPublic Function maxmin(x() As Double) 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 To n1 If x(i) >= Maxnumber Then 'If abs(x(i)) > Maxnumber Then Maxnumber = x(i) End If Next i For i = n2 To n1 If x(i) <= MinNumber Then MinNumber = x(i) End If Next i Print "最大值为" & Maxnumber Print "最小值为" & MinNumberEnd Function