[求助]：关于求3个数中最大最小值问题

爱好者

有A,B,C三个数，想求其中最大最小值，用VB该怎么样编？有现成的函数吗？

efan2000

查查帮助，看看有没有Max和Min的函数，那可能就是。
如果没有，也可自己编写一个，就是一些数的比较。

Hu7788

vb里面好像没有max和min函数，只能自己动手编了。
其实也很简单：
If a > b Then
   Max = a
   Min = b
Else
   Max = b
   Min = a
End If
If Max < c Then
   Max = c
End If
If Min > c Then
   Min = c
End If

efan2000

2. 
   
3.   [FONT=courier new]
   
4. '求数组中的最小最大值。
   
5. Function Min1(ByVal ArrayParam As Variant) As Double
   
6.     Min1 = 9999999
   
7.    
   
8.     Dim i As Integer
   
9.     If Not IsArray(ArrayParam) Then Exit Function
   
10.     For i = 0 To UBound(ArrayParam)
    
11.         If ArrayParam(i) <= Min1 Then
    
12.             Min1 = ArrayParam(i)
    
13.         End If
    
14.     Next
    
15. End Function
    
16. 
    
17. Function Max1(ByVal ArrayParam As Variant) As Double
    
18.     Max1 = -9999999
    
19.    
    
20.     Dim i As Integer
    
21.     If Not IsArray(ArrayParam) Then Exit Function
    
22.     For i = 0 To UBound(ArrayParam)
    
23.         If ArrayParam(i) >= Max1 Then
    
24.             Max1 = ArrayParam(i)
    
25.         End If
    
26.     Next
    
27. End Function
    
28. 
    
29. '求不定个数的参数中的最小最大值。
    
30. Function Min2(ParamArray ArrayParam() As Variant) As Double
    
31.     Min2 = 9999999
    
32.    
    
33.     Dim i As Integer
    
34.     For i = 0 To UBound(ArrayParam)
    
35.         If ArrayParam(i) <= Min2 Then
    
36.             Min2 = ArrayParam(i)
    
37.         End If
    
38.     Next
    
39. End Function
    
40. 
    
41. Function Max2(ParamArray ArrayParam() As Variant) As Double
    
42.     Max2 = -9999999
    
43.    
    
44.     Dim i As Integer
    
45.     For i = 0 To UBound(ArrayParam)
    
46.         If ArrayParam(i) >= Max2 Then
    
47.             Max2 = ArrayParam(i)
    
48.         End If
    
49.     Next
    
50. End Function
    
51. 
    
52. Sub test()
    
53.     Dim a(0 To 2) As Integer
    
54.     a(0) = 1
    
55.     a(1) = 2
    
56.     a(2) = 3
    
57.     Debug.Print Min1(a)
    
58.     Debug.Print Max1(a)
    
59.     Debug.Print Min2(1, 2, 3)
    
60.     Debug.Print Max2(1, 2, 3)
    
61. End Sub
    
62.   [/FONT]
    

<br />   [FONT=courier new]<br /> '求数组中的最小最大值。<br /> Function Min1(ByVal ArrayParam As Variant) As Double<br />     Min1 = 9999999<br />     <br />     Dim i As Integer<br />     If Not IsArray(ArrayParam) Then Exit Function<br />     For i = 0 To UBound(ArrayParam)<br />         If ArrayParam(i) <= Min1 Then<br />             Min1 = ArrayParam(i)<br />         End If<br />     Next<br /> End Function<br /> <br /> Function Max1(ByVal ArrayParam As Variant) As Double<br />     Max1 = -9999999<br />     <br />     Dim i As Integer<br />     If Not IsArray(ArrayParam) Then Exit Function<br />     For i = 0 To UBound(ArrayParam)<br />         If ArrayParam(i) >= Max1 Then<br />             Max1 = ArrayParam(i)<br />         End If<br />     Next<br /> End Function<br /> <br /> '求不定个数的参数中的最小最大值。<br /> Function Min2(ParamArray ArrayParam() As Variant) As Double<br />     Min2 = 9999999<br />     <br />     Dim i As Integer<br />     For i = 0 To UBound(ArrayParam)<br />         If ArrayParam(i) <= Min2 Then<br />             Min2 = ArrayParam(i)<br />         End If<br />     Next<br /> End Function<br /> <br /> Function Max2(ParamArray ArrayParam() As Variant) As Double<br />     Max2 = -9999999<br />     <br />     Dim i As Integer<br />     For i = 0 To UBound(ArrayParam)<br />         If ArrayParam(i) >= Max2 Then<br />             Max2 = ArrayParam(i)<br />         End If<br />     Next<br /> End Function<br /> <br /> Sub test()<br />     Dim a(0 To 2) As Integer<br />     a(0) = 1<br />     a(1) = 2<br />     a(2) = 3<br />     Debug.Print Min1(a)<br />     Debug.Print Max1(a)<br />     Debug.Print Min2(1, 2, 3)<br />     Debug.Print Max2(1, 2, 3)<br /> End Sub<br />   [/FONT]<br />