向大佬救助（输入三个数，从小到大排序，并输出，求基础写法）

Private Sub Form_Click()
Dim s$, i%, j%, t%, d As Variant
Cls
On Error GoTo ExitSub
s = InputBox("输入三个数，用空格隔开：")
d = Split(s, " ")
For i = 0 To 1
For j = 1 To 2
If d(i) > d(j) Then
t = d(i)
d(i) = d(j)
d(j) = t
End If
Next j
Next i
For i = 0 To 1
Print d(i); " < ";
Next i
Print d(2)
Exit Sub
ExitSub:
If s <> "" Then MsgBox "数据出现错误！", , vbCritical
End Sub

3楼就是冒泡了