用Visual Basic设计（1） 计算y的值，x由文本框输入，y的值在另一个文本框中显示出来： （2）用文本框输入三个数，然后按由大到小的顺序在窗体上显示这三个数。 （3）用文本框输入一个整数，判断是奇数还是偶数，判断结果在标签控件上显示出来。

好的，我会根据你的要求进行回答。下面是对你的三个问题的解答：

1. 计算y的值，x由文本框输入，y的值在另一个文本框中显示出来：

在 Visual Basic 中，可以使用以下代码实现：

Private Sub btnCalculate_Click()
    Dim x As Integer
    Dim y As Integer
    
    x = Val(txtInput.Text)
    y = x * x + 2 * x + 1
    
    txtOutput.Text = CStr(y)
End Sub

其中，`txtInput` 和 `txtOutput` 分别是用于输入 x 和显示 y 的文本框控件，`btnCalculate` 是用于触发计算的按钮控件。当用户点击按钮时，程序会从 `txtInput` 中获取输入的 x 值，计算出相应的 y 值，并将结果显示在 `txtOutput` 中。

2. 用文本框输入三个数，然后按由大到小的顺序在窗体上显示这三个数。

在 Visual Basic 中，可以使用以下代码实现：

Private Sub btnSort_Click()
    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    
    a = Val(txtInput1.Text)
    b = Val(txtInput2.Text)
    c = Val(txtInput3.Text)
    
    If a >= b And a >= c Then
        If b >= c Then
            lblResult.Caption = a & ", " & b & ", " & c
        Else
            lblResult.Caption = a & ", " & c & ", " & b
        End If
    ElseIf b >= a And b >= c Then
        If a >= c Then
            lblResult.Caption = b & ", " & a & ", " & c
        Else
            lblResult.Caption = b & ", " & c & ", " & a
        End If
    Else
        If a >= b Then
            lblResult.Caption = c & ", " & a & ", " & b
        Else
            lblResult.Caption = c & ", " & b & ", " & a
        End If
    End If
End Sub

其中，`txtInput1`、`txtInput2` 和 `txtInput3` 分别是用于输入三个数的文本框控件，`btnSort` 是用于触发排序的按钮控件，`lblResult` 是用于显示排序结果的标签控件。当用户点击按钮时，程序会从三个文本框中获取输入的三个数，对它们进行排序，并将结果显示在 `lblResult` 中。

3. 用文本框输入一个整数，判断是奇数还是偶数，判断结果在标签控件上显示出来。

在 Visual Basic 中，可以使用以下代码实现：

Private Sub btnJudge_Click()
    Dim num As Integer
    
    num = Val(txtInput.Text)
    
    If num Mod 2 = 0 Then
        lblResult.Caption = "偶数"
    Else
        lblResult.Caption = "奇数"
    End If
End Sub

其中，`txtInput` 是用于输入整数的文本框控件，`btnJudge` 是用于触发判断的按钮控件，`lblResult` 是用于显示判断结果的标签控件。当用户点击按钮时，程序会从 `txtInput` 中获取输入的整数，判断它是奇数还是偶数，并将结果显示在 `lblResult` 中。