VBA编程:从键盘输入三个整数,然后调用过程sort(),由过程sort()将这三个数从大到小进行排序,

    Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim a, b, c As Integer
        Me.Visible = False
        a = InputBox("请输入第一个整数")
        b = InputBox("请输入第二个整数")
        c = InputBox("请输入第三个整数")
        Sort(a, b, c)
        Me.Close()
    End Sub


    Public Sub Sort(a As Integer, b As Integer, c As Integer)
        Dim m As Integer = 0
        Dim list As New List(Of Integer)
        list.Add(a)
        list.Add(b)
        list.Add(c)
        For i = 0 To list.Count - 1
            For j = i To list.Count - 1
                If list.Item(i) < list.Item(j) Then
                    m = list.Item(i)
                    list.Item(i) = list.Item(j)
                    list.Item(j) = m
                End If
            Next
        Next
        MsgBox("从大到小排列为:" & vbCrLf & list.Item(0) & "," & list.Item(1) & "," & list.Item(2))
    End Sub

写的比较粗糙...

追问

T T复制黏贴了以后运行失败了..还是谢谢呀

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vjxfvyejxx3y3ee77fj.html