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("請(qǐng)輸入A:","數(shù)據(jù)輸入")
dierge = InputBox("請(qǐng)輸入B","數(shù)據(jù)輸入")
disange = InputBox("請(qǐng)輸入C","數(shù)據(jù)輸入")
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 "你輸入的數(shù)據(jù)按從da到xiao的順序是:"
End Sub