4个随机的数字(byte类型),VB6中有没有这样的一个函数可以将这4个随机的数字中最大的和最小的一个数字提取出来吗?

Question

4个随机的数字(byte类型),VB6中有没有这样的一个函数可以将这4个随机的数字中最大的和最小的一个数字提取出来吗?例如,现在有四个随机数字,byte类型a=1  b=2  c=0  d=6        注:可能下一次就变成了a=0   b=4  c=7  d=3请问VB6中有没有这样的一个函数可以直接获得这四个随机数中最大的那个数和最小的那个数?请知道的人指教,谢谢!!!

Answer 1

vb6中没有这样的函数，但可以自定义一个：
Function max(a, b, c, d)
    If a > b Then max = a Else max = b
    If c > max Then max = c
    If d > max Then max = d
End Function
Function min(a, b, c, d)
    If a < b Then min = a Else min = b
    If c < min Then min = c
    If d < min Then min = d
End Function
Private Sub Command1_Click()
    MsgBox "max:" & max(Text1.Text, Text2.Text, Text3.Text, Text4.Text)
    MsgBox "min:" & min(Text1.Text, Text2.Text, Text3.Text, Text4.Text)
End Sub

Answer 2

以下的算法可以实现四个变量,如果要多个的话要用到数组
Function max(a, b, c, d)
    If a < b Then 
       max=b
    else
       max=a
    end if
    if c > d then 
       if max<c then max = c
    else
       if max<d then max = d
    end if  
End FunctionFunction min(a, b, c, d)
    If a > b Then 
       min=b
    else
       min=a
    end if
    if c > d then 
       if min > c then min = c
    else
       if min > d then min = d
    end if 
End Function

Answer 3

上面的太麻烦了，简简单单：Max(max(a,b),max(c,d)),Min(min(a,b),min(c,d))

Answer 4

上面的太麻烦了，简简单单：Max(max(a,b),max(c,d)),Min(min(a,b),min(c,d))
我支持这个