用Visual Basic写一个代码，输入三个数a，b，c，按从大到小次序排序输出

用Visual Basic写一个代码，输入三个数a，b，c，按从大到小次序排序输出

总的思路就是在排序过程中，如果后面的数比前面的数大，则交换它们的位置：

Sub Main()
    Dim arr(2) As Integer
    Dim temp As Integer

    arr(0) = InputBox("请输入第1个数：")
    arr(1) = InputBox("请输入第2个数：")
    arr(2) = InputBox("请输入第3个数：")

    For i = 0 To 1
        For j = i + 1 To 2
            If arr(j) > arr(i) Then
                temp = arr(j)
                arr(j) = arr(i)
                arr(i) = temp
            End If
        Next j
    Next i

    MsgBox("从大到小排序为：" & arr(0) & "，" & arr(1) & "，" & arr(2))
End Sub