VB.NET 小程序 1

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a, b, c, temp As Integer
        a = InputBox("请输入第一个数字", "输入")
        b = InputBox("请输入第二个数字", "输入")
        c = InputBox("请输入第三个数字", "输入")

        If a < b Then
            temp = a
            a = b
            b = temp
        End If

        If a > c And c > b Then
            temp = b
            b = c
            c = temp
        ElseIf c > a Then
            temp = c
            c = b
            b = a
            a = temp
        End If

        Label1.Text = "从大到小排序为：" & "  " & a & "  " & b & "  " & c

    End Sub
End Class