VB中求a,b,c中最大值的编码是什么?

Dim a As Integer,b As Integer,c As Integer,Max As Integer,Min As Integera = InputBox("请输入a值")b = InputBox("请输入b值")c = InputBox("请输入c值")If a > b ThenMax = aMin = bElseMax = bMin = aEnd IfIf Max > c Then '确定最大值Max = MaxElseMax = cEnd IfIf Min < c Then '确定最小值Min = MinElseMin = cEnd IfPrint "Max=" & MaxPrint "Min=" & Min