编写一个求3个数中最大值和最小值的VB程序,然后用这个过程分别求5个数和7个数的最大最小值.

三个数最大最小值直接分支就可以。一共六种情况。
5个数最大：
max(max(n1,n2,n3),n4,n5)
5个数最小：
min(min(n1,n2,n3),n4,n5)

七个数也一样，就是将n6，n7跟五个中的最大最小比较

'最大
Public Function max(a As Integer, b As Integer, c As Integer) As Integer
max = IIf(a > b, IIf(a > c, a, c), IIf(b > c, b, c))
End Function
'最小
Public Function min(a As Integer, b As Integer, c As Integer) As Integer
min = IIf(a > b, IIf(b > c, c, b), IIf(a > c, c, a))
End Function
Private Sub Command1_Click()
Print max(14, 7, 22) '3个数比较
Print max(max(14, 7, 22), 56, 76) '5个数比较
Print max(max(max(14, 7, 22), 56, 76), 100, 200) '7个数比较
End Sub

最小数min用法和max用法一样。

Private Function min3v(ByVal v1 As Integer, ByVal v2 As Integer, ByVal v3 As Integer) As Integer
If v1 > v2 Then
If v2 > v3 Then min3v = v3 Else min3v = v2
Else
If v1 > v3 Then min3v = v3 Else min3v = v1