> 其他 >
VB练习题
从键盘输入任意三个数A,B,C,将其值按由大到小的顺序显示出来.
人气:382 ℃ 时间:2020-06-18 10:30:37
解答
Private Sub Form_Load()
Dim x As Integer,y As Integer,z As Integer
Dim diyige As Integer
Dim dierge As String,disange As String,disige As String
diyige = InputBox("请输入A:","数据输入")
dierge = InputBox("请输入B","数据输入")
disange = InputBox("请输入C","数据输入")
x = Val(diyige)
y = Val(dierge)
z = Val(disange)
If x > y And y > z Then
Print x,y,z
ElseIf y > z And z > x Then
Print y,z,x
ElseIf z > x And x > y Then
Print z,x,y
End If
Print "你输入的数据按从da到xiao的顺序是:"
End Sub
推荐
猜你喜欢
© 2025 79432.Com All Rights Reserved.
电脑版|手机版