作业帮 > 综合 > 作业

速输入三个数,输出其中最大的数、最小的数,求代码.

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/24 21:47:39
速输入三个数,输出其中最大的数、最小的数,求代码.
速输入三个数,输出其中最大的数、最小的数,求代码.
Private Sub Command1_Click()
Dim a%,b%,c%,t%
a = InputBox("输入你要比较的数:","提示",1)
b = InputBox("输入你要比较的数:","提示",1)
c = InputBox("输入你要比较的数:","提示",1)
If a < b Then
t = a:a = b:b = t
End If
If a < c Then
t = c:c = a:a = t
End If
If b < c Then
t = c:c = b:b = t
End If
Print a; ">"; b; ">"; c
End Su