作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/26 02:14:08
VB中求a,b,c中最大值的编码是什么?
Dim a As Integer,b As Integer,c As Integer,Max As Integer,Min As Integer
a = InputBox("请输入a值")
b = InputBox("请输入b值")
c = InputBox("请输入c值")
If a > b Then
Max = a
Min = b
Else
Max = b
Min = a
End If
If Max > c Then '确定最大值
Max = Max
Else
Max = c
End If
If Min < c Then '确定最小值
Min = Min
Else
Min = c
End If
Print "Max=" & Max
Print "Min=" & Min