作业帮 > 综合 > 作业

用vb编程:输入三个数,求出最大的数

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/05/14 09:47:04
用vb编程:输入三个数,求出最大的数
用vb编程:输入三个数,求出最大的数
Private Sub Form_Load()
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
End Su