作业帮 > 综合 > 作业

VB可设变量x,y,x存放三个数,程序结果让x放最大值,z放最小值.

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/04/29 05:40:08
VB可设变量x,y,x存放三个数,程序结果让x放最大值,z放最小值.


11急!
VB可设变量x,y,x存放三个数,程序结果让x放最大值,z放最小值.
一个command 一个label用于显示
Private Sub Command1_Click()
Dim x As Double,y As Double,z As Double
x = InputBox(prompt:="请输入数字1",Title:="输入")
y = InputBox(prompt:="请输入数字2",Title:="输入")
z = InputBox(prompt:="请输入数字3",Title:="输入")
If x < y Then
t = x:x = y:y = t
End If
If y < z Then
t = y:y = z:z = t
If x < y Then
t = x:x = y:y = t
End If
End If
Label1 = Str$(x) + ">" + Str$(y) + ">" + Str$(z)
End Su