Question

在VB中：编写一个函数,求三个数中的最大值,要求定义max(x,y,z)函数

Answer 1

Function max(x as single, y as single, z as single)as single
Dim t As single
t = x
If y > t Then t = y
If z > t Then t = z
max = t
MsgBox "最大值" & max
End Function

Answer 2

Function max(x as single, y as single, z as single) as single
Dim T As single
T = Iif( x > y, x, y)
max = Iif( T > z, T, z)
End Function