用Visual Basic设计，编写程序，用输人框输人三个数，然后找由大到小的顺序在街体上显示这三个数。

以下是用 Visual Basic 编写的程序，实现输入三个数，然后按照从大到小的顺序在界面上显示这三个数：

Private Sub btnSort_Click(sender As Object, e As EventArgs) Handles btnSort.Click
    '获取输入的三个数
    Dim num1 As Integer = CInt(txtNum1.Text)
    Dim num2 As Integer = CInt(txtNum2.Text)
    Dim num3 As Integer = CInt(txtNum3.Text)

    '比较三个数的大小，并进行排序
    Dim arr(2) As Integer
    If num1 > num2 Then
        If num1 > num3 Then
            arr(0) = num1
            If num2 > num3 Then
                arr(1) = num2
                arr(2) = num3
            Else
                arr(1) = num3
                arr(2) = num2
            End If
        Else
            arr(0) = num3
            arr(1) = num1
            arr(2) = num2
        End If
    Else
        If num2 > num3 Then
            arr(0) = num2
            If num1 > num3 Then
                arr(1) = num1
                arr(2) = num3
            Else
                arr(1) = num3
                arr(2) = num1
            End If
        Else
            arr(0) = num3
            arr(1) = num2
            arr(2) = num1
        End If
    End If

    '在界面上显示排序后的结果
    txtResult.Text = "由大到小的顺序为：" & arr(0) & "，" & arr(1) & "，" & arr(2)
End Sub

在界面上需要添加三个文本框用于输入三个数，一个按钮用于触发排序操作，以及一个文本框用于显示排序后的结果。在按钮的 Click 事件中，首先获取三个输入的数，然后进行比较和排序，最后在文本框中显示排序后的结果。