高考问答华为麒麟960 970:vb函数max
来源：百度文库 编辑：高考问答 时间：2024/04/28 20:09:00
它的格式是怎样的？
可以对两个以上的变量进行取大运算吗？
VB中没有这个函数，你可以自己写一个嘛。
Public Function Max(a As Single, b As Single) As Single
If a > b Then Max = a Else Max = b
End Function
这样你就可以使用它了，如 debug.print max(12.5,16)
这时就会输出12.5与16中较大的一个数。
当然，你也可以把以上自定义函数中的两个变量，换成一个数组，这样就可以不只是在两个变量之间返回最大值，而是在一个数组中返回最大值。
如：
Public Function Max(a() As Single) As Single
Dim i As Integer, p As Single
p = a(1)
For i = 2 To UBound(a)
If p < a(i) Then p = a(i)
Next i
Max = p
End Function
这样你可以先定义一个数组，并把你要查找最大值的数据存入这个数组中，再调用这个函数查找。
如：
dim dat() as single
dat(1)=...
dat(2)=...
... ...
debug.print max(dat)
这样就可以输出一组数组中最大值。
替换法，给个中间变量就行了。比如比较谁大谁小，首先定义变量：比如 Dim i As Integer, j As Integer, t As Integer
For j = 1 To i - 1
If a(j) < a(j + 1) Then
t = a(j + 1)
a(j + 1) = a(j)
a(j) = t
End If
Next j
楼上的正解
费心了··