Private Sub Command1_Click()
Dim s As String
s = "CAB"
For i = 1 To 3
For j = 3 To i + 1 Step -1
If Asc(Mid(s, j, 1)) > Asc(Mid(s, j - 1, 1)) Then
t = Mid(s, j, 1)
Mid(s, j, 1) = Mid(s, j - 1, 1)
Mid(s, j - 1, 1) = t
End If
Next j, i
Print s
End Sub
用IF和inputbox - -
Private Sub Command1_Click()
Dim s As String
s = InputBox("輸入3個字符")
If Asc(Mid(s, 1, 1)) < Asc(Mid(s, 2, 1)) Then
t = Mid(s, 1, 1)
Mid(s, 1, 1) = Mid(s, 2, 1)
Mid(s, 2, 1) = t
End If
If Asc(Mid(s, 1, 1)) < Asc(Mid(s, 3, 1)) Then
t = Mid(s, 1, 1)
Mid(s, 1, 1) = Mid(s, 3, 1)
Mid(s, 3, 1) = t
End If
If Asc(Mid(s, 2, 1)) < Asc(Mid(s, 3, 1)) Then
t = Mid(s, 2, 1)
Mid(s, 2, 1) = Mid(s, 3, 1)
Mid(s, 3, 1) = t
End If
Print s
End Sub