Function max(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer)
Dim m As Variant
If a > b Then
m = a
Else
m = b
End If
If m > c Then
max = m
Else
max = c
End If
End Function
Function min(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer)
Dim m As Variant
If a < b Then
m = a
Else
m = b
End If
If m < c Then
min = m
Else
min = c
End If
End Function
Private Sub Command1_Click()
Print "三个数的最小值="; min(1, 2, 3), "三个数的最大值="; max(1, 2, 3)
x = max(1, 2, 3)
y = min(1, 2, 3)
Print "五个数的最小值="; min(y, 6, 7), "五个数的最大值="; max(x, 4, 5)
p = max(x, 4, 5)
q = min(y, 6, 7)
Print "七个数的最小值="; min(q, 6, 7), "七个数的最大值="; max(p, 6, 7)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024