Question

用VB，把ABC3个数字从大到小排序,高手写下程序，谢谢！

用VB，把ABC3个数字从大到小排序,高手请写一下程序。。 详细的，谢谢！！！！感激！！！

Answer 1

冒泡排序：

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

Answer 2

其实inputbox和容易，新建一个command2按钮，添加代码Private Sub Command1_Click()
a = CInt(InputBox("请输入a的值", "a值输入", "0"))
b = CInt(InputBox("请输入b的值", "a值输入", "0"))
c = CInt(InputBox("请输入c的值", "a值输入", "0"))
End Sub搞定，这样就三个textbox控件也省了

Answer 3

Dim numMin As Single
Dim numMid As Single
Dim numMax As Single

numMin = A
numMid = A
numMax = A
If B > numMax Then
numMid = numMax
numMax = B
ElseIf B < numMin Then
numMin = B
End If

If C > numMax Then
numMid = numMax
numMax = C
ElseIf C < numMin Then
numMin = C
End If

Answer 4

你说详细点，怎么个排法？怎么输出排列结果？